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Introduction to Volume Two 

This is volume two of three in the set of commented source code listings for 
LS-DOS/TRSDOS 6.2, as assembled for the TRS-80 Model 4/4P computer. This volume 
contains the Library commands found in SYS6/SYS, SYS7/SYS, and SYS8/SYS. 

The individual commands will be presented in alphabetical order without regard to 
their particular /SYS module. The lead-in page for each command will give the /SYS 
file containing the command, the ISAM number assigned to the command, and the names of 
the different commands (if more than one) that the code contains. A symbol table 
listing will follow each assembly listing. 

The SVC macro file used during assembly of the utilities will be listed in Appendix A, 
along with the equate files generated during assembly of the resident part of the 
operating system. 

This book should by no means be considered a tutorial on assembly language or on the 
workings of the LS-DOS/TRSDOS operating system. It is only the commented source code 
used to assemble the system Libraries. It can be used for reference purposes and to 
view examples of different program structures. It is not meant to replace the normal 
technical reference manual available from the computer manufacturer. 



This product is sold on an as-is basis, and is totally unsupported by Logical Systems, 
Inc. No questions regarding any aspect of the source code will be answered by LSI 
customer or technical support. Support for LS-DOS users is provided through their OEM 
dealer. Support for TRSDOS 6.x is provided by Tandy Corporation. Comments or 
suggestions may be sent to Logical Systems, Inc. in care of the Source Code Technical 
Editor, but correspondence concerning these comments will not be made. 



TRSDOS and TRS-80 are trademarks of Tandy Corporation 
LDOS and LS-DOS are trademarks of Logical Systems, Inc. 

Copyright (C) 1982, 1983, 1984 by Logical Systems, Inc. 
All Rights Reserved 



Command: ATTRIB 
Library: SYS7/SYS 
ISAM # : 51H 
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Page 00001 



ATTRIB Command 
<ATTRIB - LS-DOS 6.2> 



4296 
42 E0 



00100 ;LBATTR IB/ASM 

00110 TITLE 

00120 ; 

00130 CR EQU 

00140 BLNKMPW EQU 

00150 PASSWORD 

00160 ; 

00170 *GET SVCMAC:3 

00010 ;SVCMAC/ASM - LS-DOS Version VI 



13 

4296H 

EQU 



42E0H 



;SVC Macro equivalents 



2400 



2400 ED733124 
2404 CD3724 
2407 210000 
240A 1824 



240C FE3F 
240E 281A 

2410 6F 

2411 2600 
2413 F6C0 

2415 4F 
2416 

2416 3E1A 

2418 EF 

2419 1815 



241B 21FA28 
241E DD 
241F 210A28 

2422 DD 

2423 211D28 

2426 DD 

2427 213528 
242A 



242A 3E0C 
242C EF 
242D 21FFFF 
2430 310000 
2433 
2433 3E6A 

2435 EF 

2436 C9 



2437 1L3F29 
243A 
243A 3E4E 



*LIST 
03900 *LIST 
00180 ; 
00190 
00200 ; 
00210 ATTRIB 
00220 
00230 
00240 
00250 
00260 ; 
00270 ; 
00280 ; 
00290 IOERR 
00300 
00310 
00320 
00330 
00340 
00350 



OFF 
ON 

ORG 



LD 

CALL 
LD 
JR 



2400H 



(SAVESP+1) 9 SP 
ATTRIB1 
HL,0 
SAVESP 



I/O Error Handling 



CP 
JR 
LD 
LD 
OR 
LD 



63 

Z,EXTERR 

L S A 

H s 

0C0H 

C,A 



;Save stack pointer 
;Cal1 attrib code 
;Set no error 
;P/u stack & return 



;Extended error? 
; Error # to HL 
;Abbrev & return 



00002 

00360 

00370 ; 

00380 ; 

00390 ; 

00400 ABORT LD 

00410 DB 

00420 SPCREQ LD 

00430 DB 

00440 NOTDUN LD 

00450 DB 

00460 ATBERR LD 



TERROR 

LD A, 26 

RST 40 

JR SAVESP 



;P/u Stack & RETurn 
Internal Error Message Handling 

; "Command aborted 



HL, ABORTS 

0DDH 

HL,SPCREQ$ 

0DDH 

HL s N0TDUN$ 

0DDH 

HL,ATBERR$ 



; "Fi 1 e spec required 
^'Specifications req. 
;"Attr. specification error 



;Set abort error 
;Reload stack pointer 
;Clean up <BREAK> 



00470 EXTERR (aPLOGOT 

00003 IFEQ 00H,1 

00004 LD HL, 

00005 ENDIF 

00006 LD A, 12 

00007 RST 40 
00480 LD HL.-l 
00490 SAVESP LD SP,$-$ 
00500 @@CKBRKC 

00008 LD A, 106 

00009 RST 40 
00510 RET 
00520 ; 

00530 ; ATTRIB1 - Set Attributes of a file/disk 

00540 ; 

00550 ATTRIB1 

00560 LD DE,FCB ;Check filespec or drive # 

00570 (3@FSPEC 

00010 LD A, 78 
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243C EF 


00011 


RST 


40 




243D C2DB25 


00580 


JP 


NZ,PROT 


;Assume drive # if error 


2440 1A 


00590 


LD 


A,(DE) 


;Cannot be a device 


2441 FE2A 


00600 


CP 


'*« 




2443 CA1F24 


00610 


JP 


Z,SPCREQ 




2446 


00620 


00FLAGS 




;Get flag table pointer 


2446 3E65 


00012 


LD 


A, 101 




2448 EF 


00013 


RST 


40 




2449 E5 


00630 


PUSH 


HL 


;Save cmdline ptr 


244A 21002A 


00640 


LD 


HL, BUFFER 


;Use local buffer 


244 D 45 


00650 


LD 


B,L 


;0pen the file 


244E FDCB12C6 00660 


SET 


0,(IY+ , S , -'A') 


; Don't set file open bit 


2452 


00670 


(3@OPEN 






2452 3E3B 


00014 


LD 


A,59 




2454 EF 


00015 


RST 


40 




2455 El 


00680 


POP 


HL 


;Rcvr cmdline ptr 


2456 C20C24 


00690 


JP 


NZ, IOERR 


;Jump if non-existant 


2459 3A4029 


00700 


LD 


A,(FCB+1) 


;P/u protection 


245C E607 


00710 


AND 


7 


;Mask other bits 


245E 3E25 


00720 


LD 


A,25H 


;Init for access denied 


2460 C20C24 


00730 


JP 


NZ, IOERR 


;Jump if no can do 


2463 AF 


00740 


XOR 


A 




2464 32A125 


00750 
00760 ; 


LD 


(PRMCOD+l),A 


;Init prot to 




00770 ; 


Convert 


command line to 


upper case 




00780 ; 








2467 E5 


00790 


PUSH 


HL 


;Save cmdline ptr 


2468 7E 


00800 ATT0 


LD 


A,(HL) 


; & cvrt 1c to UC 


2469 FE0D 


00810 


CP 


CR 




246B 2811 


00820 


JR 


Z,ATT02 


;Done if CR 


246D FE03 


00830 


CP 


3 


; ETX 


246F 280D 


00840 


JR 


Z,ATT02 




2471 FE61 


00850 


CP 


'a' 


;Not lc? 


2473 3806 


00860 


JR 


C.ATT01 




2475 FE7B 


00870 


CP 


'z'+l 




2477 3002 


00880 


JR 


NC.ATT01 




2479 CBAE 


00890 


RES 


5 9 (HL) 


;<a-z> to <A-Z> 


247B 23 


00900 ATT01 


INC 


HL 


;Bump to next char 


247C 18EA 


00910 
00920 ; 


JR 


ATT0 


;Loop 


247E El 


00930 ATT02 
00940 ; 


POP 


HL 


;Rcvr orig cmdline ptr 




00950 ; 


Scan command line for parameters 




00960 ; 








247F 7E 


00970 ATT1 


LD 


A,(HL) 


;Scan for start of parm 


2480 FE28 


00980 


CP 


'(' 


; There yet? 


2482 2807 


00990 


JR 


Z,ATT2 


;Jump if so 


2484 FE20 


01000 


CP 


i i 


; Ignore spaces 


2486 2005 


01010 


JR 


NZ,ATT3 


;Assume parm on dif char 


2488 23 


01020 


INC 


HL 




2489 18F4 


01030 


JR 


ATT1 




248B 23 


01040 ATT2 


INC 


HL 


;Bump past ' (' 


248C 7E 


01050 


LD 


A S (HL) 




248D FE49 


01060 ATT3 


CP 


•r 


;Ck for INV 


248F 2870 


01070 


JR 


Z,DQINV 




2491 FE56 


01080 


CP 


'V' 


;Ck for VIS 


2493 287E 


01090 


JR 


Z.DOVIS 




2495 FE55 


01100 


CP 


•U' 


;Ck for USER 


2497 CA2525 


01110 


JP 


Z, DOUSE 




249A FE4F 


01120 


CP 


'0' 


;Ck for OWNER 


249C CA3A25 


01130 


JP 


Z,D00WN 
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249F FE50 


01140 




CP 


.p. 


;Ck for PROT 


24A1 C22724 


01150 
01160 


» 


JP 


NZ, ATBERR 


;Err if none of the above 




01170 


» 


Process PROT=parm 






01180 


» 








24A4 CD6925 


01190 




CALL 


PRSFLD 


;Parse field 


24A7 CA2724 


01200 




JP 


Z S ATBERR 


;Error if end of line 


24AA E5 


01210 




PUSH 


HL 


;Save ptr to next char 


24AB 0608 


01220 




LD 


B,8 


;Init for 8 prots 


24AD ED5B3329 01230 




LD 


DE 9 (PSWDBUF) 


;P/u 1st 2 chars 


24B1 215328 


01240 




LD 


HL,PROTS$ 


;Pt to various prots 


24B4 7E 


01250 


DOPR01 


LD 


A,(HL) 


;P/u 1st prot char 


24B5 23 


01260 




INC 


HL 


;Bump pointer 


24B6 BB 


01270 




CP 


E 


;Does 1st match? 


24B7 CCC124 


01280 




CALL 


Z 9 DOPR02 


;Check 2nd if 1st OK 


24BA 23 


01290 




INC 


HL 


;Bump to next 


24BB 10F7 


01300 




DJNZ 


DOPR01 


;Loop for al 1 8 


24BD El 


01310 




POP 


HL 


; Stack integrity 


24BE C32724 


01320 
01330 


9 


JP 


ATBERR 


;Abort if no match 




01340 


J 


Check 


2nd prot= char fo 


r match 




01350 


S 








24C1 7E 


01360 


DOPR02 


LD 


A S (HL) 


;P/u 2nd table char 


24 C2 BA 


01370 




CP 


D 


;Match user's entry? 


24C3 C0 


01380 




RET 


NZ 


;Go back if not 


24C4 Fl 


01390 




POP 


AF 


;Pop the ret addr 


24C5 78 


01400 




LD 


A S B 


Calculate which prot was 


24C6 3D 


01410 




DEC 


A 


; entered by the user 


24C7 2814 


01420 




JR 


Z 9 DOPR03 


;Jump on PR0T=FU 


24C9 FE05 


01430 




CP 


5 


;REname 9 REad, REmove? 


24CB 2010 


01440 




JR 


NZ 9 DOPR03 


;Go if none of the above 


24CD 3A3529 


01450 




LD 


A 9 (PSWDBUF+2) 


;P/u user's 3rd char 


24D0 FE4E 


01460 




CP 


'N' 


;Was it 'N'? 


24 D2 3E02 


01470 




LD 


A 9 2 


;Ini t for RE name 


24 D4 2807 


01480 




JR 


Z S DOPR03 


;Go if REName 


24D6 3D 


01490 




DEC 


A 


;Else i nit to REMove 


24D7 FE4D 


01500 




CP 


'M' 


; & test entry 


24 D9 2802 


01510 




JR 


Z 9 DOPR03 




24 DB 3E05 


01520 




LD 


A 9 5 


; else assume REAd 


24 DD 32A925 


01530 


DOPR03 


LD 


(PROTLVL+l) s A 


;Stuff protection level 


24E0 El 


01540 




POP 


HL 


;Rcvr INBUF$ pointer 


24E1 0601 


01550 




LD 


B,l 


;Init to show PROT given 


24E3 7E 


01560 


DOPR04 


LD 


A 9 (HL) 


;P/u next parm 


24E4 FE22 


01570 




CP 


i ii i 


;Closing quote on last? 


24 E6 2001 


01580 




JR 


NZ 9 DOPR05 


;Go if something else 


24E8 23 


01590 




INC 


HL 


;Ignore closing quote 


24E9 3AA125 


01600 


DOPR05 


LD 


A,(PRMCOD+l) 


;P/u parm test bits 


24 EC B0 


01610 




OR 


B 


; Merge PROT entered 


24ED 32A125 


01620 




LD 


(PRMC0D+1) 9 A 


;Restuff parm test bits 


24F0 7E 


01630 




LD 


A,(HL) 


;P/u next char 


24F1 FE0D 


01640 




CP 


CR 


;End of line? 


24F3 2802 


01650 




JR 


Z,$+4 


;Go on end-of-line 


24F5 FE29 


01660 




CP 


')' 


;End of parms? 


24F7 CA9525 


01670 




JP 


Z 9 UPDDIR 


;Go on end of parms 


24FA FE2C 


01680 




CP 


i i 

s 


;More parms? 


24 FC 288 D 


01690 




JR 


Z 9 ATT2 


;Loop on more parms 


24FE C32724 


01700 
01710 


» 


JP 


ATBERR 


;Exit on wrong char 




01720 


» 


Proces 


s INV parm 






01730 


» 








2501 CD6925 


01740 


DOIIW 


CALL 


PRSFLD 


; Parse parm 
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2504 C22724 


01750 




JP 


NZ,ATBERR 


;Go on parm error 


2507 3AB125 


01760 




LD 


A,(IVCOD+l) 


;Set bit 3 to indicate 


250A F608 


01770 




OR 


8 


; that INV given 


250C 32B125 


01780 




LD 


(IVCOD+D.A 




250F 0608 


01790 




LD 


B,8 


;Show vis/inv done 


2511 18D6 


01800 
01810 


s 


JR 


DOPR05 


;Merge w/prev. parms 




01820 


9 


Process 


VIS parm 






01830 


9 








2513 CD6925 


01840 


DOVIS 


CALL 


PRSFLD 


;Parse parm 


2516 C22724 


01850 




JP 


NZ,ATBERR 


;Quit on parm error 


2519 3AB125 


01860 




LD 


A,(IVCOD+l) 


;Strip bit 3 


251C E6F7 


01870 




AND 


0F7H 




251E 32B125 


01880 




LD 


(IVCOD+D.A 




2521 0608 


01890 




LD 


B,8 


;Show vis/inv done 


2523 18C4 


01900 
01910 


» 


JR 


DOPR05 


;Merge w/prev. parms 




01920 


» 


Process 


USER parm 






01930 


s 








2525 CD6925 


01940 


DOUSE 


CALL 


PRSFLD 


; Parse parm 


2528 CA2724 


01950 




JP 


Z 9 ATBERR 


;Quit on parm error 


252B E5 


01960 




PUSH 


HL 


;Save cmdline ptr 


252C 113329 


01970 




LD 


DE S PSWDBUF 




252F CD4727 


01980 




CALL 


DO HASH 


;Hash the password 


2532 223D29 


01990 




LD 


(HASHBUF+2),HL 


;Set into position 


2535 El 


02000 




POP 


HL 




2536 0602 


02010 




LD 


B,2 


;Show user done 


2538 18A9 


02020 
02030 


» 


JR 


DOPR04 


; Merge w/prev. parms 




02040 


9 


Process 


OWNER parm 






02050 


9 








253A CD6925 


02060 


DOOWN 


CALL 


PRSFLD 


; Parse parm 


253D CA2724 


02070 




JP 


Z 9 ATBERR 


;Qirit on parm error 


2540 E5 


02080 




PUSH 


HL 


;Save cmdline ptr 


2541 113329 


02090 




LD 


DE,PSWDBUF 




2544 CD4727 


02100 




CALL 


DOHASH 


;Hash the password 


2547 223B29 


02110 




LD 


(HASHBUF) S HL 




254A El 


02120 




POP 


HL 




254B 0604 


02130 




LD 


B s 4 


;Show OWNER done 


254D 1894 


02140 
02150 


9 


JR 


DOPR04 


; Merge w/prev. parms 




02160 


9 


Transfer the field, 1st 


char alpha 




02170 


9 








254F 7E 


02180 XSPEC8A LD 


A S (HL) 


;P/u a filespec character 


2550 23 


02190 




INC 


HL 


; & 1st test for A-Z 


2551 1809 


02200 




JR 


XSPEC10 




2553 7E 


02210 XSPEC9 


LD 


A,(HL) 


;P/u a filespec character 


2554 23 


02220 




INC 


HL 


;Advance to next one 


2555 FE30 


02230 




CP 


'0' 


;Check for 0-9 


2557 D8 


02240 




RET 


C 


;Quit if < 


2558 FE3A 


02250 




CP 


'9'+l 




255A 3806 


02260 




JR 


C.XSPEC11 


;Go if numeric 


255C FE41 


02270 


XSPEC10 CP 


'A' 


;Check for A-Z 


255E D8 


02280 




RET 


C 




255F FE5B 


02290 




CP 


'Z'+l 




2561 D0 


02300 




RET 


NC 




2562 12 


02310 


XSPEC11 


LD 


(DE),A 


;Character is valid 


2563 13 


02320 




INC 


DE 


;Advance to next one 


2564 10ED 


02330 




DJNZ 


XSPEC9 


; & loop 


2566 7E 


02340 




LD 


A,(HL) 


;P/u following character 


2567 23 


02350 




INC 


HL 
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2568 C9 


02360 
02370 


s 


RET 




;Go home 




02380 


» 


Parse rest of parm (ignore until separator) 




02390 


i 








2569 23 


02400 


PRSFLD 


INC 


HL 




256A 7E 


02410 




LD 


A,(HL) 


;Get next char 


256B FE0D 


02420 




CP 


CR 


;Ret on end of line 


256D C8 


02430 




RET 


Z 




256E FE29 


02440 




CP 


')' 


;Ret on closing paren 


2570 C8 


02450 




RET 


Z 




2571 FE2C 


02460 




CP 


» 


;Ret on separator 


2573 C8 


02470 




RET 


z 




2574 FE3D 


02480 




CP 


1 — 1 


;Assignment operator? 


2576 20F1 


02490 




JR 


NZ, PRSFLD 


;Loop if not 


2578 23 


02500 




INC 


HL 




2579 7E 


02510 




LD 


A,(HL) 




257A FE22 


02520 




CP 


i ii i 


;Is quote there? 


257C 2001 


02530 




JR 


NZ,$+3 




257E 23 


02540 




INC 


HL 


; Bypass the quote 


257F 113329 


02550 




LD 


DE,PSWDBUF 




2582 0608 


02560 




LD 


B,8 




2584 D5 


02570 




PUSH 


DE 




2585 C5 


02580 




PUSH 


BC 




2586 3E20 


02590 




LD 


A,' ' 


; Space out the buffer 


2588 12 


02600 


PRSF01 


LD 


(DE),A 




2589 13 


02610 




INC 


DE 




258A 10FC 


02620 




DJNZ 


PRSF01 




258C CI 


02630 




POP 


BC 




258D Dl 


02640 




POP 


DE 




258E CD4F25 


02650 




CALL 


XSPEC8A 


;Transfer the spec 


2591 2B 


02660 




DEC 


HL 




2592 F601 


02670 




OR 


1 


;Show got a parm 


2594 C9 


02680 
02690 


S 


RET 








02700 


S 


Routine 


updates file's 


directory data 




02710 


S 








2595 ED4B4529 02720 


UPDDIR 


LD 


BC,(FCB+6) 


;P/u drive & DEC 


2599 


02730 




00DIRRD 


i 


;Read its directory 


2599 3E57 


00016 




LD 


A, 87 




259B EF 


00017 




RST 


40 




259C C20C24 


02740 




JP 


NZ, IOERR 


;Quit on read error 


259F 7E 


02750 




LD 


A,(HL) 


;P/u attributes byte 


25A0 1600 


02760 


PRMCOD 


LD 


D,$-$ 


;P/u parm test bits 


25A2 CB42 


02770 




BIT 


S D 


;Was Prot entered? 


25A4 2804 


02780 




JR 


Z S UPDIR1 


;Jump if not 


25A6 E6F8 


02790 




AND 


0F8H 


;Rmv prot level 


25 A8 F600 


02800 


PROTLVL 


OR 





; Merge new prot level 


25AA CB5A 


02810 UPDIR1 


BIT 


3 9 D 


;Was Inv or Vis entered? 


25AC 2804 


02820 




JR 


Z,UPDIR2 


; Bypass if not 


25AE E6F7 


02830 




AND 


0F7H 


;Remove any vis/inv 


25B0 F600 


02840 


IVCOD 


OR 





; Merge new inv/vis 


25B2 77 


02850 UPDIR2 


LD 


(HL) 9 A 


; & update dir rec 


25B3 7D 


02860 




LD 


A,L 


;Pt to owner pswd 


25B4 C610 


02870 




ADD 


A, 16 




25B6 6F 


02880 




LD 


L,A 




25B7 CB52 


02890 




BIT 


2,D 


;Was OWN parm entered? 


25B9 280A 


02900 




JR 


Z,UPDIR3 


; Bypass if not 


25BB 3A3B29 


02910 




LD 


A,(HASHBUF) 


jXfer new hashed pswd 


25BE 77 


02920 




LD 


(HL),A 


; into the directory 


25BF 3A3C29 


02950 




LD 


A,(HASHBUF+1) 


; OWNER psw position 


25C2 23 


02940 




INC 


HL 
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25C3 77 


02950 


LD 


(HL),A 




25C4 2B 


02960 


DEC 


HL 




CJU V Cm\J 


02970 UPDIR3 


INC 


HL 


; Bypass own pswd field 


25C6 23 


02980 


INC 


HL 




25C7 CB4A 


02990 


BIT 


1,D 


;Was USER parm entered? 


25C9 2809 


03000 


JR 


Z.UPDIR4 


; Bypass if not 


25CB 3A3D29 


03010 


LD 


A,(HASHBUF+2) 


;Xfer the new hashed pswd 


25CE 77 


03020 


LD 


(HL),A 


; into the directory 


25CF 3A3E29 


03030 


LD 


A,(HASHBUF+3) 


; USER psw position 


25D2 23 


03040 


INC 


HL 




25D3 77 


03050 


LD 


(HL) S A 




25 D4 


03060 UPDIR4 


@@DIRWR 




;Write dir back to disk 


25D4 3E58 


00018 


LD 


A 9 88 




25 D6 EF 


00019 


RST 


40 




25D7 C20C24 


03070 


JP 


NZ S IOERR 


; Abort on write error 


25DA C9 


03080 
03090 ; 


RET 




;Done - return 




03100 ; 


Change 


attributes of entire disk 




03110 ; 








25 DB 0E00 


03120 PROT 


LD 


C s 


;Init for drive 


25DD 2B 


03130 


DEC 


HL 


; Backup to separator 


25DE 7E 


03140 


LD 


A,(HL) 


;Ck for drive entered 


25DF FE3A 


03150 


CP 


i.i 


; Col on indicator? 


25E1 2018 


03160 


JR 


NZ 9 PROT01 


.; Bypass if not 


uJLO lj 


03170 
03180 ; 


INC 


HL 


; Point to drive # 




03190 ; 


Is the 


drivespec legal 


(0-7) ? 




03200 ; 








25E4 7E 


03210 


LD 


A,(HL) 


;P/u drive 


25E5 D630 


03220 


SUB 


.0. 


;Cvrt to binary 


25E7 3804 


03230 


JR 


C s ILLDRVN 


;Less than 0, illegal 


25E9 FE08 


03240 


CP 


7+1 


;Greater than 7 ? 


25EB 3F 


03250 


CCF 






25 EC 4F 


03260 


LD 


C } A 




25 ED 3E20 


03270 ILLDRVN 


LD 


A, 32 


;Init "Illegal Drive # 


25 EF DA0C24 


03280 
03290 ; 


JP 


C 9 I0ERR 






03300 ; 


Drive # 


is legal - Check it out 




03310 ; 








25F2 


03320 


@@CKDRV 




;Do a check drive 


25F2 3E21 


00020 


LD 


A s 33 




25F4 EF 


00021 


RST 


40 




25F5 3E20 


03330 


LD 


A, 32 


;Init "Illegal drive 


25F7 C20C24 


03340 
03350 ; 


JP 


NZ, IOERR 


;Go if bad 


25 FA 23 


03360 


INC 


HL 


;Bump line pointer 


25FB 79 


03370 PROT01 


LD 


A,C 




25FC 321427 


03380 


LD 


(TSTMPW+1),A 


; Stuff drive for later 


25FF 


03390 


00GTDCT 




;Get DCT -> IY 


25FF 3E51 


00022 


LD 


A,81 




2601 EF 


00023 


RST 


40 




2602 110A29 


03400 


LD 


DE,PRMTBL$ 


;Get parms 


2605 


03410 


00PARAM 






2605 3E11 


00024 


LD 


A,17 




2607 EF 


00025 


RST 


40 




2608 C20C24 


03420 


JP 


NZ, IOERR 


;Quit on parm error 


260B 3A6626 


03430 


LD 


A, (PPARM+1) 


;Make sure a parm 


260E 218926 


03440 


LD 


HL,LPARM+1 


; was entered 


2611 B6 


03450 


OR 


(HL) 




2612 219326 


03460 


LD 


HL S UPARM+1 




2615 B6 


03470 


OR 


(HL) 
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2616 212426 


03480 


LD 


HL,NPARM+1 




2619 B6 


03490 


OR 


(HL) 




261A CA2324 


03500 


JP 


Z,NOTDUN 


;Quit if none entered 


261D CD1327 


03510 


CALL 


TSTMPW 


;Test master password 


2620 C20C24 


03520 


JP 


NZ, IOERR 


;Quit on error 


2623 110000 


03530 NPARM 


LD 


DE,0 


;P/U Name parm 


2626 7A 


03540 


LD 


A,D 




2627 B3 


03550 


OR 


E 




2628 283B 


03560 


JR 


Z, PPARM 


;Jump if name not entered 


262A 218828 


03570 


LD 


HL,PACKNM$ 


;Get name into bufl 


262D CD4A27 


03580 


CALL 


GMPW1 




2630 C20C24 


03590 


JP 


NZ, IOERR 


;Quit on error 


2633 21002A 


03600 


LD 


HL, BUFFER 


;HL = new name 


2636 11D02B 


03610 


LD 


DE,GATBUF+0D0H 


; Where new name goes 


2639 D5 


03620 


PUSH 


DE 




263A E5 


03630 


PUSH 


HL 




263B 010800 


03640 


LD 


BC,8 


;Name len 


263E EDB0 


03650 


LDIR 




;Xfer new name 


2640 El 


03660 


POP 


HL 




2641 110200 


03670 


LD 


DE,2 


;Trk 0, sect 2 


2644 3A1427 


03680 


LD 


A,(TSTMPW+1) 


;P/u drive 


2647 4F 


03690 


LD 


C,A 




2648 


03700 


GH3RDSEC 




;Read SIS 


2648 3E31 


00026 


LD 


A, 49 




264A EF 


00027 


RST 


40 




264B El 


03710 


POP 


HL 


;Get Name pointer 


264C C20C24 


03720 


JP 


NZ, IOERR 


;Quit if read error 


264F C5 


03730 


PUSH 


BC 


;Save drive 


2650 11102A 


03740 


LD 


DE,BUFFER+10H 


; Point to where name goes 


2653 010800 


03750 


LD 


BC,8 




2656 EDB0 


03760 


LDIR 




;Xfer new name to SIS 


2658 CI 


03770 


POP 


BC 


;Recover drive 


2659 110200 


03780 


LD 


DE,2 




265C 21002A 


03790 


LD 


HL, BUFFER 




265F 


03800 


@(3WRSEC 




;Write new SIS 


265F 3E35 


00028 


LD 


A, 53 




2661 EF 


00029 


RST 


40 




2662 C20C24 


03810 


JP 


NZ, IOERR 


;Quit on write error 


2665 110000 


03820 PPARM 


LD 


DE,0 


;Was PW parm used? 


2668 7A 


03830 


LD 


A,D 




2669 B3 


03840 


OR 


E 




266A 280C 


03850 


JR 


Z,PROT02 


;Jump if PW not entered 


266C 21A028 


03860 


LD 


HL,NEWMPW$ 


; Buffer for new MPW 


266F CD3A27 


03870 


CALL 


GETMPW 


; Input the new one 


2672 C20C24 


03880 


JP 


NZ, IOERR 


;Quit if bad PW 


2675 22CE2B 


03890 


LD 


(GATBUF+0CEH),HL ; Stuff PW 


2678 FD5609 


03900 PROT02 


LD 


D,(IY+9) 


;Dir cl => reg D 


267B 3A1427 


03910 


LD 


A,(TSTMPW+1) 


;P/u drive 


267E 4F 


03920 


LD 


C,A 




267F CDCD27 


03930 


CALL 


GATWR 


; Write sector from buf 


2682 C20C24 


03940 


JP 


NZ, IOERR 


;Jump on write error 


2685 2ACE2B 


03950 


LD 


HL,(GATBUF+0CEH) ;P/u pack MPW 




03960 ; 










03970 ; 


Check on Lock or Unlock 






03980 ; 








2688 010000 


03990 LPARM 


LD 


BC,0 


;Lock parm used? 


268B 78 


04000 


LD 


A,B 




268C Bl 


04010 


OR 


C 




268D 119642 


04020 


LD 


DE,BLNKMPW 


;P/u blank MPW for test 


2690 2007 


04030 


JR 


NZ,PROT03 


;Jump if LOCK entered 


2692 010000 


04040 UPARM 


LD 


BC,0 


;Unlock parm used? 
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2695 78 

2696 Bl 

2697 C8 

2698 EB 



2699 
269C 
26A0 
26A3 
26 A4 
26A7 
26A9 
26AC 
26AC 
26 AE 
26AF 
26B2 
26B3 
26B4 
26B6 
26B7 
26 B8 
26B9 
26 BB 
26 BC 
26 BD 
26 BF 
26C1 
26C4 
26C4 
26C6 
26C7 
26CA 
26CB 
26CE 
26 D0 
26D1 
26 D3 
26 D5 
26 D7 
26 D8 
26 DA 
26 DB 
26 DC 
26 DD 
26 DE 
26 DF 
26 E0 
26 E3 
26E4 
26 E6 
26E7 
26 E9 
26 EC 
26 ED 
26 EE 
26 EF 
26F0 
26F1 



22EA26 

ED53E126 

3A1427 

4F 

FD5609 

1E01 

21002C 

3E55 

EF 

C20C24 

7E 

B7 

2842 

45 

C5 

7D 

E6E0 

6F 

A8 

FEFF 

280D 

32 BE 26 

3E57 

EF 

C20C24 

7C 

32CF26 

2600 

7E 

E6F8 

FE10 

201 D 

7D 

C610 

6F 

D5 

E5 

5E 

23 

56 

210000 

AF 

ED52 

El 

200A 

110000 

73 

2C 

72 

2C 

73 

2C 



04050 

04060 

04070 

04080 

04090 

04100 

04110 

04120 PROT03 

04130 

04140 

04150 

04160 

04170 

04180 

04190 

00030 

00031 

04200 

04210 PROT04 

04220 

04230 

04240 

04250 

04260 

04270 

04280 

04290 

04300 PROT05 

04310 

04320 

04330 

00032 

00033 

04340 

04350 

04360 

04370 PROT06 

04380 

04390 

04400 

04410 

04420 

04430 

04440 

04450 

04460 PROT07 

04470 

04480 

04490 

04500 THISPW 

04510 

04520 

04530 

04540 

04550 

04560 

04570 

04580 

04590 

04600 

04610 



LD 
OR 
RET 
EX 



A,B 
C 
Z 
DE,HL 



; Neither LOCK or UNLOCK 
; Switch New & Test MPW 



Lock to pack MPW or unlock pswds to blanks 



REVMPW 



LD 

LD 

LD 

LD 

LD 

LD 

LD 

@(3RDSSC 

LD 

RST 

JP 

LD 

OR 

JR 

LD 

PUSH 

LD 

AND 

LD 

XOR 

CP 

JR 

LD 

00DIRRD 

LD 

RST 

JP 

LD 

LD 

LD 

LD 

AND 

CP 

JR 

LD 

ADD 

LD 

PUSH 

PUSH 

LD 

INC 

LD 

LD 

XOR 

SBC 

POP 

JR 

LD 

LD 

INC 

LD 

INC 

LD 

INC 



(REVMPW+1),HL 

(THISPW+1),DE 

A,(TSTMPW+1) 

C,A 

D,(IY+9) 

E,l 

HL.HITBUF 

A, 85 

40 

NZ, IOERR 

A,(HL) 

A 

Z,PROT09 

B,L 

BC 

A,L 

0E0H 

B 

0FFH 

Z,PROT06 

(PROT05+1),A 

A, 87 

40 

NZ, IOERR 

A,H 

(PROT06+1),A 

H,$-3> 

A,(HL) 

0F8H 

10H 

NZ,PROT08 

A,L 

A, 16 

L,A 

DE 

HL 

E,(HL) 

HL 

D,(HL) 

HL,$-$ 

A 

HL,DE 

HL 

NZ,PROT07B 

DE,$-$ 

(HL),E 

L 

(HL),D 

L 

(HL),E 

L 



; Stuff New MPW 
; Stuff test MPW 
;P/u drive # 

;Get dir cyl => reg D 
; Point to HIT 
; Point to HIT buffer 
;Read it into buffer 



Quit on read error 
P/u a DEC 

Loop on spare 

Put DEC in reg B 
& save it in stack 

Ck if this DEC points 
to same dir sector as 
the previous DEC 

1st time, no DEC 
Jump if the same 
Save it for testing 
Read this dir sector 



;Quit on read error 
;Set hi -order SBUFF$ 

; Point to buf hi -order 
;P/u type code 
;Remove protection 
;Jump if INV, SYS, FXDE 

; Point to password fields 



;Save reg DE 

;Save pointer to OWNER 

;P/u owner MPW 



;P/u test MPW & see 
; if this one matches 

;Restore ptr to OWN 
; Don't change if diff 
; else p/u new MPW 
: & insert it 



;Change USER pw 
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26F2 
26F3 
26F4 
26F5 
26F7 
26F8 
26F9 
26FB 
26FC 
26FE 
2701 
2702 
2704 
2705 
2705 
2707 
2708 
2709 
270C 
270D 
270E 
2710 
2712 



72 

Dl 

CI 

262C 

68 

7D 

C620 

6F 

30 B4 

3 ABE 26 

AD 

2008 

E5 

3E58 

EF 

El 

C20C24 

7D 

2C 

FE1F 

20A0 

C9 



2713 mm 

2715 CDCC27 

2718 C0 

2719 2ACE2B 
271C 11E042 
271F AF 

2720 ED52 
2722 C8 



2723 110000 
2726 21B828 
2729 CD3A27 
272C C0 
272 D EB 
272E 2ACE2B 

2731 AF 

2732 ED52 
2734 21D028 
2737 3E3F 
2739 C9 



273A CD4A27 
273D 2808 
273F FE3F 

2741 C0 

2742 21D028 

2745 B7 

2746 C9 

2747 3EE4 
2749 EF 



04620 
04630 
04640 
04650' 
04660 
04670 
04680 
04690 
04700 
04710 
04720 
04730 



04750 



00035 
04760 



04780 
04790 
04800 
04810 
04820 
04830 



PROT07B POP 
PROT08 POP 

LD 

LD 
PROT09 LD 

ADD 

LD 

JR 

LD 

XOR 

JR 

PUSH 

@@DIRWR 

LD 

RST 

POP 

JP 
PROT10 LD 

INC 

CP 

JR 

RET 



(HL) S D 

DE 

BC 

H,HITBUF<-8 

L,B 

A 9 L 

A 9 32 

L A 

NC 9 PROT04 

A,(PROT05+1) 

L 

NZ,PROT10 

HL 

A, 88 

40 

HL 

NZ S IOERR 

A,L 

L 

1FH 

NZ.PROT04 



;Restore reg DE 
;Recover DEC 
; Point to HIT hi -order 
;Stuff HIT lo-order 
; Point to next entry 
; for this dir sector 

;Jump if still in same 
;P/u current DEC 

;Jump if different 

; Write out this sector 



Quit on write error 
Advance to the next 

directory sector 
At end of disk? 
Loop if not 

else go home 



04850 
04860 
04870 
04880 
04890 
04900 
04910 
04920 
04930 



; Routine to test master password for match 

TSTMPW LD C 9 $-$ ;Init to drive requested 

CALL GATRD ;Read GAT into GATBUF 

RET NZ ;Back on error 

LD HL 9 (GATBUF+0CEH) 

LD DE S PASSWORD ;Password=PASSWORD? 

XOR A 

SBC HL 9 DE 

RET Z ;Back if PASSWORD 



04950 ; 
04960 ; 
04970 MPARM 
04980 
04990 



05010 

05020 

05030 

05040 

05050 

05060 

05070 

05080 ; 

05090 ; 

05100 ; 

05110 GETMPW 

05120 

05130 

05140 

05150 

05160 

05170 

05180 DOHASH 

05190 

05200 ; 



MPW is not "PASSWORD" - check entry match 

LD DE,0 ;P/u MPW string addr 

LD HL S CURMPW$ ;Init prompt 

CALL GETMPW ;Hash parm or entry 

RET NZ ;Back on bad PW 

EX DE,HL ;Xfer hashed MPW to DE 

LD HL,(GATBUF+0CEH) ;Grab pack MPW & 

XOR A ; check if user entered 

SBC HL,DE ; the pack MPW 

LD HL 9 BADMPW$ ;Init error pointer 

LD A 9 63 ;Set extended error 

RET ;Z or NZ 

Enter SYS2 & hash the password 

;Get MPW into buffer 



CALL 

JR 

CP 

RET 

LD 

OR 

RET 

LD 

RST 



GMPW1 

Z 9 DOHASH 

63 

NZ 

HL,BADMPW$ 

A 

A 9 0E4H 
28H 



; Extended error? 

; Switch error message 
; to password error 

;Hash password (DE) to HL 
;Ret to what called 
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274A 7A 
274B B3 
274C 281D 
274E 3C 
274F 281A 



2751 21002A 

2754 E5 

2755 0608 

2757 1A 

2758 FE0D 
275A 282F 
275C FE2C 
275E 282B 
2760 FE22 
2762 2827 

2764 13 

2765 77 

2766 23 

2767 10EE 
2769 1825 



276B CDF827 
276E C0 
276F 



276F 
2771 
2772 
2773 
2776 
2779 
277A 
277A 
277C 
277D 
2780 
2781 
2783 
2784 
2785 
2787 
2788 
278A 
278B 
278 D 
278E 



3E0A 

EF 

C0 



21002A 
E5 

3E09 

EF 

DA1B24 

EB 

2600 

68 

19 

3E08 

90 

2806 

47 

3620 

23 

10FB 



05210 ; 

05220 ; 

05230 GMPW1 

05240 

05250 

05260 

05270 

05280 

05290 

05300 

05310 

05320 

05330 

05340 GMPW2 

05350 

05360 

05370 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 ; 

05470 ; 

05480 ; 

05490 GMPW3 

05500 

05510 

00036 

00037 

00038 

00039 

00040 

05520 

05530 

05540 

05550 

05560 



Routine places a password field into buffer 



2790 El 

2791 E5 

2792 0608 



00042 

05570 

05580 

05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 GMPW4 

05670 

05680 

05690 ; 

05700 ; 

05710 ; 

05720 CKMPW 

05730 

05740 



LD 

OR 

JR 

INC 

JR 



A,D 

E 

Z,GMPW3 

A 

Z,GMPW3 



;Test if user entered MPW 

; Prompt if not 

; or if no operand 



Place entered password into buffer 



LD 

PUSH 

LD 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

INC 

LD 

INC 

DJNZ 

JR 



HL, BUFFER 

HL 

B ,8 

A,(DE) 

CR 

Z,GMPW4 
i i 

Z,'GMPW4 
i ii i 

Z,GMPW4 

DE 

(HL),A 

HL 

GMPW2 

CKMPW 



; Point to buffer 

; Init for 8 chars 
;P/u a char 
;End of line? 

; Comma separator? 

;Closing quote? 

;Bump input pointer 
; Transfer character 
;Bump output pointer 
;Loop until done 



MPW not entered - Prompt & fetch 

; Can't prompt in <D0> 
; Display prompt 



CALL CKINDO 
RET NZ 
@@DSPLY 
IFEQ 00H,1 



LD 

ENDIF 

LD 

RST 

RET 

LD 

LD 

PUSH 

(3(3KEYIN 

LD A,9 



HL, 

A, 10 

40 

NZ 

BC S 8<8 

HL, BUFFER 

HL 



RST 

JP 

EX 

LD 

LD 

ADD 

LD 

SUB 

JR 

LD 

LD 

INC 

DJNZ 



40 

C, ABORT 

DE,HL 

H,0 

L,B 

HL.DE 

A,8 

B 

Z, CKMPW 

B,A 

(HL),' ' 

HL 

GMPW4 



;Init for 8 chars 
; Point to buffer 

;Get parm input 



;Quit on Break 

; Start pointer to reg DE 

^Calculate trailing 

; spaces needed for MPW 



Go if 8 chars entered 
Set loop count 

and fi 11 to end 

with spaces 



Convert (SP) through (SP)+7 to upper case 

;Get buffer start 
;Init loop 8 chars 



POP HL 
PUSH HL 
LD B 9 8 
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2794 7E 


05750 


LD 


A,(HL) 


;P/u 1st char 


2795 180E 


05760 


JR 


CKMPW2 


; & check <A-Z> 


2797 23 


05770 CKMPW1 


INC 


HL 




2798 7E 


05780 


LD 


A,(HL) 




2799 FE20 


05790 


CP 


i i 


;Got to a space? 


279B 2823 


05800 


JR 


Z.CKMPW7 




279D FE30 


05810 


CP 


'0- 


;Less than '0' is error 


279F 3823 


05820 


JR 


C, INVNAM 




27A1 FE3A 


05830 


CP 


'9'+l 


;<0-9> is okay for 2-n 


27A3 3812 


05840 


JR 


CCKMPW3 




27A5 FE41 


05850 CKMPW2 


CP 


'A' 


;Less than "A" is error 


27A7 381B 


05860 


JR 


C, INVNAM 




27A9 FE5B 


05870 


CP 


'Z'+l 


;<A-Z> is okay 


27AB 380A 


05880 


JR 


CCKMPW3 




27AD FE61 


05890 


CP 


'a' 


;Ck convert to upper 


27AF 3813 


05900 


JR 


C, INVNAM 




27B1 FE7B 


05910 


CP 


'z'+l 




27B3 300F 


05920 


JR 


NC, INVNAM 




27B5 CBAE 


05930 


RES 


5,(HL) 




27B7 10DE 


05940 CKMPW3 


DJNZ 


CKMPW1 


;Loop if more 


27B9 Dl 


05950 CKMPW4 


POP 


DE 


;Point to buffer start 


27 B A AF 


05960 


XOR 


A 


;Set Z = good 


27BB C9 


05970 
05980 ; 


RET 






27BC 23 


05990 CKMPW5 


INC 


HL 




27BD BE 


06000 


CP 


(HL) 


;No imbedded spaces 


27BE 2004 


06010 


JR 


NZ 9 INVNAM 




27C0 10FA 


06020 CKMPW7 


DJNZ 


CKMPW5 


;A space found, now 


27C2 18F5 


06030 


JR 


CKMPW4 


; must be all spaces 


27C4 21E828 


06040 INVNAM 


LD 


HL 9 BADNAM$ 


;Pt to error string 


27C7 3E3F 


06050 


LD 


A 9 63 


; Ini t extended error 


27C9 B7 


06060 


OR 


A 


;Set NZ 


27 CA Dl 


06070 


POP 


DE 




27CB C9 


06080 
06090 ; 


RET 








06100 ; 


Read or 


write the granu 


le allocation table 




06110 ; 








27CC F6 


06120 GATRD 


DB 


0F6H 


;Set NZ for test 


27CD AF 


06130 GATWR 


XOR 


A 


;Set Z for test 


27CE D5 


06140 


PUSH 


DE 




27CF E5 


06150 


PUSH 


HL 




27D0 F5 


06160 


PUSH 


AF 




27D1 FDE5 


06170 


PUSH 


IY 




27D3 


06180 


QGGTDCT 




;DCT to reg IY 


27D3 3E5L 


00043 


LD 


A s 81 




27D5 EF 


00044 


RST 


40 




27D6 FD5609 


06190 


LD 


D,(IY+9) 


;Get dir track 


27D9 FDE1 


06200 


POP 


IY 




27DB 21002B 


06210 


LD 


HL.GATBUF 




27DE 5D 


06220 


LD 


E,L 


;Set to sector 


27DF Fl 


06230 


POP 


AF 




27E0 2807 


06240 


JR 


Z,GATRW1 


;Go if GAT write 


27E2 


06250 


0GRDSSC 






27E2 3E55 


00045 


LD 


A, 85 




27E4 EF 


00046 


RST 


40 




27E5 3E14 


06260 


LD 


A,14H 


;Init "GAT read error 


27E7 180C 


06270 


JR 


GATRW3 




27E9 


06280 GATRW1 


(30WRSSC 






27E9 3E36 


00047 


LD 


A, 54 




27EB EF 


00048 


RST 


40 




27 EC 2003 


06290 


JR 


NZ.GATRW2 


;Skip verify if error 
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27EE 

27EE 3E32 
27F0 EF 
27F1 FE06 
27F3 3E15 
27F5 El 
27F6 Dl 
27F7 C9 

27F8 FDE5 

27FA 

27FA 3E65 

27FC EF 

27FD FDCB126E 

2801 FDE1 

2803 C8 

2804 216328 
2807 3E3F 
2809 C9 



06300 

00049 

00050 

06310 GATRW2 

06320 

06330 GATRW3 

06340 

06350 

06360 ; 

06370 CKINDO 

06380 



280A 
281D 
2835 

2853 
2863 



2888 



28A0 



28 B8 



28 D0 



28 E8 



46 

69 6C 65 
20 72 65 

64 0D 
53 

70 65 63 
74 69 6F 

71 75 69 
41 

74 74 72 
20 73 70 
63 61 74 

72 72 6F 
4E 

4F 45 58 

52 52 4E 

49 

6E 76 61 

6F 6D 6D 

75 72 69 
20 70 72 

69 6E 67 
4E 

65 77 20 

70 61 63 
65 20 3F 
4E 

65 77 20 

72 20 70 

72 64 20 
4D 

61 73 74 

73 73 77 
20 20 20 
49 

6E 76 61 

61 73 74 

73 73 77 
49 



00051 

00052 

06390 

06400 

06410 

06420 

06430 

06440 

06450 ; 

06460 ; 

06470 ; 

06480 SPCREQ$ DB 

20 73 70 65 63 

71 75 69 72 65 



@@VRSEC 

LD 

RST 

CP 

LD 

POP 

POP 

RET 

PUSH 

00FLAGS 

LD 



A,50 

40 

6 

A,15H 

HL 

DE 



;Verify the write 



; Error 6 expected 
;Init "GAT write error 



IY 



RST 

BIT 

POP 

RET 

LD 

LD 

RET 

Messages 



A, 101 

40 

5,(IY+'S'-'A') 

IY 

Z 

HL s NOINDO$ 

A, 63 



;Ck on DO in effect 

Go back if not in DO 

else set error code 
;Set extended error 
: & back with NZ 



06490 
69 66 
6E 73 
72 65 
06500 
69 62 
65 63 
69 6F 
72 0D 
06510 
52 45 
52 4D 
06520 
6C 69 
61 6E 
6E 67 
6F 63 
0D 
06530 

64 69 
6B 20 
20 20 
06540 
6D 61 
61 73 
3F 20 
06550 

65 72 
6F 72 
20 20 
06560 
6C 69 
65 72 
6F 72 
06570 



N0TDUN$ DB 
69 63 61 
20 52 65 
64 0D 
ATBERR$ DB 
75 74 65 
69 66 69 
6E 20 65 

PROTS$ DB 
55 50 57 
46 55 

NOINDO$ DB 
64 20 63 

64 20 64 
20 44 4F 

65 73 73 

PACKNM$ DB 
73 6B 20 
6E 61 6D 
20 03 

NEWMPW$ DB 
73 74 65 
73 77 6F 
20 03 

CURMPW$ DB 
20 70 61 
64 20 3F 
20 03 

BADMPW$ DB 
64 20 6D 
20 70 61 
64 0D 
BADNAM$ DB 



'File spec required' ,CR 



Specifications Required' 9 CR 



Attribute specification error ' ,CR 



NOEXREUPWRRNRMFU' 



'Invalid command during DO processing' 9 CR 



New disk pack name ? ',3 



'New master password ? ',3 



'Master password ? 



Invalid master password' 9 CR 



' Invalid disk name',CR 
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ATTRIB - LS-DOS 6.2 Page 00 


6E 76 


61 


6C 69 64 20 64 




69 73 


6B 


20 6E 61 6D 65 




0D 










28FA 43 




06580 ABORTS 


DB 


'Command aborted ',CR 


6F 6D 


6D 


61 6E 64 20 61 




62 6F 


72 


74 65 64 0D 
06590 ; 






290A 80 




06600 PRMTBU DB 


80H 






06610 ; 






0080 




06620 VAL 


EQU 


80H 


0040 




06630 SW 


EQU 


40 H 


0020 




06640 STR 


EQU 


20H 


0010 




06650 SGL 
06660 ; 


EQU 


10H 


290B 62 




06670 


DB 


SW!STR!2 9 'PW',0 


50 57 


00 








290F 6626 




06680 


DW 


PPARM+1 


2911 54 




06690 


DB 


SW!SGL!4 9 'LOCK\0 


4C 4F 


43 


4B 00 






2917 8926 




06700 


DW 


LPARM+1 


2919 56 




06710 


DB 


SW ! SGL !6,' UNLOCK ',0 


55 4E 


4C 


4F 43 4B 00 






2921 9326 




06720 


DW 


UPARM+1 


2923 74 




06730 


DB 


SW!STR!SGL!4 S 'NAME',0 


4E 41 


4D 45 00 






2929 2426 




06740 


DW 


NPARM+1 


292B 73 




06750 


DB 


SW!STR!SGL!3 9 'MPW' S 


4D 50 57 


00 






2930 2427 




06760 


DW 


MPARM+1 


2932 00 




06770 
06780 ; 


NOP 




0008 




06790 PSWDBUF 


DS 


8 ; Password buffer 


0004 




06800 HASHBUF 


DS 


4 ;Owner & user hashes 


0020 




06810 FCB 
06820 ; 


DS 


32 


2A00 




06830 


ORG 


$<-8+l<+8 


0100 




06840 BUFFER 


DS 


256 


0100 




06850 GATBUF 


DS 


256 


0100 




06860 HITBUF 


DS 


256 



2400 



END 



ATTRIB 
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001 


0000 002 


0000 003 


0000 


004 


0000 0MOD2 


0000 0MOD4 


FFFF 


ABORT 


241B ABORTS 


28FA ATBERR 


2427 


ATBERR$ 


2835 ATT0 


2468 ATT01 


247B 


ATT02 


247E ATT1 


247F ATT2 


248B 


ATT3 


248 D ATTRIB 


2400 ATTRIB1 


2437 


BADMPW$ 


28 D0 BADNAM$ 


28E8 BLNKMPW 


4296 


BUFFER 


2A00 CKINDO 


27F8 CKMPW 


2790 


CKMPW1 


2797 CKMPW2 


27A5 CKMPW3 


27B7 


CKMPW4 


27B9 CKMPW5 


27BC CKMPW7 


27C0 


CR 


000D CURMPW$ 


28B8 DOHASH 


2747 


DOINV 


2501 DOOWN 


253A DOPR01 


24B4 


DOPR02 


24C1 DOPR03 


24 DD DOPR04 


24E3 


DOPR05 


24E9 DOUSE 


2525 DOVIS 


2513 


EXTERR 


242 A FCB 


293F GATBUF 


2B00 


GATRD 


27CC GATRW1 


27E9 GATRW2 


27F1 


GATRW3 


27F5 GATWR 


27CD GETMPW 


273A 


GMPW1 


274A GMPW2 


2757 GMPW3 


276B 


GMPW4 


278B HASHBUF 


293B HITBUF 


2C00 


ILLDRVN 


25 ED INVNAM 


27C4 IOERR 


240C 


IVCOD 


25B0 LPARM 


2688 MPARM 


2723 


NEWMPW$ 


28A0 NOINDOS 


2863 NOTDUN 


2423 


NOTDUN$ 


281D NPARM 


2623 PACKNMS 


2888 


PASSWORD 


42 E0 PPARM 


2665 PRMCOD 


25 A0 


PRMTBU 


290A PROT 


25DB PROT01 


25FB 


PROT02 


2678 PROT03 


2699 PROT04 


26B2 


PROT05 


26BD PROT06 


26CE PROT07 


26 DC 


PROT07B 


26F3 PROT08 


26F4 PROT09 


26F8 


PROT10 


270C PROTLVL 


25A8 PROTS$ 


2853 


PRSF01 


2588 PRSFLD 


2569 PSWDBUF 


2933 


REVMPW 


26E9 SAVESP 


2430 SGL 


0010 


SPCREQ 


241F SPCREQS 


280A STR 


0020 


SW 


0040 THISPW 


26E0 TSTMPW 


2713 


UPARM 


2692 UPDDIR 


2595 UPDIR1 


25AA 


UPDIR2 


25B2 UPDIR3 


25C5 UPDIR4 


25 D4 


VAL 


0080 XSPEC10 


255C XSPEC11 


2562 


XSPEC8A 


254F XSPEC9 


2553 00ABORT 


AC ED 


00ADTSK 


AD80 00BANK 


B298 00BKSP 


AF78 


0(3 BREAK 


B2AE 00CHNIO 


ACD8 00CKBRKC 


B2FC 


00CKDRV 


ADD4 00CKEOF 


AF8D 00CKTSK 


AD6B 


00CLOSE 


AF63 00CLS 


B2E6 00CMNDI 


AD17 


00CMNDR 


AD2C 00CTL 


AB3C 00DATE 


ACAE 


00DCSTAT 


AE13 00DEBUG 


AD56 00DECHEX 


B218 


00DIRRD 


B185 00DIRWR 


B19A 00DIV16 


B203 


00DIV8 


B1EE 00DODIR 


ADE9 00DSP 


AB00 


00DSPLY 


ABA0 00ERROR 


AD41 00EXIT 


AD02 


00FEXT 


B0F2 00FLAGS 


B282 00FNAME 


B107 


00FSPEC 


B0DD 00GATRD 


B170 00GATWR 


B1AF 


00GET 


AB14 00GTDCB 


B131 00GTDCT 


B11C 


00GTMOD 


B146 00HDFMT 


AEBB 00HEX16 


B257 


00HEX8 


B242 00HEXDEC 


B22D 00HIGH$ 


B26C 


00INIT 


AF39 00KBD 


AB78 00KEY 


AAEC 


00KEYIN 


AB8C 00KLTSK 


ADBF 00LOAD 


B0B3 


00LOC 


AFA2 00LOF 


AFB7 00LOGER 


ABD7 


00LOGOT 


ABEC 00MSG 


AC23 00MUL16 


B1D9 


00MUL8 


B1C4 00OPEN 


AF4E 00 PAR AM 


AC 99 


00PAUSE 


AC84 00PEOF 


AFCC 00POSN 


AFE1 


00 PR I NT 


AC38 00PRT 


AB50 00PUT 


AB28 


00RAMDIR 


ADFE 00RDSEC 


AE91 00RDSSC 


B15B 


00READ 


AFF6 00REMOV 


AF24 00RENAM 


AF0F 
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@@REW 


B00B G0RMTSK 


AD95 (a@RPTSK 


ADAA 


@@RREAD 


B020 @@RSLCT 


AE7C (3GRST0R 


AE3D 


@(3RUN 


B0C8 @<3RWRIT 


B035 @@SEEK 


AE67 


00SEEKSC 


B04A WSKIP 


B05F @@SLCT 


AE28 


@@STEPI 


AE52 0@TIME 


ACC3 00VDCTL 


AC6F 


@@VER 


B074 GGVRSEC 


AEA6 (30WEOF 


B089 


@@WHERE 


AB64 @@WRITE 


B09E @@WRSEC 


AED0 


(PGWRSSC 


AEE5 00WRTRK 


AEFA 




2400 is the 


transfer address 






00000 Total 


errors 
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0000 



0002 
0020 
0028 
0019 
0031 
0035 

2400 



;LBAUTO/ASM - AUTO Command 
00110 TITLE <AUTO - LS-DOS 6.2> 
00120 ; 
00130 ; 

00140 *GET SVCMAC:3 
00010 ;SVCMAC/ASM - LS-DOS Version VI 
00020 *LIST OFF 
03900 *LIST ON 
00150 *GET VALUES: 3 
03920 ;VALUES/ASM - Version 6 
03930 *LIST OFF 
04200 *LIST ON 
00160 ; 

00170 SECTOR EQU 
00180 OFFSET EQU 
00190 RST28 EQU 
00200 (3CMNDR EQU 
00210 (3RDSEC EQU 
00220 0WRSEC EQU 
00230 ; 

00240 ORG 
00250 ; 
00260 AUTO 



;SVC Macro equivalents 



;Misc. equates 



0<8+2 




20H 


Offset to Auto Buffer 


28H 


SVC restart 


25 


Execute & return 


49 


Read a sector SVC # 


53 


, Write a sector SVC # 



2400 H 



2400 ED730B24 


00270 




LD 


(SAVESP+1), 


SP 


;Save SP address 


2404 CD0E24 


00280 




CALL 


PARSE 




;Do AUTO command 


2407 210000 


00290 
00300 


s 


LD 


HL,0 




;Set no error 




00310 


9 


Reinsta 


11 SP & RETurn 






00320 


9 










240 A 310000 


00330 


SAVESP 


LD 


SP s $-$ 




;P/u old SP 


240D C9 


00340 
00350 


9 


RET 










00360 


» 


Skip any leading spaces 






00370 


9 










240E 2B 


00380 


PARSE 


DEC 


HL 




;Back one 


240F 23 


00390 


PARSE2 


INC 


HL 




;Bump buff ptr 


2410 7E 


00400 




LD 


A S (HL) 




;P/u character 


2411 FE20 


00410 




CP 


i i 




; Space ? 


2413 28FA 


00420 
00430 


9 


JR 


Z S PARSE2 




;Go til non-space 




00440 


9 


Display 


auto Buffer 


on 


drive :d ? 




00450 


9 










2415 FE3F 


00460 




CP 


'?' 




; Display auto buffer ? 


2417 2809 


00470 
00480 


9 


JR 


1, DISAUTO 








00490 


9 


Execute 


Auto Buffer 


on 


drive :d ? 




00500 


9 










2419 FE3D 


00510 




CP 


i _ i 




; Execute auto buffer ? 


24 IB 280F 


00520 
00530 


9 


JR 


Z s EXAUTO 








00540 


9 


Install 


the command 


in 


the auto buffer 




00550 


9 










241D CD5124 


00560 




CALL 


GETDRV 




;P/u drive # 


2420 184 D 


00570 
00580 


9 


JR 


WRBUFF 




; Write new auto & RETurn 




00590 


9 


Display 


command in 


autc 


) buffer 




00600 


9 










2422 CD4724 


00610 


DISAUTO 


CALL 


GETAUTO 




;P/u drive # 


2425 


00620 




@@LOGOT 






^Display it 



00001 IFEQ 00H,1 

00002 LD HL, 
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00003 



2425 3E0C 

2427 EF 

2428 C2A024 
242B C9 



242C CD4724 
242F 
242F 3E65 

2431 EF 

2432 7E 

2433 FE2A 
2435 2005 



2437 23 

2438 FDCB12E6 



243C FDCB024E 
2440 3E19 
2442 C22800 

2445 3D 

2446 EF 



ENDIF 

LD 

RST 

JP 

RET 



A, 12 

40 

NZ, IOERR 



00005 

00630 

00640 

00650 ; 

00660 ; 

00670 ; 

00680 EXAUTO CALL GETAUTO 
@(3FLAGS 
LD A, 101 
RST 40 
LD A,(HL) 
CP '*' 
JR NZ,DOAUTO 



;NZ - I/O Error 
;Z - done 



00690 
00006 
00007 



Execute command in auto buffer 

;P/u drive # 



00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 



;P/u first character 
;Non-<BREAK>able auto ? 
;No - do it 



Non <BREAK>able auto command - skip "*" 

INC HL ;Bump to next char 

SET 4 9 (IY+SFLAG$) ;Disable <BREAK> 

Exit via @CMNDI or GCMNDR if requested 



00810 DOAUTO BIT 



00820 
00830 
00840 
00850 
00860 
00870 



LD 
JP 
DEC 
RST 



1 9 (IY+CFLAG$) ;If CMNDR executing, then 

A S @CMNDR ; exit via CMNDR 

NZ,RST28 

A ; else readjust to 

40 : CMNDI & exit 



GETAUTO - Get Auto Command from BOOT sector 
Advance to next byte in line 



2447 23 

2448 7E 

2449 CD5124 
244C CD8424 
244F EB 

2450 C9 



2451 FE0E 
2453 D8 



2454 FE3A 
2456 C0 



2457 23 

2458 46 



2459 23 
245A 7E 
245B FE0E 
245 D 3801 



;Bump to next char 

; & p/u 1st char of drvspc 

;Get drive # 

;Read BOOT sector 

;Pt HL to auto buffer 

;RETurn 



00910 GETAUTO INC HL 

00920 LD A S (HL) 

00930 CALL GETDRV 

00940 CALL RDBOOT 

00950 EX DE,HL 

00960 RET 

00970 ; 

00980 ; GETDRV - Check if (HL) contains a legal drive # 

00990 ; 

01000 GETDRV CP CR+1 ;No drivespec ? 

01010 

01020 ; 

01030 ; 



RET C ;Use drive as default 

Drivespec indicator entered ? 



01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 



CP 
RET 



NZ 



; Drivespec indicator ? 
;No - use drive 



Drivespec ":" entered - p/u drive # 



INC 
LD 



HL 
B S (HL) 



;Position to drive # 
;P/u drive # 



Position to command following drivspec 



INC 
LD 
CP 
JR 



HL 

A,(HL) 
CR+1 
C.SKIPINC 



^Position to command 
;C/R following spec ? 

;Yes - don't INC 
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245F 23 



2460 78 

2461 D630 
2463 329624 
2466 3803 
2468 FE08 
246A D8 



246B 3E20 
246D 1831 



246F CD8424 



2472 2B 

2473 23 

2474 7E 

2475 FE20 
2477 28FA 



2479 7E 
247A EDA0 
247C FE0E 
247E 30F9 



2480 3E35 
2482 180D 



2484 3A9&24 

2487 4F 
2488 

2488 3E21 
248A EF 
248B 3E20 
248 D 2011 



248F 



LIBRARY Files AUTO - LS-DOS 6.2 Page 00003 

INC HL ; Position to command 

Is the drive number in legal range ? 
A,B 



01190 

01200 

01210 

01220 

01230 SKIPINC LD 

01240 SUB 

01250 LD 

01260 JR 

01270 CP 

01280 RET 

01290 . 

Illegal Drive Number - Display & abort 



;P/u Drive # 
'0' ;Less than "0" ? 

(DRIVE+D.A ; Stuff away drive # 
C.ILDRIVE ;C - Illegal drive # 
7+1 ;Greater than 7 ? 

C ;RETurn if legal 



01300 

01310 

01320 ILDRIVE LD A, 32 

01330 JR IOERR 

01340 ; 

01350 ; WRBUFF - Write Auto Command to Boot 

01360 ; 

01370 WRBUFF CALL RDBOOT 

01380 . 

Skip Leading spaces 



;Init "Illegal drive # 
;Abort 



;Read in BOOT 



HL 

HL 

A S (HL) 
i i 

Z.SKPSPCS 



; Ski p leading spaces 

;P/u char 

; Space ? 

;Yes - skip it 



01390 

01400 

01410 DEC 

01420 SKPSPCS INC 

01430 LD 

01440 CP 

01450 JR 

01460 ; 

01470 ; 

01480 ; 

01490 XFLP 

01500 

01510 

01520 

01530 ; 

01540 ; 

01550 ; 

01560 ; 

01570 ; 

01580 WRBOOT LD 

01590 JR 

01600 ; 

01610 ; RDBOOT - Check if the Drive is there 

01620 ; 

01630 RDBOOT LD A S (DRIVE+1) 



Transfer command into buffer 

LD A,(HL) ;P/u byte 

LDI ;(HL) => (DE) INC HL & DE 

CP CR+1 ;Eol ? 

JR NC.XFLP 

RDBOOT/WRBOOT - Read/Write BOOT sector 

Set A = @WRSEC Supervisory CALL # 



A, @WRSEC 
BOOTIO 



; Write Sector SVC # 
;Go to I/O routine 



01640 
01650 
00008 



01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
00010 
00011 
01740 
01750 



LD C,A 

$@CKDRV 

LD A, 33 

RST 40 

LD A, 32 

JR NZ 9 IOERR 



;P/u drive # 

;Xfer to C for @CKDRV 

; Drive alive 



;Init "Illegal drive # 
;Abort if bad drive 



Read GAT from directory if Model II 



IF (8MOD2 

PUSH IY 

@@GTDCT 

LD A.81 

RST 40 

LD D.UY+9) 

LD A,(IY+3) 



;Save 

; Locate OCT 



;Dir cy] 
;Get DCT data 



Page 22 



The Source 


LIBRARY Fi 


les 


AUTO - LS-DOS 6 


.2 Page 0001 




01760 




LD 


E,(IY+4) 


;Get dct data 




01770 




POP 


IY 


;Restore 




01780 




AND 


28 H 


;8" floppy? 




01790 




CP 


20H 


;Yes? 




01800 




JR 


NZ, SETSYSI 


;Nope, sysinfo on 




01810 




LD 


A,E 


;Get +4 




01820 




AND 


50H 


;Bit 6/4 




01830 




CP 


40H 


;DD not alien? 




01840 




JR 


NZ, SETSYSI 


;Go if alien 




01850 


> 










01860 




PUSH 


HL 


;Save 




01870 




LD 


HL,BUFF 


; Start buffer 




01880 




LD 


E,0 


;GAT table 


248F 


01890 




00RDSSC 




;Read directory 




00012 




LD 


A, 85 






00013 




RST 


40 






01900 




LD 


DE,(BUFF+0CDH) 


;Get GAT info byte 




01910 




POP 


HL 


;Restore buffer 




01920 




JR 


NZ, IOERR 


;Go on disk error 




01930 




BIT 


7,E 


; System disk? 




01940 


SETSYSI 


LD 


DE, SECTOR 


; Sysinfo sector 




01950 




JR 


NZ,$+3 


;Go if data disk 




01960 




INC 


D 


; Sysinfo on cyl 1 




01970 




LD 


(SYSINFO), DE 


;Save sysinfo sector 




01980 




ENDIF 






248F 3E31 


01990 
02000 


s 


LD 


A,@RDSEC 


;A = (PRDSEC SVC # 




02010 


» 


Pt HL = 


> Buffer, DE = T/S, C = :d, A = SVC # 




02020 


» 








2491 E5 


02030 


BOOT 10 


PUSH 


HL 


;Save command ptr 


2492 210025 


02040 




LD 


HL,BUFF 


;HL => I/O buffer 


2495 0E00 


02050 
02060 


DRIVE 

5 


LD 


c,$-$ 


;P/u drive # in C 


2497 110200 


02070 




LD 


DE, SECTOR 


;DE = Track 0, Sector 


2498 


02080 SYSINFO 


EQU 


$-2 






02090 


> 










02100 


S 


Issue SVC & point DE => 


Auto comm buffer 




02110 


9 








249A EF 


02120 




RST 


40 


;Read or Write Sector 


249B El 


02130 




POP 


HL 


; Recover command ptr 


249C 112025 


02140 




LD 


DE,BUFF+OFFSET 


;DE => Auto command b 


249F C8 


02150 
02160 


9 


RET 


Z 


;RETurn if successful 




02170 


9 


I/O Error Handler - Clean up stack & Abort 




02180 


9 








24A0 6F 


02190 


IOERR 


LD 


L,A 


;Set HL = Error # 


24A1 2600 


02200 




LD 


H,0 




24A3 F6C0 


02210 




OR 


0C0H 


; Short error message 


24A5 4F 


02220 




LD 


C,A 


;Xfer to C for GERROR 


24A6 


02230 




(TERROR 




; Display error 


24A6 3E1A 


00014 




LD 


A, 26 




24A8 EF 


00015 




RST 


40 




24A9 C30A24 


02240 
02250 


* 


JP 


SAVESP 


;Exit 


2500 


02260 
02270 


BUFF 
> 


EQU 


$<-8+l<+8 


;Next page boundary 


2400 


02280 




END 


AUTO 
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AUTO - LS-DOS 6.2 




001 


0000 002 


0000 003 


0000 


@@4 


0000 0CMNDR 


0019 0MOD2 


0000 


0MOD4 


FFFF 0RDSEC 


0031 0WRSEC 


0035 


ABB 


0010 AP 


0027 AUTO 


2400 


BOOT 10 


2491 BREAK 


0080 BS 


0008 


BUFF 


2500 CFLAG$ 


0002 CR 


000 D 


DFLAG$ 


0003 DISAUTO 


2422 DOAUTO 


243C 


DRIVE 


2495 ETX 


0003 EXAUTO 


242 C 


FLAG 


0040 GET AUTO 


2447 GETDRV 


2451 


ILDRIVE 


246B IOERR 


24A0 KFLAG$ 


000A 


LF 


000A NUM 


0080 OFFSET 


0020 


PARSE 


240E PARSE2 


240F PAR ERR 


002 C 


RDBOOT 


2484 RST28 


0028 SAVESP, 


240A 


SECTOR 


0002 SFLAG$ 


0012 SKIPINC 


2460 


SKPSPCS 


2473 STR 


0020 SYSINFO 


2498 


TAB 


0009 VFLAG$ 


0015 WRBOOT 


2480 


WRBUFF 


246F XFLP 


2479 00ABORT 


7FD8 


00ADTSK 


806B 00BANK 


8583 00BKSP 


8263 


00BREAK 


8599 00CHNIO 


7FC3 00CKBRKC 


85E7 


00CKDRV 


80BF 00CKEOF 


8278 00CKTSK 


8056 


00CLOSE 


824E 00CLS 


85 Dl 00CMNDI 


8002 


00CMNDR 


8017 00CTL 


7E27 00DATE 


7F99 


00DCSTAT 


80FE 00DEBUG 


8041 00DECHEX 


8503 


00DIRRD 


8470 00DIRWR 


8485 00DIV16 


84 EE 


00DIV8 


84D9 00DODIR 


80D4 00DSP 


7DEB 


00DSPLY 


7E8B 00ERROR 


802C 00EXIT 


7FED 


00FEXT 


83DD 00FLAGS 


856D 00FNAME 


83F2 


00FSPEC 


83C8 00GATRD 


845 B 00GATWR 


849A 


00GET 


7DFF 00GTDCB 


841C 00GTDCT 


8407 


00GTMOD 


8431 00HDFMT 


81A6 00HEX16 


8542 


00HEX8 


852D 00HEXDEC 


8518 00HIGH$ 


8557 


00INIT 


8224 00KBD 


7E63 00 KEY 


7DD7 


00KEYIN 


7E77 00KLTSK 


80AA 00LOAD 


839E 


00LOC 


828D 00LOF 


82A2 00LOGER 


7EC2 


00LOGOT 


7ED7 00MSG 


7F0E 00MUL16 


84 C4 


00MUL8 


84AF 00OPEN 


8239 00 PAR AM 


7F84 


00PAUSE 


7F6F 00PEOF 


82B7 00POSN 


82 CC 


00 PR I NT 


7F23 00PRT 


7E3B 00PUT 


7E13 


00RAMDIR 


80E9 00RDSEC 


817C 00RDSSC 


8446 


00READ 


82E1 00REMOV 


820F 00RENAM 


81 FA 


00REW 


82F6 00RMTSK 


8080 00RPTSK 


8095 


00RREAD 


830B 00RSLCT 


8167 00RSTOR 


8128 


00RUN 


83B3 00RWRIT 


8320 00SEEK 


8152 


00SEEKSC 


8335 00SKIP 


834A 00SLCT 


8113 


00 STEP I 


813D 00TIME 


7FAE 00VDCTL 


7F5A 


00VER 


835F 00VRSEC 


8191 00WEOF 


8374 


00WHERE 


7E4F 00WRITE 


8389 00WRSEC 


81 BB 


00WRSSC 


81 D0 00WRTRK 


81E5 




2400 is the 


transfer address 






00000 Total 


errors 







Page 00005 
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LIBRARY Files 



BUILD - LS-DOS 6.2 



Page 00001 



0000 



00100 ;LBBUILD/ASM - BUILD Command 

00110 TITLE <BUILD - LS-DOS 6.2> 

00120 ; 

00130 ; 

00140 CPL EQU 80 ;Characters per line 

00150 ; 

00160 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00170 *GET VALUES :3 ;Misc. equates 

03920 ; VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00180 ; 



2400 


00190 




ORG 2400 H 






00200 


9 








00210 


9 


Was the <BREAK> key hit 


? 




00220 


9 








00230 


START 






2400 


00240 




@(3CKBRKC 


; Break key down? 


2400 3E6A 


00001 




LD A, 106 




2402 EF 


00002 




RST 40 




2403 2804 


00250 




JR Z s $+6 


;Go if not 


2405 21FFFF 


00260 




LD HL.-l 


; else abort 


2408 C9 


00270 
00280 


» 


RET 






00290 


» 


<BREAK> not hit - execute module 




00300 


s 






2409 ED731424 00310 




LD (SAVESP+1) 9 SP 


;Save SP address 


240D CD3C24 


00320 




CALL BUILD 


;Build a file 


2410 210000 


00330 




LD HL,0 


;Set no error 


2413 310000 


00340 


SAVESP 


LD SP s $-$ 


;P/u original SP addr* 


2416 


00350 




@@CKBRKC 




2416 3E6A 


00003 




LD A s 106 




2418 EF 


00004 




RST 40 




2419 C9 


00360 
00370 


s 


RET 


;Exit "with retcode 




00380 


3 


I/O Error Handler 






00390 


9 






241A 2600 


00400 


IOERR 


LD H s 


;Set HL = Error # 


241 C 6F 


00410 




LD L,A 




241D F6C0 


00420 




OR 0C0H 


; Short error mess & RET 


241F 4F 


00430 




LD C S A 


; Stuff in C 


2420 


00440 




(TERROR 


^Display error 


2420 3E1A 


00005 




LD A, 26 




2422 EF 


00006 




RST 40 




2423 18EE 


00450 
00460 


9 


JR SAVESP 


;AB0RT 




00470 


9 


Internal Error Message 


Handling 




00480 


9 






2425 219825 


00490 


BADIGS 


LD HL S BADIGS$ 


;"Bad Hex digit" 


2428 DD 


00500 




DB 0DDH 




2429 218425 


00510 ODDIGS 


LD HL,ODDIGS$ 


;"Odd # of hex digits" 


242 C DD 


00520 




DB 0DDH 




242D 21B225 


00530 


SPCREQ 


LD HL S SPCREQ$ 


;"Filespec Required" 


2430 DD 


00540 




DB 0DDH 




2431 21C525 


00550 EXISTS 


LD HL,EXISTS$ 


;"File already exists" 


2434 


00560 
00007 
00008 




@@LOGOT 

IFEQ 00H,1 

LD HL, 


;Log error message 
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6.2 Page 0000; 




00009 


ENDIF 






2434 3E0C 


00010 


LD 


A, 12 




2436 EF 


00011 


RST 


40 




2437 21FFFF 


00570 ABORT LD 


HL.-l 


;Set abort code 


243A 18D7 


00580 
00590 , 


JR 


SAVESP 


;Exit 




00600 , 


BUILD - 


Build A file 






00610 , 








243C 112126 


00620 E 


3UILD LD 


DE,FCB1 


;DE => FCB 


243F 


00630 


(a^FSPEC 




;Legal Filespec ? 


243F 3E4E 


00012 


LD 


A, 78 




2441 EF 


00013 


RST 


40 




2442 20E9 


00640 
00650 . 


JR 


NZ S SPCREQ 


;No - "Filespec req" 




00660 


, Legal F 


ilespec - Stuff 


default /ext of JCL 




00670 . 








2444 E5 


00680 


PUSH 


HL 


;Save cmd buf ptr 


2445 210626 


00690 


LD 


HL,JCLEXT 


;HL => "JCL" 


2448 


00700 


@(9FEXT 




;Fetch extension 


2448 3E4F 


00014 


LD 


A, 79 




244A EF 


00015 


RST 


40 




244B El 


00710 
00720 


POP 


HL 


;Rcvr command ptr 




00730 


, Pick up 


parameters if 


any 




00740 


) 






244C 110E26 


00750 


LD 


DE,PRMTBL$ 


;DE => Parameter table 


244F 


00760 


(30 PAR AM 




;6et any parameters 


244F 3E11 


00016 


LD 


A,17 




2451 EF 


00017 


RST 


40 




2452 20C6 


00770 
00780 


JR 


NZ s I0ERR 


;Quit on parm error 




00790 


, Position to Extension 






00800 








2454 212126 


00810 


LD 


HL 9 FCB1 


;Point to start of FCB 


2457 7E 


00820 ! 


SLASH? LD 


A,(HL) 


;P/u a char 


2458 23 


00830 


INC 


HL 


; & bump pointer 


2459 FE0D 


00840 


CP 


CR 


;End of line? 


245B 281B 


00850 


JR 


Z,NOTKSM 


;Yes - not a KSM file 


245D FE2F 


00860 


CP 


7' 


; Start of EXT? 


245F 20F6 


00870 
00880 


JR 
> 


NZ 9 SLASH? 


;Loop if not 




00890 


; Is the 


extension KSM ? 






00900 


» 






2461 E5 


00910 


PUSH 


HL 


;HL => Extension 


2462 7E 


00920 


LD 


A,(HL) 


;P/u character 


2463 23 


00930 


INC 


HL 


;Bump ptr 


2464 FE4B 


00940 


CP 


'K' 


;Match K? 


2466 2010 


00950 


JR 


NZ,NOTKSM 




2468 7E 


00960 


LD 


A,(HL) 




2469 23 


00970 


INC 


HL 




246A FE53 


00980 


CP 


, s , 


;Match S? 


246C 200A 


00990 


JR 


NZ,NOTKSM 




246E 7E 


01000 


LD 


A,(HL) 




246F FE4D 


01010 


CP 


'M« 


; Match M? 


2471 2005 


01020 
01030 


JR 


NZ 9 N0TKSM 






01040 


; Extension is /KSM - stuff 0FFH in indicator 




01050 








2473 3EFF 


01060 


LD 


A,0FFH 




2475 32DE24 


01070 
01080 


LD 


(KSM7+D.A 


; Stuff KSM indicator 
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les 


BUILD - LS-DOS 6 


.2 Page 00003 




01090 ; 


Is the 


extension /JCL ? 






01100 ; 








2478 El 


01110 NOTKSM 


POP 


HL 


;HL => Extension field 


2479 7E 


01120 


LD 


A,(HL) 


,Ck if EXT is JCL 


247A 23 


01130 


INC 


HL 




247B FE4A 


01140 


CP 


•J' 


.Match J? 


247D 2010 


01150 


JR 


NZ, INIT 




247F 7E 


01160 


LD 


A,(HL) 




2480 23 


01170 


INC 


HL 




2481 FE43 


01180 


CP 


■C 


.Match C? 


2483 200A 


01190 


JR 


NZ, INIT 




2485 7E 


01200 


LD 


A,(HL) 




2486 FE4C 


01210 


CP 


•L' 


.Match L? 


2488 2005 


01220 


JR 


NZ S INIT 




248 A 3E4F 


01230 


LD 


A.CPL-1 


;Max 79 cpl on JCL 


248C 32F524 


01240 
01250 ; 


LD 


(LINLEN+2),A 






01260 ; 


Init the file with LRL oi 


: 256 




01270 ; 








248F 210027 


01280 INIT 


LD 


HL,IOBUF 


HL => I/O buffer 


2492 112126 


01290 


LD 


DE.FCB1 


,DE => FCB 


2495 0600 


01300 


LD 


B,0 


B = LRL = 256 


2497 


01310 


WIHIT 




;Init the file 


2497 3E3A 


00018 


LD 


A, 58 




2499 EF 


00019 


RST 


40 




249A 2025 


01320 
01330 ; 


JR 


NZ, IOERRA 


Jump on error 




01340 ; 


Stuff F 


ilespec into Buffer 




01350 ; 








249C F5 


01360 


PUSH 


AF 


.Save Carry 


249D 11D925 


01370 


LD 


DE,FILEBUF 


DE => Filespec 


24A0 ED4B2726 01380 


LD 


BC,(FCBl+6) ; 


B = DEC, C = Drive # 


24A4 3A2126 


01390 


LD 


A,(FCB1) 


P/u to test device/file 


24A7 CD6E25 


01400 


CALL 


$FNAME 




24AA 2015 


01410 


JR 


NZ S IOERRA 




24 AC Fl 


01420 
01430 ; 


POP 


AF 


,F = Status from @INIT 


24 AD 21E825 


01440 


LD 


HL,BMESS1 


Default "Building :" 


24B0 3818 


01450 
01460 ; 


JR 


C.SETBUF 


Jump if New file 




01470 ; 


File al 


ready exists - Was 


» APPEND specified ? 




01480 ; 








24B2 010000 


01490 APPEND 


LD 


BC,$-$ ; 


P/u APPEND parameter 


24B5 112126 


01500 


LD 


DE,FCB1 


DE => FCB 


24B8 0C 


01510 


INC 


C 


.Specified ? 


24B9 2809 


01520 


JR 


Z,APP1 


Go if so 


24BB 


01530 


@@CLOSE 


: 


Close to reset open bit 


24BB 3E3C 


00020 


LD 


A, 60 




24BD EF 


00021 


RST 


40 




24BE CA3124 


01540 


JP 


Z, EXISTS ; 


Quit with "file exists. 


24C1 C31A24 


01550 IOERRA 
01560 ; 


JP 


IOERR 


or if error on close 




01570 ; 


Position to end of file for append 




01580 ; 








24C4 


01590 APP1 


WEOF 


! 


Position to EOF 


24C4 3E41 


00022 


LD 


A, 65 




24C6 EF 


00023 


RST 


40 




24C7 21F325 


01600 
01610 ; 


LD 


HL,BMESS2 ; 


"Appending *KI to " 




01620 ; 


Display 


Building/Appending Message 




01630 ; 
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24CA CD5425 


01640 SETBUF 


CALL 


DSPLY 


; Display message 


24CD 21D925 


01650 


LD 


HL S FILEBUF 


;Filename buffer 


24 D0 CD5425 


01660 


CALL 


DSPLY 




24 D3 0E0D 


01670 


LD 


C,CR 


;End line 


24 D5 


01680 


@@DSP 






24 D5 3E02 


00024 


LD 


A s 2 




24 D7 EF 


00025 


RST 


40 




24D8 20E7 


01690 


JR 


NZ s IOERRA 




24 DA 210028 


01700 
01710 ; 


LD 


HL s BUFFER 


;HL => Input buffer 




01720 ; 


Is th 


is a KSM File ? 






01730 ; 








24 DD 3E00 


01740 KSM? 


LD 


A,$-$ 


;Not zero if KSM 


24 DF B7 


01750 


OR 


A 




24E0 2811 


01760 
01770 ; 


JR 


Z S LINLEN 


;Z - not a KSM 




01780 ; 


KSM li 


Qop - p/u current 


letter & increment 




01790 ; 








24E2 E5 


01800 KSM1 


PUSH 


HL 


;Save text pointer 


24E3 210926 


01810 


LD 


HL 9 LETBUF 


;"A=> " 


24E6 34 


01820 


INC 


(HL) 


; Increment letter 


24E7 7E 


01830 
01840 ; 


LD 


A 9 (HL) 


;P/u letter 




01850 ; 


Finished with all the I 


KSM keys ? 




01860 ; 








24E8 FE5B 


01870 


CP 


'Z'+l 


;Go past Z? 


24 EA 2003 


01880 


JR 


NZ 9 DISSTR 


;No - display string 


Cm I L-O C X 


01890 


POP 


HL 


; Recover text ptr 


24ED 183C 


01900 
01910 ; 


JR 


GOTEND 


;Finished 




01920 ; 


Displ« 


ay letter & "=> ,8 






01930 ; 








24EF CD5425 


01940 DISSTR 


CALL 


DSPLY 


; Display string 


24F2 El 


01950 
01960 ; 


POP 


HL 


^Recover text ptr 




01970 ; 


Input 


line with either 


255 or 79 characters 




01980 ; 








24F3 0100FF 


01990 LINLEN 


LD 


BC S 255<8 


;255 or 79 (JCL) 


24F6 


02000 


(a@KEYIN 


; Input line 


24F6 3E09 


00026 


LD 


A s 9 




24F8 EF 


00027 


RST 


40 




24F9 382C 


02010 


JR 


C.GOTBRK 


;Exit on <BREAK> 


24FB 2025 


02020 
02030 ; 


JR 


NZ s TSTEOF 


;Ck if EOF key used 




02040 ; 


Got a 


line of input 9 cl 


leek if HEX parameter 




02050 ; 








24FD 110000 


02060 HPARM 


LD 


DE,$-$ 


;P/u HEX parameter 


2500 1C 


02070 


INC 


E 


; Specified ? 


2501 2018 


02080 
02090 ; 


JR 


NZ S NOTHEX 


;No - ASCII input 




02100 ; 


HEX parm was entered - 


convert input to hex 




02110 ; 








2503 54 


02120 


LD 


D,H 


; Point DE => Input 


2504 5D 


02130 
02140 ; 


LD 


E 9 L 




2505 CD5B25 


02150 HP1 


CALL 


CVRTHEX 


;Convert char @ DE 


2508 05 


02160 


DEC 


B 


; Decrement count 


2509 CA2924 


02170 
02180 ; 


JP 


Z,0DDIGS 


;Done ? - odd # of digits 




02190 ; 


Stuff 


first digit into 


high order nibble 




02200 ; 
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250C 07 
250D 07 
250E 07 
250F 07 
2510 4F 



2511 CD5B25 

2514 Bl 

2515 77 



2516 23 

2517 10EC 
2519 18C2 



251B 48 
251C 
251E 09 
251F 23 
2520 18BB 



LIBRARY Files BUILD - LS-DOS 6.2 Page 00005 

; Shi ft to hi -order nybble 



02210 RLCA 

02220 RLCA 

02230 RLCA 

02240 RLCA 

02250 LD 

02260 ; 

02270 ; 

02280 ; 

02290 CALL CVRTHEX 

02300 OR C 

02310 LD (HL),A 

02320 ; 

02330 ; 

02340 ; 

02350 INC HL 

02360 DJNZ HP1 

02370 JR KSM? 

02380 ; 

02390 ; 

02400 ; 

02410 NOTHEX LD C S B 

02420 LD B 9 

02430 ADD HL,BC 

02440 INC HL 

02450 JR KSM? 

02460 ; 

02470 ; EOF or BREAK hit - Test Number of chars entered 

02480 ; If not at line start, convert to CR and continue 

02490 ; 



C,A ;Save in C 

P/u low-order digit & OR with high order 

;Convert char @ DE 

;0R with hi-order nibble 

; Stuff in buffer 

Increment converted input ptr & count down 

;Bump conv input ptr 

;B hex digits 

;Done conv s back to loop 

ASCII input, point HL to next free location 



;Advance memory buffer 
;To end of this line 
;HL => End of line 
;Bump to 1st free posn 
;Loop for input 



2522 FE1C 


02500 TSTEOF 


CP 


1CH 




;EOF? 


2524 C21A24 


02510 


JP 


NZ S IOERR 




;Real error if not 


2527 78 


02520 GOTBRK 


LD 


A,B 




;Any characters ? 


2528 B7 


02530 


OR 


A 






2529 20D2 


02540 
02550 ; 


JR 


NZ 9 HPARM 




;Yes - continue Build 




02560 ; 


Save 


input pointer 


address 




02570 ; 










252B 223225 


02580 GOTEND 


LD 


(ENDTXT+1), 


,HL 


;Save buffer posn 


252E 210028 


02590 


LD 


HL S BUFFER 




;HL => Start of input 


2531 110000 


02600 ENDTXT 
02610 ; 


LD 


DE,$-$ 




;DE => Last used address 




02620 ; 


Is there any more text 


to write out ? 




02630 ; 










2534 EB 


02640 


EX 


DE,HL 




;Swap for math 


2535 AF 


02650 


XOR 


A 




;Clear carry 


2536 ED52 


02660 


SBC 


HL.DE 




;Any more text to write ? 


2538 280B 


02670 
02680 ; 


JR 


Z S ATEND 




;No - don't write any 




02690 ; 


Write 


a byte to the 


i fi 


le 




02700 ; 










253A EB 


02710 


EX 


DE,HL 




;HL => Byte to output 


253B 112126 


02720 


LD 


DE,FCB1 




;DE => FCB 


253E 4E 


02730 


LD 


C,(HL) 




;P/u a char 


253F 23 


02740 


INC 


HL 




;Bump ptr 


2540 


02750 


(30PUT 






;0utput char 


2540 3E04 


00028 


LD 


A, 4 






2542 EF 


00029 


RST 


40 






2543 28EC 


02760 
02770 ; 


JR 


Z, ENDTXT 




;Loop for more if i/o OK 




02780 ; 


Done 


writing - either 


end of text or error 




02790 ; 
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2545 F5 



2546 112126 
2549 

2549 3E3C 
254B EF 
254C C21A24 



254F Fl 

2550 C8 

2551 C31A24 



2554 



2554 3E0A 

2556 EF 

2557 C8 

2558 C31A24 



255B 1A 
255C 13 
255D D630 
255F 380A 
2561 FE0A 

2563 D8 

2564 CBAF 
2566 D607 
2568 FE10 
256A D8 
256B C32524 



256E 
2570 
2572 
2572 
2574 
2575 
2576 
2578 
2579 
257A 
257B 
257C 
257D 
257E 
257F 
2580 
2582 



CB7F 
2804 

3E50 

EF 

C9 

3E2A 

12 

13 

79 

12 

13 

78 

12 

13 

3E03 

12 



LIBRARY Files 

PUSH 



BUILD - LS-DOS 6.2 
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02800 ATEND 

02810 

02820 

02830 

02840 

02850 

00030 

00031 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 ; 

02940 ; 

02950 ; 

02960 ; 

02970 DSPLY 

00032 



AF 



Close the file 

LD DE,FCB1 

00CLOSE 

LD A 9 60 

RST 40 

JP NZ, IOERR 



;Save error code if any 



;DE => FCB 
;Close the file 



;Can't - I/O error 
Make sure @PUT didn't RETurn any I/O error 



POP 
RET 
JP 



AF 

Z 

IOERR 



;Recover error code 
;0k - Return 
;NZ - I/O Error 



00033 LD 

00034 ENDIF 

00035 LD 

00036 RST 
02980 RET 
02990 JP 
03000 ; 

03010 ; 
03020 ; 
03030 CVRTHEX LD 



DSPLY - Display Line & HL 

@(<>DSPLY ;Display line 

IFEQ 00H,1 



HL, 

A, 10 
40 
Z 
IOERR 



;Back if good 
; else abort 



CVRTHEX - Convert character at DE to hex 



03040 
03050 
03060 
03070 
03080 
03090 
03100 
03110 
03120 



INC 

SUB 

JR 

CP 

RET 

RES 

SUB 

CP 

RET 



A 9 (DE) 

DE 

•0' 

C S BADIGSA 

10 

C 

5,A 

7 

16 

C 

BADIGS 



03130 BADIGSA JP 
03140 ; 

03150 ; Routine to pick up device/file name 
03160 ; 

03170 $FNAME BIT 7, A 
03180 JR Z,FNAME1 
03190 @@FNAME 
00037 LD A, 80 
RST 40 



;Get a char 

;Bump ptr 

;Convert to binary 

;Can't be < '0' 

; Numeric character ? 

;Yes - return 

;No - convert to U/C 

;Adjust A-F to be 10-15 

; Legal hex digit ? 

;Yes - return 

;No - Bad Hex Digit 



;Test device/file 
;Go if device 



03200 RET 

03210 FNAME1 LD 

03220 

03230 

03240 

03250 

03260 

03270 

03280 

03290 

03300 

03310 



LD 


A,'*' 


LD 


(DE),A 


INC 


DE 


LD 


A,C 


LD 


(DE),A 


INC 


DE 


LD 


A,B 


LD 


(DE),A 


INC 


DE 


LD 


A, 3 


LD 


(DE),A 



;Stuff device indicator 

;Stuff 1st character 

; Stuff 2nd character 

; Stuff ETX 
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2583 C9 



2584 4F 

64 -64 

68 65 
74 73 

2598 42 

61 64 

69 67 
6F 75 
0D 

25B2 46 

69 6C 
20 72 
64 0D 

25C5 46 

69 6C 
61 64 

74 73 

0P0F 
25 E8 42 

75 69 
20 03 

25F3 41 

70 70 
3A 20 
20 03 

2606 4A 

43 4C 

2609 40 

3D 3E 



LI 

03320 
03330 
03340 
03350 
03360 
20 23 20 

78 20 64 
0D 

03370 
20 68 65 
69 74 20 
6E 74 65 

03380 
65 20 73 
65 71 75 

03390 
65 20 61 

79 20 65 

0D 



BRARY Files BUILD - LS-DOS 6.2 

RET 

s 

; ERROR Messages 

'Odd # of hex digits' ,CR 
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260E 80 



260F 53 
2610 48 

45 58 

2613 00 

2614 FE24 



2616 56 

2617 41 

50 50 
261 D 00 
261 E B324 

2620 00 



03410 

03420 

6C 64 69 

03430 
65 6E 64 
2A 4B 49 

03440 
03450 

03460 
03470 
20 03 
03480 
03490 
03500 
03510 
03520 
03530 
03540 
03550 
03560 

03570 
03580 
03590 
03600 
03610 
03620 
03630 
45 4E 44 
03640 
03650 
03660 
03670 
03680 
03690 
03700 



0DDIGS$ DB 
6F 66 20 

69 67 69 

BADIGSS DB 
78 20 64 
65 6E 63 
72 65 64 

SPCREQ$ DB 

70 65 63 
69 72 65 

EXISTSS DB 
6C 72 65 
78 69 73 



FILEBUF DS 
BMESS1 DB 
6E 67 3A 

BMESS2 DB 
69 6E 67 
20 74 6F 



JCLEXT DB 



LETBUF DB 



'Bad hex digit encountered' 9 CR 



'File spec required' S CR 



'File already exists' 9 CR 



15 

'Building: ' S ETX 



'Appending: *KI to ! 9 ETX 



'JCL 1 



! A*-1 9 '=> ' 9 ETX 



; PARAMETER TABLE 

PRMTBL$ DB 80H ;6.x Parameter table 

» 

; HEX (H) parameter - Flag input only 

DB FLAG! ABB! 3 
DB ' HEX ' 

DB 

DW HPARM+1 
» 

; APPEND (A) parameter - Flag input only 

DB FLAG! ABB! 6 
DB 'APPEND' 

DB 

DW APPEND+1 

DB 

; Buffer Area 
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LIBRARY Fi 


les 


BUILD - 1 


2621 00 


03710 FCB1 


DB 





001 F 


03720 


DS 


31 


2700 


03730 


ORG 


$<-8+l<8 


0100 


03740 IOBUF 


DS 


256 


0100 


03750 BUFFER 
03760 ; 


DS 


256 


2400 


03770 


END 


START 
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LIBRARY Files 


BUILD - LS-DOS 6.2 




$FNAME 


256E 001 


0000 002 


0000 


003 


0000 004 


0000 0MOD2 


0000 


0MOD4 


FFFF ABB 


0010 ABORT 


2437 


AP 


0027 APP1 


24C4 APPEND 


24B2 


ATEND 


2545 BADIGS 


2425 BADIGS$ 


2598 


BADIGSA 


256B BMESS1 


25E8 BMESS2 


25F3 


BREAK 


0080 BS 


0008 BUFFER 


2800 


BUILD 


243C CFLAG$ 


0002 CPL 


0050 


CR 


000D CVRTHEX 


255B DFLAG$ 


0003 


DISSTR 


24EF DSPLY 


2554 ENDTXT 


2531 


ETX 


0003 EXISTS 


2431 EXISTS$ 


25C5 


FCB1 


2621 FILEBUF 


25D9 FLAG 


0040 


FNAME1 


2576 GOTBRK 


2527 GOTEND 


252B 


HP1 


2505 HPARM 


24FD INIT 


248F 


IOBUF 


2700 IOERR 


241A IOERRA 


24C1 


JCLEXT 


2606 KFLAG$ 


000A KSM1 


24 E2 


KSM? 


24 DD LETBUF 


2609 LF 


000A 


LINLEN 


24F3 NOTHEX 


251 B NOTKSM 


2478 


NUM 


0080 ODDIGS 


2429 ODDIGS$ 


2584 


PAR ERR 


002C PRMTBL$ 


260E SAVESP 


2413 


SETBUF 


24CA SFLAG$ 


0012 SLASH? 


2457 


SPCREQ 


242D SPCREQ$ 


25B2 START 


2400 


STR 


0020 TAB 


0009 TSTEOF 


2522 


VFLA6$ 


0015 00 ABORT 


8B5C 00ADTSK 


8BEF 


00BANK 


9107 00BKSP 


8DE7 00BREAK 


911D 


00CHNIO 


8B47 00CKBRKC 


916B 00CKDRV 


8C43 


00CKEOF 


8DFC 00CKTSK 


8BDA 00CLOSE 


8DD2 


00CLS 


9155 00CMNDI 


8B86 00CMNDR 


8B9B 


00CTL 


89AB 00DATE 


8B1D 00DCSTAT 


8C82 


00DEBUG 


8BC5 00DECHEX 


9087 00DIRRD 


8FF4 


00DIRWR 


9009 00DIV16 


9072 00DIV8 


905 D 


00DODIR 


8C58 00DSP 


896F 00DSPLY 


8A0F 


00 ERROR 


8BB0 00EXIT 


8B71 00FEXT 


8F61 


00FLAGS 


90F1 00FNAME 


8F76 00FSPEC 


8F4C 


00GATRD 


8FDF 00GATWR 


901 E 00GET 


8983 


00GTDCB 


8FA0 00GTDCT 


8F8B 00GTMOD 


8FB5 


00HDFMT 


8D2A (3@ HEX 16 


90C6 00HEX8 


90 Bl 


00HEXDEC 


909C 00HIGH$ 


90DB 00 IN IT 


8DA8 


00KBD 


89E7 00KEY 


895B 00KEYIN 


89FB 


00KLTSK 


8C2E 00LOAD 


8F22 00LOC 


8E11 


00LOF 


8E26 00LOGER 


8A46 00LOGOT 


8A5B 


00MSG 


8A92 00MUL16 


9048 00MUL8 


9033 


00OPEN 


8DBD 00PARAM 


8B08 00PAUSE 


8AF3 


00PEOF 


8E3B 00POSN 


8E50 00PRINT 


8AA7 


00PRT 


89 BF 00PUT 


8997 00RAMDIR 


8C6D 


00RDSEC 


8D00 00RDSSC 


8FCA 00READ 


8E65 


00REMOV 


8D93 00RENAM 


8D7E 00REW 


8E7A 


00RMTSK 


8C04 00RPTSK 


8C19 00RREAD 


8E8F 


00RSLCT 


8CEB 00RSTOR 


8CAC 00RUN 


8F37 


00RWRIT 


8EA4 (3@ SEEK 


8CD6 00SEEKSC 


8EB9 


00 SKIP 


8ECE 00SLCT 


8C97 00 STEP I 


8CC1 


00TIME 


8B32 00VDCTL 


8ADE 00VER 


8EE3 


00VRSEC 


8D15 00WEOF 


8EF8 00WHERE 


89 D3 


00WRITE 


8F0D 00WRSEC 


8D3F 00WRSSC 


8D54 


00WRTRK 


8D69 






2400 is the 


transfer address 






00000 Total 


errors 
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Command: COPY, APPEND 
Library: SYS6/SYS 
ISAM # : 32H S 31H 
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0000 



001 E 
001D 
003 A 
003 B 
0080 

2400 

2400 

2400 



00110 
00120 
00130 
00010 
00020 
03900 
00140 
03920 
03930 
04200 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
04210 
04220 



;LBCOPY/ASM - Copy/Append Commands 

TITLE <COPY/APPEND - LS-DOS 6.2> 

*GET SVCMAC:3 

;SVCMAC/ASM - LS-DOS Version VI 

*LIST OFF 

*LIST ON 

*GET VALUES: 3 

; VALUES/ASM - Version 6 

*LIST OFF 

*LIST ON 



EL 

BL 

(3INIT 

(30PEN 

BREAK 



EQU 
EQU 
EQU 
EQU 
EQU 

ORG 



30 
29 
58 
59 
80 H 

2400H 



;Erase Line 
;Beginning of Line 
;@INIT SVC # 
;@OPEN SVC # 
; BREAK character 



*GET LBCOPYA:3 

;LBCOPYA/ASM - Copy/ Append commands 

SUBTTL '<LBCOPYA - APPEND Mainlined 
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LBCOPYA - APPEND Mainline 



COPY/APPEND - LS-DOS 6.2 
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2400 


04230 




PAGE 








04240 












04250 




Jump to 


COPY Entry 


Point 




04260 










2400 C3F524 


04270 COPY 


JP 


COPYST 


;Go to COPY 




04280 


> 










04290 


9 


APPEND 


Entry Point 


- Was the <BREAK> hit ? 




04300 


9 










04310 APPEND 








2403 


04320 




0GCKBRKC 


;Check for break 


2403 3E6A 


00001 




LD 


A, 106 




2405 EF 


00002 




RST 


40 




2406 2804 


04330 




JR 


Z, APPENDA 


;Continue if not 


2408 21FFFF 


04340 




LD 


HL.-l 


; else abort 


240B C9 


04350 
04360 


9 


RET 








04370 


9 


<BREAK> 


not hit - Execute Module 




04380 


9 










04390 APPENDA 








240C ED734924 


04400 




LD 


(SAVESP+1), 


SP ;Save SP address 


2410 CD4F24 


04410 




CALL 


APCODE 


;Call Append code 


2413 210000 


04420 


EXIT 


LD 


HL,0 


;Good exit 


2416 1830 


04430 
04440 


9 


JR 


SAVESP 






04450 


9 


I/O Error Display 8 


i Abort Routine 




04460 


9 








2418 F5 


04470 


IOERR 


PUSH 


AF 


;Save error code 


2419 CD1629 


04480 




CALL 


PMTSYS 


;Prompt SYSTEM Disk 


241C Fl 


04490 




POP 


AF 


;Rcvr error code 


241D F6C0 


04500 




OR 


0C0H 


;Set for abbrev error msg 


241F 4F 


04510 




LD 


C,A 


;Save Error # in C 


2420 


04520 




TERROR 




; Display & abort 


2420 3E1A 


00003 




LD 


A, 26 




2422 EF 


00004 




RST 


40 




2423 1823 


04530 
04540 


9 


JR 


SAVESP 


;Good bye 




04550 


9 


Load HL 


with error 


message string to display 




04560 


9 








2425 21C92A 


04570 


SAMERR 


LD 


HL,SAMERR$ 


; "Source & Dest same" 


2428 DD 


04580 




DB 


0DDH 




2429 218F2A 


04590 


SPCREQ 


LD 


HL,SPCREQ$ 


;"File spec required" 


242C DD 


04600 




DB 


0DDH 




242D 21A22A 


04610 


NOINDO 


LD 


HL,NOINDO$ 


;" Invalid during <DO>" 


2430 DD 


04620 




DB 


0DDH 




2431 21492A 


04630 


DIFLRL 


LD 


HL,DIFLRL$ 


;"Files have diff LRLs" 


2434 DD 


04640 




DB 


0DDH 




2435 21532A 


04650 


DSTREQ 


LD 


HL,DSTREQ$ 


;"Dest spec Required" 


2438 


04660 




<a@LOGOT 




;Log error message 




00005 




IFEQ 


00H,1 






00006 




LD 


HL, 






00007 




ENDIF 






2438 3E0C 


00008 




LD 


A, 12 




243A EF 


00009 
04670 




RST 


40 






04680 




Attempt 


to close any OPEN destination file 




04690 










243B 11B32B 


04700 




LD 


DE,FCB2 


; Point to dest FCB 


243E 1A 


04710 




LD 


A,(DE) 


;Is the file OPEN? 


243F 07 


04720 




RLCA 






2440 3003 


04730 




JR 


NC, ABORT 
Page 41 


;No - abort 
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LIBRARY Files 
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LBCOPYA - APPEND Mainline 



2442 
2442 3E3C 

2444 EF 

2445 21FFFF 



2448 310000 
244B 

244B 3E6A 
244D EF 
244E C9 



244 F AF 

2450 328026 
2453 328126 
2456 327828 

2459 CDC228 



245C 11072C 
245 F 
245F 3E4E 

2461 EF 

2462 C22924 



2465 11B32B 
2468 

2468 3E4E 
246A EF 
246B C43027 



246E 3AB32B 
2471 FE2A 
2473 CA2924 



2476 11812B 
2479 

2479 3E11 
247B EF 
247C C21824 

247F CD5A27 



2482 CD252A 
2485 CD6128 



04740 



1 

04750 ABORT 
04760 ; 
04770 ; 



@@CLOSE 

LD A, 60 

RST 40 

LD HL.-l ;Abort code to HL 

P/u Stack, clear any <BREAK> & return 



04790 SAVESP 



00012 
00013 



04820 ; 
04830 ; 
04840 ; 
04850 APCODE 



04870 



04900 
04910 



04930 



04950 
04960 
00014 
00015 
04970 



04990 ; 
05000 ; 
05010 
05020 
00016 
00017 
05030 
05040 ; 
05050 ; 
05060 ; 
05070 APND1 
05080 
05090 
05100 ; 
05110 ; 
05120 ; 
05130 
05140 
00018 
00019 
05150 
05160 ; 
05170 
05180 ; 
05190 ; 
05200 ; 
05210 
05220 



LD SP 9 $-$ 

(30CKBRKC 

LD A, 106 

RST 40 

RET 



;P/u stack 

;Clear any <BREAK> 



; and RETurn 

APCODE - Append spec to spec 



XOR A 

LD (CPARW-1) S A 

LD (CPARM+2) 9 A 

LD (APPFLAG+1),A 



;Turn off CLONE parm 



;We're in APPEND not COPY 
CALL DOINIT ;Set High memory 
Check if Filespec/Devspec #1 is legal 



LD DE S FCB1 

00FSPEC 

LD A, 78 

RST 40 

JP NZ S SPCREQ 



;DE => File #1 FCB 
;Check out filespec 



;NZ - Filespec Required 
Check if Filespec/Devspec #2 is legal 



LD DE S FCB2 

@@FSPEC 

LD A, 78 

RST 40 

CALL NZ,CVRTUC 



;DE => File #2 FCB 
;Check if legal 



;Convert line to U/C 
Is the second FCB a device ? 



LD 
CP 
JP 



A,(FCB2) 



Z,SPCREQ 
Parse any parameters entered 



;P/u byte of FCB2 
;Is this a devspec ? 
;Z - Filespec required 



LD DE.APPTBL 

(9(3 PAR AM 

LD A, 17 

RST 40 

JP NZ.IOERR 



CALL 



PRSPC 



;DE => Parameter Table 
;Check out parameters 



;NZ - Parameter Error 
;P/u FCB ptr in DE 



Open Filespec #2 with LRL of 256 



CALL 
CALL 



0PENSR2 
PUTDEST 



;Open Filespec #2 
;Xfer Dest filespec 
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2488 CD9628 

248B 32A424 
248E 327D26 



2491 CD1B2A 
2494 CD5B28 



2497 EB 

2498 CB7E 
249A EB 
249B CC7228 
249E 2819 



24A0 CD9628 
24A3 0600 
24A5 A8 
24A6 C23124 
24A9 CD7228 



24AC 110000 
24AF 7A 
24B0 B3 
24 Bl 2006 



24B3 3ABB2B 
24B6 B7 
24B7 281F 



24B9 11B32B 
24 BC 

24BC 3E41 
24BE EF 



24BF 3AAD24 
24C2 B7 
24C3 280A 



24C5 21BC2B 
24C8 46 
24C9 3601 
24 CB 
24CB 3E3D 



05230 

05240 ; 

05250 

05260 

05270 ; 

05280 ; 

05290 ; 

05300 

05310 

05320 ; 

05330 ; 

05340 ; 

05350 

05360 

05370 

05380 

05390 

05400 ; 

05410 ; 

05420 ; 

05430 

05440 LRL2 

05450 

05460 

05470 

05480 ; 

05490 ; 

05500 ; 

05510 SPARM 

05520 

05530 

05540 

05550 ; 

05560 ; 

05570 ; 

05580 

05590 

05600 

05610 

05620 

05630 

05640 APND2 

05650 

00020 

00021 

05660 ; 

05670 ; 

05680 ; 

05690 

05700 

05710 

05720 ; 

05730 ; 

05740 ; 

05750 

05760 

05770 

05780 

00022 



CALL 

LD 
LD 



GETLRL 

(LRL2+1),A 
(GEOFl+l),A 



;Get LRL from DIR entry 

;Set dir LRL into parm 
;Also stuff for later 



Open Filespec #1 with LRL of 256 



CALL 
CALL 



OPENSRC 
PUTSOUR 



;0pen Filespec #1 
;Xfer source filespec 



Is the Source a Device ? 



EX 

BIT 

EX 

CALL 

JR 



DE,HL 

7,(HL) 

DE,HL 

Z,CPYFILE 

Z,APND2 



P/u FCB+0 of source 
Device ? 

Display "Appending ...' 
Yes - don't check LRLs 



File Source - Check if LRLs are different 



CALL 

LD 

XOR 

JP 

CALL 



GETLRL 

B,$-$ 

B 

NZ S DIFLRL 

CPYFILE 



P/u LRL of Filespec #1 
P/u LRL of Filespec #2 
Same ? 

No - Different LRLs 
; "Appending : " 



Files have same LRLs, check STRIP parameter 



LD 
LD 
OR 
JR 



DE s $-$ 
A,D 
E 
NZ,APND2 



;P/u strip parameter 
;If STRIP, then must do 
; byte I/O 
;Go if STRIP 



Pick up End of File offset byte from FCB 



LD 
OR 
JR 



A,(FCB2+8) 

A 

Z,APND3 



;Get eof mark 

;If full sectors, use 

; Sector I/O 



EOF not on page boundary - use byte I/O 

;Position to end of file 



LD DE,FCB2 

@(aPEOF 

LD A s 65 

RST 40 



If STRIP, then backspace the dest by 1 byte 



LD 
OR 
JR 



A,(SPARM+1) 

A 

Z,APND2A 



;P/u SPARM 

; Specified ? 

;No - don't backspace 



SPARM specified - Backspace one byte 



LD 

LD 

LD 

@@BKSP 

LD 



HL,FCB2+9 

B,(HL) 

(HL),1 

A, 61 



;HL => LRL of FCB #2 
;P/u current dest LRL 
;Reset LRL=1 
; Backspace 1 byte 
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24CD EF 


00023 


RST 


40 




24CE 70 


05790 
05800 ; 


LD 


(HL),B 


Reset LRL back 




05810 ; 


Replace 


s the I/O buffer ir 


i FCB #2 




05820 ; 








24CF 21002F 


05830 APND2A 


LD 


HL,BUF2 


HL => New buffer addr 


24 D2 22B62B 


05840 


LD 


(FCB2+3),HL 


Stuff in FCB 


24D5 C3F426 


05850 
05860 ; 


JP 


BYTIO0 






05870 ; 


EOF on 


page boundary, use sector I/O 




05880 ; 








24D8 ED4B132C 05890 APND3 


LD 


BC S (FCB1+12) 


P/u ERN of source 


24 DC 78 


05900 


LD 


A,B 


If source is a null 


24 DD Bl 


05910 


OR 


C 


; fi le, don't do any 


24 DE CAA326 


05920 
05930 ; 


JP 


Z,GE0F3 


appending, just close 




05940 ; 


Write Ending Record Numbe 


jr 




05950 ; 








24E1 2ABF2B 


05960 


LD 


HL,(FCB2+12) 


P/u ERN of dest 


24E4 E5 


05970 


PUSH 


HL 


Save it for later 


24E5 09 


05980 


ADD 


HL,BC 


Add the two to find new 


24E6 44 


05990 


LD 


B,H ; 


ERN & Xfer new ERN to BC 


24E7 4D 


06000 


LD 


C,L 




24E8 CDB526 


06010 


CALL 


WRERN 


Write a data sector 


24EB El 


06020 


POP 


HL ; 


Recover original ERN 


24EC 22BF2B 


06030 


LD 


(FCB2+12) S HL ; 


& reset FCB to it 


24 EF 


06040 


WE OF 


! 


Position to end of file 


24EF 3E41 


00024 


LD 


A, 65 




24F1 EF 


00025 


RST 


40 




24F2 C31126 


06050 


JP 


XFER5 




24F5 


06060 


SUBTTL 


'<LBCOPYA - COPY 


Mainline>' 
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24F5 


06070 


PAGE 




06080 






06090 


\ COPY Entry Point - was <BREAK> hit ? 




06100 






06110 COPYST 


24F5 


06120 


@(<>CKBRKC ;Check for break 


24F5 3E6A 


00026 


LD A, 106 


24F7 EF 


00027 


RST 40 


24F8 2804 


06130 


JR Z, COPYSTA Continue if not 


24FA 21FFFF 


06140 


LD HL,-1 ; else abort 


24FD C9 


06150 
06160 


RET 




06170 


, <BREAK> not hit - execute module 




06180 




24FE ED734924 


06190 COPYSTA LD (SAVESP+1) ,SP ;Save SP address 


2502 CD0825 


06200 


CALL COPYCD ; Execute Copy code 


2505 C31324 


06210 


JP EXIT ;Go to common exit 




06220 


> 




06230 


; COPYCD - Copy spec to spec 




06240 


> 




06250 ( 


;opycd 


2508 CDC228 


06260 
06270 


CALL DOINIT ;Set high mem test byte 




06280 


Check if Source Filespec is legal 




06290 




250B 11072C 


06300 


LD DE,FCB1 ;DE => Source FCB 


250E 


06310 


G>@FSPEC ;Check out filespec 


250E 3E4E 


00028 


LD A, 78 


2510 EF 


00029 


RST 40 


2511 C22924 


06320 
06330 s 


JP NZ,SPCREQ ;NZ - Filespec required 




06340 s 


Check if Destination Filespec is legal 




06350 , 




2514 11B32B 


06360 


LD DE,FCB2 ;DE => Destination FCB 


2517 


06370 


00FSPEC ;Check out filespec 


2517 3E4E 


00030 


LD A, 78 


2519 EF 


00031 


RST 40 


251A C43027 


06380 
06390 s 


CALL NZ,CVRTUC ;Convert line to U/C 




06400 . 


Process any parameters entered 




06410 , 




251D 11942B 


06420 C 


:0PY1 LD DE,COPYTBL ;DE => Parameter Table 


2520 


06430 


@@PARAM ;Check out parameters 


2520 3E11 


00032 


LD A,17 


2522 EF 


00033 


RST 40 


2523 C21824 


06440 
06450 s 


JP NZ, IOERR ;NZ - Parameter Error 




06460 s 


Test if X parameter was entered 




06470 ; 




2526 110000 


06480 ) 


(PARM LD DE,$-$ ;P/u (X) parm - We don't 


2529 7A 


06490 


LD A,D ; XFER devices 


252A B3 


06500 


OR E ; 


252 B 200 B 


06510 
06520 , 


JR NZ,XFER ; 




06530 , 


Is the Source or Destination a device ? 




06540 , 




252D CDEA29 


06550 


CALL CKDEV ;Device ? 


2530 CAD526 


06560 
06570 ; 


JP Z, BYTE 10 ;Yes - use byte I/O 




06580 ; 


Pick up Defaults for source and destination 
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06590 ; 








2533 CD5A27 


06600 


CALL 


PRSPC 


;P/u defaults 


2536 185B 


06610 
06620 ; 


JR 


OPNSRC 






06630 ; 


XFER 


initialization code 




06640 ; 








2538 


06650 XFER 


00FLAGS 


;Position IY to flags 


2538 3E65 


00034 


LD 


A, 101 




253A EF 


00035 


RST 


40 




253B FDCB126E 06660 


BIT 


5 S (IY+SFLA6$) 


;D0 in Effect ? 


253F C22D24 


06670 
06680 ; 


JP 


NZ s N0IND0 


;Yes - abort 




06690 ; 


If the Source or Dest is a Device - abort 




06700 ; 








2542 CDEA29 


06710 


CALL 


CKDEV 


; Device ? 


2545 CA2924 


06720 
06730 ; 


JP 


Z 9 SPCREQ 


;Yes - Filespecs required 




06740 ; 


P/u Drivespec of Source 


Filespec if entered 




06750 ; 








2548 21072C 


06760 


LD 


HL 9 FCBl 


;HL => FCB #1 


254B 0E00 


06770 
06780 ; 


LD 


C,0 


;Init to drive zero 




06790 ; 


Loop 


to Pick up Drive # 


or terminator 




06800 ; 








254D 7E 


06810 XFER1 


LD 


A 9 (HL) 


;Look for drive spec 


254E 23 


06820 


INC 


HL 




254F FE3A 


06830 


CP 


i . i 


;Colon indicator? 


2551 2806 


06840 


JR 


Z°XFER2 


;Jump if found 


2553 FE20 


06850 


CP 


1 9 


;Jump on end 


2555 3806 


06860 


JR 


C 9 XFER3 




2557 18F4 


06870 
06880 ; 


JR 


XFER1 


;Loop 




06890 ; 


Colon 


indicator present 


- p/u drive # 




06900 ; 








2559 7E 


06910 XFER2 


LD 


A,(HL) 


;P/u user drive 


255A D630 


06920 


SUB 


'0' 


;Cvrt to binary 


255C 4F 


06930 
06940 ; 


LD 


C,A 


; & stuff in C 




06950 ; 


Save 


Source drive numbei 






06960 ; 








255D 211C29 


06970 XFER3 


LD 


HL,XFRDRV+1 


;HL => Drive # 


2560 71 


06980 
06990 ; 


LD 


(HL) S C 


;Save drive # for later 




07000 ; 


Stuff 


drive # into Prompt strings 




07010 ; 








2561 3E30 


07020 


LD 


A,'0' 


;Cvt drive # to ASCII 


2563 81 


07030 


ADD 


A S C 




2564 32322B 


07040 


LD 


(SRC DR) 9 A 


; Source Drive # 


2567 326C2B 


07050 
07060 ; 


LD 


(DEST DR) 9 A 


;Destination Drive # 




wim i 


Transfer source FCB to < 


destination FCB 




07080 ; 








256A 21072C 


07090 


LD 


HL 9 FCB1 


;HL => Source FCB 


256D 11B32B 


07100 


LD 


DE 9 FCB2 


;DE => Destination FCB 


2570 012000 


07110 


LD 


BC 9 32 


;32 bytes to Xfer 


2573 EDB0 


07120 
07130 ; 


LDIR 




;Xfer 


2575 CDE429 


07140 
07150 ; 


CALL 


GETSYS2 


;Load SYS2 for OPEN 
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2578 21122B 
257B CD7729 



257E 3A1C29 

2581 4F 

2582 CDF629 
2585 C21824 



2588 21CE2D 
258B 11272C 
258E 011200 
2591 EDB0 



2593 CD1B2A 
2596 CD5B28 
2599 CDA528 



259C 7D 
259D D610 
259F 6F 
25A0 7E 



25A1 0100FF 
25A4 04 
25A5 2001 
25A7 4F 
25A8 217D26 
25AB 71 



25AC 3A2725 
25AF B7 
25B0 282D 



25B2 21472B 
25B5 CD7729 



25B8 3A1C29 
25BB 4F 
25 BC CDF 62 9 
25BF C21824 



LD 
CALL 



LD 
LD 

CALL 
JP 



07160 ; 

07170 ; 

07180 

07190 

07200 ; 

07210 ; 

07220 ; 

07230 

07240 

07250 

07260 

07270 ; 

07280 ; 

07290 ; 

07300 

07310 

07320 

07330 

07340 ; 

07350 ; 

07360 ; 

07370 OPNSRC CALL 



Flash "Insert Source Disk" Message 



HL,PMTSRC$ ; Prompt for source 
FLASH ; and wait for <ENTER> 



Read in the GAT of the source disk 



A,(XFRDRV+1) 

K- 9 A 

RDGAT 
NZ s IOERR 



;P/u source drive 
; Stuff in C 
;Read in GAT 
;Abort on GAT error 



Xfer Password, Name % & Date to destination 



LD 
LD 
LD 
LDIR 



HL s GAT+0CEH 
DE 9 SRCSTR 
BC « 18 



;Disk pw 9 name, date 
;DE => Destination 



;Xfer 
OPEN the Source File with LRL of 256 



07380 
07390 
07400 ; 
07410 ; 
07420 ; 
07430 
07440 
07450 
07460 
07470 ; 
07480 ; 
07490 ; 
07500 LPARM 
07510 
07520 
07530 



CALL 
CALL 



OPENSRC 
PUTSOUR 
GETCLON 



Pick up Source LRL 



LD 
SUB 
LD 
LD 



A 9 L 
16 

L 5 M 

A S (HL) 



;Open source file 
;Xfer source filespec 
:Get clone data 



;Pt back to LRL of source 



;P/u source LRL 

Save LRL from source FCB or LRL Parameter 

BC.0FF00H ;P/u LRL 
B 

;If parm entered 9 use it 



LD 
INC 
JR 
LD 



07540 USEREGC LD 



07550 
07560 
07570 
07580 
07590 
07600 
07610 
07620 
07630 
07640 
07650 
07660 
07670 
07680 
07690 
07700 
07710 
07720 
07730 
07740 



LD 



NZ, USEREGC 
C A 

HL 9 GEOFl+l 
(HL),C 



;HL => stuff LRL here 
; Stuff LRL for close here 



Ignore this if not COPY (X) 

; Bypass if not (X) 



LD 
OR 
JR 



A,(XPARM+1) 

A 

Z 9 0PNDST 



Flash "Insert Destination Disk" message 



LD 
CALL 



HL 9 PMTDST$ 
FLASH 



; Prompt destination 
;Flash until loaded 



Read in GAT of Destination Disk 



LD 
LD 

CALL 
JP 



A,(XFRDRV+1) 

C S A 

RDGAT 

NZ 9 I0ERR 



;P/u drive 

;Read GAT from dest 

;Jump on GAT read error 
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07750 ; 


Xfer 


Name, Password & Date to destination 




07760 ; 








25C2 21CE2D 


07770 


LD 


HL,GAT+0CEH 


;HL => GAT + X'CE' 


25C5 11392C 


07780 


LD 


DE,DSTSTR 


;DE => Destination 


25C8 011200 


07790 


LD 


BC.18 


;To match up when 


25CB D5 


07800 


PUSH 


DE 




25CC EDB0 


07810 


LDIR 




; swapping disks 


25CE Dl 


07820 
07830 ; 


POP 


DE 


;Restore Dest ptr 




07840 ; 


Check 


if Source ID = 


Destination ID 




07850 ; 








25CF 21272C 


07860 


LD 


HL,SRCSTR 


;Compare source & dest 


25D2 0612 


07870 


LD 


B.18 


; CANNOT be same 


25D4 CD6C29 


07880 


CALL 


CPRHLDE 


;Ck MPW, PackID, Date 


25 D7 2006 


07890 
07900 ; 


JR 


NZ, OPNDST 


;Bypass if different 




07910 ; 


Displ 


ay "Source & Dest. Disks Identical" 




07920 ; 








25D9 CD1629 


07930 


CALL 


PMTSYS 


; Prompt for SYSTEM 


25DC C32524 


07940 
07950 ; 


JP 


SAMERR 


;Disk packs are identical 




07960 ; 


OPEN 


the destination 


File 




07970 ; 








25DF 11B32B 


07980 OPNDST 


LD 


DE,FCB2 


;DE => FCB #2 


25E2 21002E 


07990 


LD 


HL,BUF1 


;HL => I/O buffer #1 


25E5 CD172A 


08000 


CALL 


INITDES 


; Init the file 


25E8 CD6128 


08010 
08020 ; 


CALL 


PUTDEST 


;Xfer Dest filespec 




08030 ; 


Check 


if X parm entered 




08040 ; 








25 EB 3A2725 


08050 


LD 


A 9 (XPARM+1) 


;If (X), then source & 


25EE B7 


08060 


OR 


A 


; dest can be same file 


25 EF 200 D 


08070 
08080 ; 


JR 


NZ,XF2 


;Bypass if (X) 




08090 ; 


Does 


Source & Dest. have same DEC & drive # 




08100 ; 








25F1 2A0D2C 


08110 


LD 


HL,(FCBl+6) 


;If SRC & DST have same 


25F4 ED5BB92B 08120 


LD 


DE s (FCB2+6) 


; DEC & drive, they are 


25 F8 AF 


08130 


XOR 


A 


; identical, abort if so 


25F9 ED52 


08140 


SBC 


HL,DE 




25FB CA3524 


08150 
08160 ; 


JP 


Z,DSTREQ 


;Same - dest spec needed 




08170 ; 


Write 


revised ERN for 


* space check 




08180 ; 








25FE CD7228 


08190 XF2 


CALL 


CPYFILE 


;"Copying : ..." 


2601 ED4B132C 08200 


LD 


BC S (FCB1+12) 


;P/u ESN 


2605 CDB526- 


08210 
08220 ; 


CALL 


WRERN 


;Write a FORMAT sector 




08230 ; 


Reset 


Destination ESI^ 


J to Zero 




08240 ; 








2608 210000 


08250 


LD 


HL,0 


; Rewind file 


260B 22BF2B 


08260 


LD 


(FCB2+12),HL 




260E 


08270 


GKPREW 




; Rewind the file 


260E 3E44 


00036 


LD 


A, 68 




2610 EF 


00037 
08280 ; 


RST 


40 




2611 CB2829 


08290 XFER5 
08300 ; 


CALL 


PMTSRC 


;Display "Insert source" 




08310 ; 


Stuff 


Correct Buffer 


Address in Source FCB 
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2614 21002E 
2617 220A2C 



261A 11072C 
261D 

261D 3E43 
261F EF 
2620 280B 



2622 FE1C 
2624 2827 
2626 FE1D 
2628 2823 
262A C31824 



262D 24 
262E 7C 
262F FE00 
2631 20E4 



2633 CD4A29 



2636 21002E 
2639 22B62B 



263C 11B32B 
263F 
263F 3E4B 

2641 EF 

2642 C21824 



2645 24 

2646 7C 

2647 FE00 
2649 20EE 
264B 18C4 



264D CDF228 
2650 2A0F2C 
2653 22BB2B 



08320 ; 

08330 LD 

08340 RDREC1 LD 

08350 



HL.BUF1 
(FCB1+3),HL 



; Stuff in FCB 
;Set buffer addr 



08360 

08370 

08380 

08390 

00038 

00039 

08400 

08410 

08420 

08430 

08440 

08450 

08460 

08470 

08480 

08490 

08500 

08510 

08520 RDREC2 INC 

08530 LD 

08540 RDREC3 CP 

08550 

08560 

08570 

08580 



Read in a Source Sector 



;DE => Source FCB 
;Read a sector 



LD DE.FCB1 

(SPREAD 

LD A, 67 

RST 40 

JR Z,RDREC2 ; Bypass if no error 

Some sort of I/O Error - Check it out 

;E0F? 

;NRN>ERN? 

;Abort 
Successful READ - is there enough memory ? 



CP 
JR 
CP 
JR 
JP 



1CH 

Z,GOTEOF 

1DH 

Z,GOTEOF 

IOERR 



H 

A S H 

$-$ 

NZ,RDREC1 



;Bump memory pointer 
;Go past top? 



08590 
08600 
08610 
08620 
08630 



JR NZ,RDREC1 ;Loop if not 

Read in all we could - display "Insert Dest" 

CALL PMTDST ;Get destination 

Stuff Source FCB buffer into Destination FCB 

LD 



08640 RDREC4 LD 

08650 

08660 

08670 

08680 

08690 

00040 

00041 

08700 

08710 

08720 

08730 

08740 

08750 



;Set buffer start 
Loop to WRITE Destination file 



HL S BUF1 
(FCB2+3) 9 HL 



LD DE,FCB2 

00WRITE 

LD A, 75 

RST 40 

JP NZ, IOERR 



;DE => Destination FCB 
;Write a sector 



;Jump on write error 
Bump memory ptr & check if finished 



;Loop if not 

;Else go back to source 



INC H ; Else bump memory pointer 

LD A 9 H ;At top? 

08760 RDREC5 CP $-$ 

08770 JR NZ,RDREC4 

08780 JR XFER5 
08790 ; 

08800 ; Got EOF error from source - Write out EOF 
08810 ; 

08820 GOTEOF CALL GE0F5 ;Write any memory left 

08830 LD HL,(FCBl+8) ;P/u EOF & LRL 

08840 LD (FCB2+8),HL ;Xfer to FCB2 
08850 ; 

08860 ; Get GCLOSE module if needed 
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08870 


9 






2656 CD1629 


08880 


CALL 


PMTSYS 


;Prompt SYSTEM if needed 


2659 CDE729 


08890 


CALL 


6ETSYS3 


;Load SYS3 for CLOSE 


265C 3A1C29 


08900 


LD 


A 9 (XFRDRV+1) 


;P/u drive # 


265F B7 


08910 


OR 


A 


;Is it zero ? 


2660 CC4A29 


08920 
08930 


CALL 


Z 9 PMTDST 


;Get dest if drive 




08940 


; Close 


the destination fi 


le 




08950 








2663 ED4BB92B 08960 


LD 


BC 9 CFCB2*6) 


;P/u drive # & DEC 


2667 11B32B 


08970 


LD 


DE.FCB2 


;DE -> Destin file FCB 


266A 


08980 


@@close 


;Close the dest file 


266A 3E3C 


00042 


LD 


A s 60 




266C EF 


000143 


RST 


40 




266D C21824 


08990 
09000 


JP 


NZ s IOERR 


;Jump on error 




09010 


; Get the destination file 


directory record 




09020 








2670 


09030 


(30DIRRD 


;Get destin dir entry 


2670 3E57 


00044 


LD 


A 9 87 




2672 EF 


00045 


RST 


40 




2673 C21824 


09040 
09050 


JP 


NZ s IOERR 


;I/0 error » abort 




09060 


; Stuff 


New LRL into directory entry 




09070 








2676 C5 


09080 
09090 


PUSH 


BC 


;Save drive & DEC 


2677 E5 


09100 


PUSH 


HL 


,HL => DIR+0 of dest 


2678 3E04 


09110 


LD 


A 9 4 


,Posn to LRL byte 


26 7 A 85 


09120 


ADD 


A,L 




267B 6F 


09130 


LD 


L S A 


'HL => DIR+4 (LRL) 


267C 3600 


09140 ( 


5EOF1 LD 


(HL) s $-$ 


>GEQF1+1 contains LRL 


267E El 


09150 
09160 


POP 


HL 


Restore HL 




09170 


, Pick up the Clone Paramei 


:er 




09180 « 








267F 11FFFF 


09190 ( 


;PARM LD 


DE,~1 


Default = ON 


2682 7A 


09200 


LD 


A S D 


Was it changed ? 


2683 B3 


09210 


OR 


E 




2684 2811 


09220 
09230 s 


JR 


Z 9 GE0F2 


CLONE = N 




09240 , 


CLONE 


= Yes , Transfer Att 


.ributes & Date 




09250 , 








2686 EB 


09260 


EX 


DE S HL 




2687 214B2C 


09270 


LD 


HL s CLONSAV ; 


HL => Attr, DE => DIR+0 


268A 010300 


09280 


LD 


BC S 3 


Move in prot/date, etc 


268D EDB0 


09290 
09300 , 


LDIR 








09310 , 


Transf 


"er Password fields 


to entry 




09320 s 








268F 3E0D 


09330 


LD 


A, 13 


Pt to dir pswd fields 


2691 83 


09340 


ADD 


A S E 




2692 5F 


09350 


LD 


E,A 


DE => DIR+16 


2693 0E04 


09360 


LD 


C,4 ; 


BC = 4 bytes to xfer 


2695 EDB0 


09370 
09380 ; 


LDIR 








09390 ; 


Write 


out Directory entrj 


i 




09400 ; 








2697 CI 


09410 C 


SEOF2 POP 


BC j 


Rcvr drive & DEC 
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2698 

2698 3E58 
269A EF 
269B 180C 



269D 21FFFF 
26A0 22B026 
26A3 11B32B 
26A6 

26A6 3E3C 
26A8 EF 
26A9 C21824 



26AC CD1629 
26AF 210000 
26B2 C34824 



26B5 11B32B 
26B8 78 
26B9 Bl 
26BA C8 



26BB 0B 
26 BC 

26 BC 3E42 
26 BE EF 
26 BF D5 



26C0 21002E 
26C3 11012E 
26C6 01FF00 
26C9 36E5 
26CB EDB0 



26CD Dl 
26CE 

26CE 3E4B 
26 D0 EF 
26D1 C8 
26D2 C31824 



26D5 CD1B2A 
26D8 CD5B28 



09420 



00047 

09430 

09440 ; 

09450 ; 

09460 ; 

09470 GEOF3A LD 

09480 LD 

09490 6E0F3 LD 

09500 

00048 

00049 

09510 GE0F4 

09520 



@@DIRWR 
LD A, 88 
RST 40 
JR GE0F4 



;Write Sector with entry 



;Go to Error check 
CLOSE the destination file 



HL,-1 

(RETCOD+l),HL 

DE 9 FCB2 
@@CLOSE 
LD A 9 60 

RST 40 

JP NZ.IOERR 



;Abort JCL 

; if <BREAK> hit 

;DE => Destination FCB 

;Close the file 



;I/0 Error - Abort 
Flash "Insert SYSTEM disk" & exit 



09530 

09540 

09550 GOHOME CALL PMTSYS ;Prompt SYSTEM if needed 

09560 RETCOD LD HL,$-$ ;P/u return code 0=good 

09570 

09580 



09590 

09600 

09610 WRERN 

09620 

09630 

09640 

09650 ; 

09660 ; 

09670 ; 

09680 

09690 



JP SAVESP finished 

WRERN - Write a format sector on FILE #2 



LD 
LD 
OR 
RET 



DE,FCB2 

A 9 B 

C 

Z 



;DE => File #2 FCB 
; Don't bother to write 
; a sector if source 
; is empty 



Position to ERN of File #2 
BC 



00051 
09700 
09710 
09720 
09730 
09740 
09750 
09760 
09770 
09780 
09790 



DEC 

@@POSN 

LD A s 66 

RST 40 

PUSH DE 

Fill a buffer of X'E5's 



LD 
LD 
LD 
LD 
LDIR 



HL,BUF1 
DE S BUF1+1 
BC,255 
(HL) 9 0E5H 



09810 
09820 
09830 
00052 
00053 



09850 
09860 
09870 
09880 



Write ERN of File #2 

POP DE 

@@WRITE 

LD A, 75 

RST 40 

RET Z 

JP IOERR 



;Adj for ERN 
; Posit ion to ERN 



;Save FCB ptr 



;HL => I/O buffer 
;DE => I/O buffer+1 
;255+l bytes to fill 
; Format byte = X'E5' 
;Fill buffer 



;DE => FCB #2 
; Write sector 



;RETurn if no error 
; Error - abort 



BYTEIO - OPEN Source or dest using byte I/O 



BYTE 10 CALL OPENSRC 
CALL PUTSOUR 
09910 ; 
09920 ; INIT the dest device with LRL from parm 



;0PEN source file 
;Get source filespec 
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09930 ; 








26 DB 3AA225 


09940 


LD 


A,(LPARM+1) 


;P/u LRL from Parm 


26 DE 47 


09950 


LD 


B,A 


;0pen destination 


26DF 11B32B 


09960 


LD 


DE,FCB2 


;DE => FCB #2 


26E2 21002F 


09970 


LD 


HL.BUF2 


; Different buffer 


26E5 3E3A 


09980 


LD 


A.GINIT 


;@INIT SVC # 


26E7 CD2C2A 


09990 


CALL 


GETFILE 


;Issue it 


26EA CD6128 


10000 


CALL 


PUTDEST 


;Get dest devspec 


26ED CD7228 


10010 


CALL 


CPYFILE 


; "Copying/Appending : .." 


26F0 AF 


10020 


XOR 


A 


;Reset LRL = 


26F1 32BC2B 


10030 
10040 ; 


LD 


(FCB2+9),A 


;For sector I/O 




10050 ; 


Turn or 


cursor 






10060 ; 








26F4 0E0E 


10070 BYTIO0 


LD 


C,14 


;Turn cursor on 


26F6 CDCA29 


10080 
10090 ; 


CALL 


DISPB 


; Display byte 




10100 ; 


BYTI01 


Loop - File - 


Dev, Dev - File, Dev - Dev 




10110 ; 


Was the 


<BREAK> key 


hit ? 




10120 ; 










10130 BYTI01 








26F9 CD1229 


10140 


CALL 


CKBRK 


;Was the <BREAK> key 


26FC C29D26 


10150 E F 
10160 ; 


JP 


NZ,GE0F3A 


; hit ???? 




10170 ; 


The <BREAK> was not 


hit - get a character 




10180 ; 








26FF 11072C 


10190 


LD 


DE S FCB1 


;DE => Source FCB 


2702 


10200 


GK3GET 




;Get a byte 


2702 3E03 


00054 


LD 


A, 3 




2704 EF 


00055 


RST 


40 




2705 280 B 


10210 
10220 ; 


JR 


Z.BYTI04 


;Good - stuff it 




10230 ; 


If Error # = 0, then 


try @GET again 




10240 ; 








2707 B7 


10250 


OR 


A 


; Error # = ? 


2708 28EF 


10260 
10270 ; 


JR 


Z.BYTI01 


;Yes - @GET again 




10280 ; 


Is the 


Error an "End 


of File" error ? 




10290 ; 








270A FE1C 


10300 


CP 


1CH 


;EOF? 


270C CAA326 


10310 


JP 


Z,GE0F3 


;Yes - finished 


270F C31824 


10320 
10330 ; 


JP 


IOERR 


;I/0 error - abort 




10340 ; 


Was the 


source character a <BREAK> ? 




10350 ; 








2712 FE80 


10360 BYT 104 


CP 


BREAK 


;<BREAK> character ? 


2714 2007 


10370 
10380 ; 


JR 


NZ.BYTI04A 


;No - @PUT it 




10390 ; 


Source 


= <BREAK> — 


is the BREAK bit set ? 




10400 ; 








2716 CD1229 


10410 


CALL 


CKBRK 


;<BREAK> bit set ? 


2719 20E1 


10420 


JR 


NZ.E F 


;Yes - stop 


271 B 3E80 


10430 
10440 ; 


LD 


A, BREAK 


;Restore A 




10450 ; 


Output 


byte to destination 




10460 ; 








271D 11B32B 


10470 BYTI04A 


LD 


DE,FCB2 


;DE => Dest. Device/File 


2720 4F 


10480 


LD 


C,A 


j Stuff byte in C for @PUT 


2721 


10490 


(3(9 PUT 




;Output byte 
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2721 3E04 

2723 EF 

2724 C21824 



2727 110000 
272A 14 
272B CCCA29 
272E 18C9 



2730 
2730 



00056 LD 

00057 RST 
10500 JP 
10510 ; 
10520 ; 
10530 ; 

10540 EPARM LD DE,$-$ 

10550 INC D 

10560 CALL Z S DISPB 

10570 JR BYTIOl 
10580 ; 

00250 *GET LBCOPYB:3 

10590 ;LBCOPYB/ASM - COPY/ APPEND Common Routines 

10600 SUBTTL '<LBCOPYB - COPY/APPEND Common Routines^ 



A,4 

40 

NZ.IOERR ;NZ - I/O Error 

Echo byte if parameter set 

;P/u ECHO parm 
;Specified ? 
;Echo byte 
;Go til EOF or BREAK 
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2730 


10610 
10620 ; 


PAGE 










10630 ; 


CVRTUC 


- Transfer 


partspec & convert to U/C 




10640 ; 


HL => 


Buffer containi 


ng characters to parse 




10650 ; 


DE => 


Destination 


of 


converted line 




10660 ; 










2730 CD3827 


10670 CVRTUC 


CALL 


CVRT 




;Convert line 


2733 3E0D 


10680 


LD 


A,CR 




;Ensure end-of~line 


2735 12 


10690 


LD 


(DE),A 




; with a carriage return 


2736 C9 


10700 
10710 ; 


RET 










10720 ; 


Position to First 


non 


-space character 




10730 ; 










2737 23 


10740 CVRT0 


INC 


HL 






2738 7E 


10750 CVRT 


LD 


A,(HL) 




;P/u possible dest char 


2739 FE0D 


10760 


CP 


CR 




;Exit on CR 


273B C8 


10770 


RET 


Z 






273C FE20 


10780 


CP 


i i 




;Loop on space 


273E 28F7 


10790 


JR 


Z s CVRT0 






2740 2B 


10800 
10810 ; 


DEC 


HL 




; Backup to 1st separator 




10820 ; 


HL => 


Files pec or 


Dev 


spec, convert to U/C 




10830 ; 










2741 0620 


10840 


LD 


B s 32 




;Max 32 chars 


2743 7E 


10850 C0P1 


LD 


A,(HL) 




; Transfer the partial 


2744 FE61 


10860 


CP 


'a' 




;Cvrt 1c to uc 


2746 3806 


10870 


JR 


C S C0P2 






2748 FE7B 


10880 


CP 


'z'+l 






274A 3002 


10890 


JR 


NC 9 C0P2 






274C CBAF 


10900 


RES 


5,A 






274E 12 


10910 C0P2 


LD 


(DE),A 




;Filespec until paren 


274F FE0D 


10920 


CP 


CR 




;RETurn if terminator 


2751 C8 


10930 


RET 


Z 






2752 FE28 


10940 


CP 


'(' 




parameter ? 


2754 C8 


10950 


RET 


Z 






2755 23 


10960 


INC 


HL 




;Bump ptr 


2756 13 


10970 


INC 


DE 






2757 10EA 


10980 


DJNZ 


COP1 




;32 characters max 


2759 C9 


10990 
11000 ; 


RET 










11010 ; 


PRSPC 


- Match Source 


& Dest. specs for defaults 




11020 ; 










275A 21072C 


11030 PRSPC 


LD 


HL S FCB1 




;HL => Source FCB 


275D 11B32B 


11040 
11050 ; 


LD 


DE S FCB2 




;DE => Destin FCB 




11060 ; 


Abort 


if first character is illegal 




11070 ; 










2760 1A 


11080 


LD 


A 9 (DE) 




;P/u 1st char of dest 


2761 FE0D 


11090 


CP 


CR 




;Is it a C/R ? 


2763 CA3524 


11100 


JP 


Z S DSTREQ 




; "Destination spec req" 


2766 FE30 


11110 


CP 


•0* 




; Numeric ? 


2768 3805 


11120 


JR 


CCHKDEST 






276A FE3A 


11130 


CP 


'9'+l 






276C DA3524 


11140 
11150 ; 


JP 


C 9 DSTREQ 




;Yes - "Dest spec req" 


276F D5 


11160 CHKDEST 
11170 ; 


PUSH 


DE 




;Save Destination FCB ptr 




11180 ; 


If no 


dest. filename. 


xfer source filename 




11190 ; 










2770 1A 


11200 


LD 


A 9 (DE) 




;P/u a ciest char 
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2771 FE41 
2773 DCAA27 
2776 062F 
2778 CD8327 
277B 062E 
277D CD8327 

2780 Dl 

2781 C9 



2782 13 



2783 1A 

2784 B8 

2785 280E 



2787 FE41 
2789 30F7 
278B FE30 
278D 3808 
278F FE3A 
2791 38EF 

2793 1802 



2795 13 

2796 C9 



2797 E5 

2798 7E 

2799 23 



279A FE03 
279C 280A 
279E FE0D 
27A0 2806 



27A2 B8 
27A3 20F3 



27A5 CDB627 



CP 

CALL 

LD 

CALL 

LD 

CALL 

POP 

RET 



'A' 

C.PRSPC7 
B,7' 
PRSPC2 

PRSPC2 
DE 



Filename present ? 
No - xfer src filename 
With an alpha, init to 

test for extension 
;Init to test for pswd 



PRSPC2 - Transfer Field to destination 
DE => Start of Destination Field 
B = Delimiter to Position one byte after 



DE 



11210 

11220 

11230 

11240 

11250 

11260 

11270 

11280 

11290 ; 

11300 ; 

11310 ; 

11320 ; 

11330 ; 

11340 PRSPC1 INC 

11350 ; 

11360 ; Finished with Field (Delimiter hit) ? 

11370 ; 

11380 PRSPC2 LD A S (DE) ;Is the next char the 

11390 CP B Separator to look for 

11400 JR 

11410 ; 

11420 ; 

11430 ; 

11440 

11450 

11460 

11470 

11480 

11490 

11500 ; 

11510 

11520 ; 

11530 ; 

11540 ; 

11550 PRSPC3 INC 

11560 RET 

11570 ; 

11580 ; Scan Source spec & see if it contains field 

11590 ; 

11600 PRSPC4 PUSH HL ;Save ptr to source 

11610 PRSPC5 LD A,(HL) ;Grab a source char 

11620 

11630 ; 



Z,PRSPC3 
Skip over an existing destination field 



CP 
JR 
CP 
JR 
CP 
JR 

JR 



'A' 

NC,PRSPC1 

•0 1 

C.PRSPC4 

•9'+l 

C.PRSPC1 

PRSPC4 



Alphabetic ? 

;Yes - skip it 

; Numeric ? 

;No - use source field 

; Numeric ? 

;Yes - skip it 

;Use source field 



Hit the delimiter - Position to next char 

DE ;Position to next field 

; and RETurn 



11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
11730 
11740 
11750 
11760 
11770 
11780 
11790 



INC HL ; Posit ion to next char 

Is the character a Terminator ? 



CP 
JR 
CP 
JR 



ETX 

Z,PRSPC6 
CR 
Z,PRSPC6 



;End of line ? 

;If so, not in source 

;End of line? 

;If so, not in source 



is the character the field delimiter ? 



CP 
JR 



; Deli miter ? 
;Nope, continue 



NZ,PRSPC5 

Transfer Source Field to Destination 
CALL MVFLD1 ;Yes, xfer the SRC field 
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27A8 El 


11800 PRSPC6 


POP 


HL 


;Rcvr source ptr 


27A9 C9 


11810 


RET 








11820 , 












11830 




PRSPC7 


- Shoehorn source into destination field 




11840 , 












11850 




Check i 


f 1st char in 


(HL) is alphanumeric 




11860 










27AA 7E 


11870 PRSPC7 


LD 


A,(HL) 


;P/u source char 


27 AB FE30 


11880 


CP 


'0' 


;RET NC if alphanumeric 


27AD D8 


11890 


RET 


C 


;C - not alphanumeric 


27AE FE3A 


11900 


CP 


'9'+l 


; Numeric (0-9) ? 


27B0 3803 


11910 


JR 


C, MVFLD 


;Xfer if it is 


27B2 FE41 


11920 


CP 


'A' 


;Not numeric - 


27B4 D8 


11930 
11940 ; 


RET 


C 


;Must be alphabetic 




11950 ; 


Shoehor 


n a source field byte into dest FCB 




11960 ; 








27B5 23 


11970 MVFLD 


INC 


HL 


;Bump source pointer 


27B6 E5 


11980 MVFLD1 


PUSH 


HL 




27B7 62 


11990 


LD 


H,D 


;Xfer dest ptr to HL 


27B8 6B 


12000 
12010 ; 


LD 


L,E 






12020 ; 


P/u current char 9 & 


stuff in last char 




12030 ; 








27B9 4E 


12040 MVFLD2 


LD 


C 9 (HL) 


;P/u dest char 


27BA 77 


12050 


LD 


(HL),A 


;Stuff in last character 


27 BB 23 


12060 
12070 ; 


INC 


HL 


;Posn to next char 




12080 ; 


Finished with field 


? 




12090 ; 








27BC 79 


12100 


LD 


A,C 


;Test dest for 


27BD FE03 


12110 


CP 


ETX 


;End of line ? 


27 BF 2804 


12120 
12130 ; 


JR 


Z,MVFLD3 




27C1 FE0D 


12140 


CP 


CR 


;End of line ? 


27C3 20F4 


12150 
12160 ; 


JR 


NZ,MVFLD2 


;Ripple the destination 




12170 ; 


Done stuffing 1 source byte into dest field 




12180 ; 








27C5 77 


12190 MVFLD3 


LD 


(HL),A 


; Stuff the terminator 


27C6 El 


12200 


POP 


HL 


;Restore Source FCB 


27C7 13 


12210 


INC 


DE 


;Advance to next pos 


27C8 18E0 


12220 
12230 ; 


JR 


PRSPC7 


;6o get next source byte 




12240 ; 


DOSVC - 


Get Filespec 


/Devspec & Issue @OPEN/@INIT 




12250 ; 








27CA F5 


12260 DOSVC 


PUSH 


AF 


;Save SVC # 


27CB E5 


12270 


PUSH 


HL 


; Buffer ptr 


27CC D5 


12280 
12290 ; 


PUSH 


DE 


;FCB 




12300 ; 


Transfer Filespec/Devspec into TEMBUF 




12310 ; 








27CD 21D32B 


12320 


LD 


HL, TEMBUF 




27D0 1A 


12330 TLP 


LD 


A S (DE) 


;P/u byte from FCB 


27D1 FE2F 


12340 


CP 


7' 


;Extension ? 


27D3 2008 


12350 


JR 


NZ,STUFCHR 


;No - save the char 


27 D5 1'3 


12360 


INC 


DE 


;Is the next character 


27D6 1A 


•12370 


LD 


A,(DE) 


; valid ? 


27D7 FE41 


12380 




CP 


'A' 
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27 D9 3802 


12390 




JR 


C, STUFCHR ; 


No - don't output it 


27DB IB 


12400 




DEC 


DE ; 


Back one 


27DC 1A 


12410 




LD 


A,(DE) ; 


P/u slash 


27DD 77 


12420 


STUFCHR 


LD 


(HL),A ; 


Xfer to TEMBUF 


27DE 23 


12430 




INC 


HL 




27DF 13 


12440 




INC 


DE 




27E0 FE0E 


12450 




CP 


CR+1 ; 


Done ? 


27E2 3808 


12460 




JR 


C.DUN 




27E4 FE3A 


12470 




CP 


i . i 




27E6 2804 


12480 




JR 


Z,*DUN 




27E8 FE2E 


12490 




CP 


i i 




27EA 20E4 


12500 
12510 


» 


JR 


NZ,TLP 






12520 


» 


Found 


valid terminator - 


Is this a device ? 




12530 


3 








27 EC 2B 


12540 


DUN 


DEC 


HL 


Back up to term 


27ED Dl 


12550 




POP 


DE 


,DE => FCB+0 


27EE 1A 


12560 




LD 


A,(DE) ; 


Device ? 


27EF FE2A 


12570 




CP 


i*i 




27F1 2807 


12580 




JR 


Z S DUN2 


Yes - done 


27F3 363A 


12590 




LD 


(HL),':' ; 


No - overwrite with ":" 


27F5 23 


12600 




INC 


HL 


Bump 


27F6 225828 


12610 




LD 


(DSPEC+1) S HL 


Save drivespec location 


27F9 23 


12620 




INC 


HL 


Bump 


27 FA 3603 


12630 


DUN2 


LD 


(HL),ETX 


.End with X'03' 


27FC El 


12640 




POP 


HL 


HL => Disk I/O buffer 


27FD Fl 


12650 




POP 


AF 


A = SVC # 


27FE 323228 


12660 
12670 


9 


LD 


(SVCNUW-lhA 


Save SVC # 




12680 


» 


Issue 


Supervisory Call 






12690 


3 








2801 EF 


12700 




RST 


28H 


,Do it 


2802 F5 


12710 




PUSH 


AF 


;Save SVC condition 


2803 CD4A28 


12720 




CALL 


GETDRIV 


,P/u drv (in C) if file 


2806 2817 


12730 
12740 


3 


JR 


Z S DEVICE 


;Z - this is a device 




12750 


3 


This 


is a file - did we GINIT it ? 




12760 


3 








2808 3A3228 


12770 




LD 


A,(SVCNUIYH-1) 


;P/u SVC # 


280B FE3A 


12780 




CP 


0INIT 


;Is it @INIT ? 


280D 2010 


12790 
12800 


3 


JR 


NZ S DEVICE 


;No - don't worry 




12810 


3 


Was the @INIT successful 


? 




12820 


3 








280F Fl 


12830 




POP 


AF 


; Don't perform 


2810 F5 


12840 




PUSH 


AF 


; a 0CKDRV if you didn't 


2811 2804 


12850 




JR 


Z,DO CKDR 


; successfully @INIT it. 


2813 FE2A 


12860 




CP 


42 


;LRL Open Fault ? 


2815 2008 


12870 
12880 


3 


JR 


NZ, DEVICE 


;No - Don't GCKDRV 




12890 


3 


0INIT 


was ok - is this a 


Write Prot Disk? 




12900 


3 








2817 


12910 


DO_CKDR 


m CK DRV 


;Write Protected Disk ? 


2817 3E21 


00058 




LD 


A, 33 




2819 EF 


00059 




RST 


40 




281A 3E0F 


12920 




LD 


A, 15 


; I ni t WP disk error code 


281C DA1824 


12930 
12940 


» 


JP 


CIOERR 


;Yes - abort 




12950 


> 


Check 


status on the @INI" 


f we did 
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281F Fl 
2820 2803 



12960 ; 

12970 DEVICE POP 
JR 



AF 
Z,CHKPROT 



Ignore Error #42 - "LRL Open Fault" 



2822 FE2A 
2824 C0 



CP 
RET 



42 
NZ 



; Ignore this error 
;NZ - Abort 



Check if File has proper Access 



12980 

12990 ; 

13000 ; 

13010 ; 

13020 

13030 

13040 ; 

13050 ; 

13060 ; 
2825 DDCB007E 13070 CHKPROT BIT 
2829 281D 13080 JR 

13090 LD 

13100 AND 

13110 LD 

13120 SVCNUM LD 

13130 CP 

13140 LD 

13150 JR 

13160 CP 

13170 JR 

13180 ; 

13190 ; Illegal Access to protected file 

13200 ; 

13210 ILLACC 00CLOSE 

00060 LD A s 

00061 RST 40 
13220 LD 
13230 JP 
13240 ; 

13250 INIT1 CP 
13260 JR 
13270 ; 

13280 OKYDOKY XOR 
13290 RET 
13300 ; 

13310 ; GETDRIV 
13320 ; 
13330 GETDRIV PUSH DE ;6et fcb to 



;Recover status 

;Check PROTection status 



282B DD7E01 
282E E607 

2830 47 

2831 3E00 
2833 FE3A 

2835 78 

2836 280C 
2838 FE06 
283A 380C 



283C 

283C 3E3C 
283E EF 
283F 3E19 
2841 C31824 

2844 FE05 
2846 30F4 

2848 AF 

2849 C9 



284A D5 
284B DDE1 
284D 1A 
284E CB7F 
2850 C8 



2851 DD7E06 

2854 4F 

2855 C630 
2857 320000 
285A C9 



285B E5 
285C 21E32B 
285F 1804 
2861 E5 



7, (IX) 

Z s OKYDOKY 

A,(IX+1) 

7 

B,A 

A,$-$ 

GINIT 

A S B 

Z.INIT1 

6 

C.OKYDOKY 



A s 25 
IOERR 



NC S ILLACC 
A 



;Is this a filespec ? 
;No - don't check 
;P/u protection byte 

;Xfer to B 

;P/u SVC # 

;@INIT ? 

;P/u protection level 

;Z - Must be < 5 

;Read Access ? 

;Yes - set Z & RE Turn 



;Close File 



;File Access Denied 
; Error - Regardless 

;Update Access ? 
;No - Illegal Access 

;Set Z flag 
;And RETurn 



P/u Drive # from FCB & convert to ASCII 



POP 
LD 
BIT 
RET 



13340 

13350 

13360 

13370 

13380 ; 

13390 ; 

13400 ; 

13410 

13420 

13430 

13440 DSPEC 

13450 

13460 ; 

13470 ; 

13480 ; 

13490 PUTSOUR PUSH 

13500 LD 

13510 JR 

13520 PUTDEST PUSH 



IX 

A S (DE) 
7, A 
Z 



; here. 
; Device ? 



; Device - RETurn 
Stuff Drive # into Buffer 



LD 

LD 

ADD 

LD 

RET 



A s (IX+6) 
C,A 
A 9 '0' 
($-$),A 



;Xfer to C 

; Convert to ASCII 



;RETurn w/ condition 
PUTSOUR/PUTDEST - Create Src/Dest File/Dev specs 



HL 

HL,FR0M 
XBUFF 
HL 



;Save HL 
;Xfer there 

;Save HL 
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2862 21F72B 



2865 D5 

2866 11D32B 

2869 EB 
286A 010F00 
286D EDB0 
286F Dl 

2870 El 

2871 C9 



2872 
2873 
2874 
2877 
2879 
287A 
287C 
287F 
2882 
2885 
2888 
288B 
288 E 
2890 
2893 
2894 
2895 



E5 

D5 

21332A 

3E01 

B7 

2003 

213D2A 

CDD129 

21E32B 

CDD129 

21F32B 

CDD129 

0E0D 

CDCA29 

Dl 

El 

C9 



2896 D5 

2897 DDE1 
2899 DD7E07 
289C E6E0 
289E C604 
28A0 6F 
28A1 2600 
28A3 7E 
28A4 C9 



28A5 D5 
28 A6 DDE1 
28A8 DD7E07 
28AB E6E0 
28AD 6F 
28AE 2600 
28B0 114B2C 
28B3 010300 



13530 
13540 
13550 
13560 
13570 
13580 
13590 
13600 
13610 
13620 
13630 
13640 
13650 
13660 
13670 
13680 
13690 
13700 
13710 
13720 
13730 
13740 
13750 
13760 
13770 
13780 
13790 
13800 
13810 
13820 
13830 
13840 
13850 
13860 
13870 
13880 
13890 
13900 
13910 
13920 
13930 
13940 
13950 
13960 
13970 
13980 
13990 
14000 
14010 
14020 
14030 
14040 
14050 
14060 
14070 
14080 
14090 
14100 
14110 



LD 



HL,T02 



XBUFF - Transfer TEMBUF contents to User Buffer 
HL => Destination of Filespec/Devspec 



XBUFF 



PUSH 

LD 

EX 

LD 

LDIR 

POP 

POP 

RET 



DE 

DE, TEMBUF 

DE,HL 

BC.15 

DE 
HL 



;Save FCB ptr 
;DE => Source 
;Swap for LDIR 
;15 bytes Max 
;Xfer 

;DE => FCB+0 
;Recover Buffer 
;Done 



ptr 



CPYFILE - Display Copying/Appending Message 



CPYFILE 
APPFLAG 

ITSCOPY 



PUSH 

PUSH 

LD 

LD 

OR 

JR 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

POP 

POP 

RET 



HL 

DE 

HL,COPYMS 

A,$-$+l 

A 

NZ, ITSCOPY 

HL,APPDMS 

DSPLY 

HL,FROM 

DSPLY 

HL,TO 

DSPLY 

C,CR 

DISPB 

DE 

HL 



;Save registers 

;" Copying : " 
;Append or Copy ? 



; "Appending : 

; Source 

;" TO " 

;End line 
; Display byte 
;Restore Regs 



GETLRL 



GETLRL - Get LRL from a Directory Entry 
DE => FCB of filespec 
IX <= FCB of filespec 
A <= LRL of file 



;Xfer fcb to IX 



SYSBUF 



GETCLON 



SYSBUF2 



PUSH 


DE 


POP 


IX 


LD 


A,(IX+7) 


AND 


0E0H 


ADD 


A, 4 


LD 


L,A 


LD 


H,$-$ 


LD 


A S (HL) 


RET 




GETCLON 


- Recover 


PUSH 


DE 


POP 


IX 


LD 


A,(IX+7) 


AND 


0E0H 


LD 


L,A 


LD 


H, $-$ 


LD 


DE,CLONSAV 


LD 


BC,3 



;P/u DEC 

;Calculate Record Number 

;Pt to LRL 

;P/u hi -byte of SBUFF$ 
;P/u LRL 



;Xfer FCB to IX 
;P/u source DEC 
;Pt to start of record 
;Pt to core record 
;P/u hi -byte of SBUFF$ 
;Save clone info 



Page 59 



The Source LIBRARY Files COPY/APPEND - LS-DOS 6.2 Page 00021 

LBCOPYB - COPY/APPEND Common Routines 



28B6 EDB0 


14120 


LDIR 




28B8 3E0D 


14130 


LD 


A, 13 ;Pt to password fields 


28BA 85 


14140 


ADD 


A,L 


28BB 6F 


14150 


LD 


L,A 


28 BC 010400 


14160 


LD 


BC,4 ;Save them also 


28BF EDB0 


14170 


LDIR 




28C1 C9 


14180 
14190 ; 


RET 






14200 ; 


DOINIT 


- Initialization for APPEND or COPY 




14210 ; 






28C2 


14220 DOINIT 
14230 ; 


EQU 


$ 




14240 ; 


Calculate high byte of available memory 




14250 ; 






28C2 E5 


14260 


PUSH 


HL ;Save HL 


28C3 


14270 


(P(3FLAGS 


;IY => System Flags 


28C3 3E65 


00062 


LD 


A, 101 


28C5 EF 


00063 


RST 


40 


28C6 210000 


14280 


LD 


HL,0 ;P/u HIGH$ 


28C9 45 


14290 


LD 


B,L 


28CA FDCB024E 


14300 


BIT 


1 S (IY+CFLAG$) ;@CMNDR ? 


28CE 2801 


14310 


JR 


Z, USEHI ;No - use HIGH$ 


28 D0 04 


14320 


INC 


B ;Yes - use LOW$ 


28 Dl 


14330 USEHI 


(a@HIGH$ 




28 Dl 3E64 


00064 


LD 


A, 100 


28 D3 EF 


00065 
14340 ; 


RST 


40 




14350 ; 


Stuff high byte into memory check locations 




14360 ; 






28 D4 23 


14370 


INC 


HL ; 256-byte block 


28 D5 25 


14380 


DEC 


H 


28 D6 7C 


14390 


LD 


A,H ;Set up test bytes 


28 D7 323026 


14400 


LD 


(RDREC3+1),A 


28 DA 324826 


14410 


LD 


(RDREC5+1),A 


28DD 32F728 


14420 
14430 ; 


LD 


(GEOF6+l),A 




14440 ; 


Pick up 


high byte of System Buffer (SBUFF$) 




14450 ; 






28E0 010000 


14460 


LD 


BC s ;DEC = 9 Drive = 


28E3 


14470 


(3@DIRRD 


;Read in BOOT/SYS 


28E3 3E57 


00066 


LD 


A s 87 


28 E5 EF 


00067 


RST 


40 


28E6 7C 


14480 


LD 


A,H ;P/u high byte of SBUFF$ 


28E7 32A228 


14490 


LD 


(SYSBUF+1),A ; Stuff away for LRL 


28 EA 32AF28 


14500 
14510 ; 


LD 


(SYSBUF2+1),A ; Stuff away for CLONE 




14520 ; 


Reset <PAUSE> & <ENTER> bits 




14530 ; 






28ED CDBE29 


14540 


CALL 


RESKFLG ;Reset bits 1-2 


28F0 El 


14550 


POP 


HL 


28F1 C9 


14560 
14570 ; 


RET 






14580 ; 


GEOF5 - 


Write out the last sector of destination 




14590 ; 






28F2 7C 


14600 GEOF5 


LD 


A,H ;P/u hi -order pointer 


28F3 FE2E 


14610 


CP 


BUFK-8 ;Same as start? 


28F5 C8 


14620 
14630 ; 


RET 


Z ;Ret if finished 




14640 ; 


At the 


end of buffer area ? 
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14650 ; 






28F6 FE00 


14660 GE0F6 


CP 


$-$ ;GEOF6+l = msb of top 


28F8 C8 


14670 
14680 ; 


RET 


Z ;Return if finished 




14690 ; 


Flash " 


Insert Dest. Disk" & write remainder 




14700 ; 






28F9 CD4A29 


14710 


CALL 


PMTDST ;Prompt destination 


28FC 44 


14720 


LD 


B S H ;Save highest used 


28FD 21002E 


14730 
14740 ; 


LD 


HL,BUF1 ;Pt to start 




14750 ; 


Loop to 


write out remainder of dest. file 




14760 ; 






2900 22B62B 


14770 GEOF7 


LD 


(FCB2+3),HL ;Set dest buffer address 


2903 11B32B 


14780 


LD 


DE,FCB2 ;DE => Dest. FCB 


2906 


14790 


GK9WRITE 


;Write a record 


2906 3E4B 


00068 


LD 


A, 75 


2908 EF 


00069 


RST 


40 


2909 C21824 


14800 
14810 ; 


JP 


NZ, IOERR ;Jump on write error 




14820 ; 


Finished writing ? 




14830 ; 






290C 24 


14840 


INC 


H ;Bump buff ptr 


290D 7C 


14850 


LD 


A,H 


290E B8 


14860 


CP 


B finished? 


290F 20EF 


14870 


JR 


NZ,GEOF7 ;Loop if not 


2911 C9 


14880 
14890 ; 


RET 


;Return 




14900 ; 


CKBRK - 


Check for BREAK 




14910 ; 


NZ - <BREAK> key was depressed 




14920 ; 








14930 CKBRK 






2912 


14940 


(a@CKBRKC ;<BREAK> hit ? 


2912 3E6A 


00070 


LD 


A ,106 


2914 EF 


00071 


RST 


40 


2915 C9 


14950 
14960 ; 


RET 


;Z - No, NZ - Yes 




14970 ; 


PMTSYS 


- Prompt for a system disk 




14980 ; 






2916 3A2725 


14990 PMTSYS 


LD 


A,(XPARM+1) ;X parameter entered ? 


2919 B7 


15000 


OR 


A 


291A C8 


15010 
15020 ; 


RET 


Z ;No - need to prompt 




15030 ; 


If Xfer 


drive number isn't - don't prompt 




15040 ; 






291B 3E00 


15050 XFRDRV 


LD 


A,$-$ ;XFRDRV+1 contains drv # 


291D B7 


15060 


OR 


A ; Is it zero ? 


291E C0 


15070 
15080 ; 


RET 


NZ ;Ret if not SYSTEM drive 




15090 ; 


Flash " 


Insert SYSTEM disk" message 




15100 ; 






291F E5 


15110 


PUSH 


HL ;Save HL 


2920 21F32A 


15120 


LD 


HL,PMTSYS$ ;" Insert SYSTEM disk" 


2923 CD7729 


15130 


CALL 


FLASH ;Flash, & RET if <ENTER> 


2926 El 


15140 


POP 


HL ;Restore HL 


2927 C9 


15150 
15160 ; 


RET 






15170 ; 


PMTSRC 


- Prompt for Source Disk 




15180 ; 






2928 3A2725 


15190 PMTSRC 


LD 


A,(XPARM+1) ;X parameter entered ? 
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292B B7 


15200 


OR 


A 


292C C8 


15210 
15220 ; 


RET 


Z ;No - don't display it 




15230 ; 


Flash " 


Insert Source disk" message 




15240 ; 






292D E5 


15250 


PUSH 


HL 


292E 21122B 


15260 


LD 


HL,PMTSRC$ ; I ni t for source 


2931 CD7729 


15270 
15280 ; 


CALL 


FLASH ;Dsp msg & await reply 




15290 ; 


Read in 


the GAT from the Source Disk 




15300 ; 






2934 3A1C29 


15310 


LD 


A S (XFRDRV+1) ;P/u drive 


2937 4F 


15320 


LD 


C,A ; Stuff in C 


2938 CDF 629 


15330 
15340 ; 


CALL 


RDGAT ;Get GAT 




15350 ; 


Is this 


the correct source disk ? 




15360 ; 






293B 21CE2D 


15370 


LD 


HL.GAT+0CEH ;HL => Name & Date field 


293E 11272C 


15380 


LD 


DE,SRCSTR ;DE => Original Source 


2941 0612 


15390 


LD 


B,18 ;Same source disk ? 


2943 CD6C29 


15400 


CALL 


CPRHLDE ;Z - same, NZ - different 


2946 El 


15410 


POP 


HL ;Restore HL 


2947 20DF 


15420 


JR 


NZ S PMTSRC ;Re-request if not match 


2949 C9 


15430 
15440 ; 


RET 


;Okay 




15450 ; 


PMTDST 


- Prompt for Destination disk 




15460 ; 






294A 3A2725 


15470 PMTDST 


LD 


A,(XPARM+1) ;X parameter entered ? 


294D B7 


15480 


OR 


A 


294E C8 


15490 
15500 ; 


RET 


Z ;No - RETurn 




15510 ; 


Flash " 


Insert Destination disk" message 




15520 ; 






294F E5 


15530 


PUSH 


HL 


2950 21472B 


15540 


LD 


HL,PMTDST$ ;Pt to msg 


2953 CD7729 


15550 
15560 ; 


CALL 


FLASH ; Prompt & await reply 




15570 ; 


Read in 


GAT from original destination disk 




15580 ; 






2956 3A1C29 


15590 


LD 


A,(XFRDRV+1) ;P/u drive # 


2959 4F 


15600 


LD 


C,A ;Stuff in C 


295A CDF629 


15610 
15620 ; 


CALL 


RDGAT ;Get GAT 




15630 ; 


Is this 


the same destination disk ? 




15640 ; 






295D 21CE2D 


15650 


LD 


HL,GAT+0CEH ;HL => Name & Date field 


2960 11392C 


15660 


LD 


DE 9 DSTSTR ;DE => Original dest 


2963 0612 


15670 


LD 


B,18 ;Same destination disk ? 


2965 CD6C29 


15680 


CALL 


CPRHLDE ;Z - Same, NZ - different 


2968 El 


15690 


POP 


HL ;Restore HL 


2969 20DF 


15700 


JR 


NZ, PMTDST ;Re-request if wrong disk 


296B C9 


15710 
15720 ; 


RET 






15730 ; 


CPRHLDE 


- Compare string @ HL to string @ DE 




15740 ; 


B => Number of characters to compare 




15750 ; 


Z - Set if strings match 




15760 ; 






296C 1A 


15770 CPRHLDE 


LD 


A, (DE) ;P/u character @ DE 


296D BE 


15780 


CP 


(HL) ;Same ? 
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296E C0 


15790 


RET NZ 


;Ret (NZ) if no match 


296F 23 


15800 


INC HL 


;Bump each 


2970 13 


15810 


INC DE 




2971 10F9 


15820 


DJNZ CPRHLDE 


;Check B characters 


2973 C9 


15830 
15840 ; 


RET 


;Matched - RETurn Z 




15850 ; 


FLASH & FLASH0 - Flash , 


a message string 




15860 ; 


HL => Message string to 


flash 




15870 ; 






2974 CDBE29 


15880 FLASH0 
15890 ; 


CALL RESKFLG 


;Reset Pause, Enter 




15900 ; 


Pause briefly 






15910 ; 






2977 01FD41 


15920 FLASH 


LD BC, 16893 


; Del ay count 


297A 


15930 


@@PAUSE 




297A 3E10 


00072 


LD A, 16 




297C EF 


00073 
15940 ; 


RST 40 






15950 ; 


Wait for no Enter or Break 




15960 ; 






297D FD7E0A 


15970 


LD A,(IY+KFLAG$) 


;P/u KFLAG$ 


2980 E605 


15980 


AND 4!1 


;Wait until no ENTERIBRK 


2982 20Fj9 


15990 


JR NZ s FLASH0 


; Still down, go flash 


2984 CDBE29 


16000 
16010 ; 


CALL RESKFLG 


;Reset 




16020 ; 


Display the message & wait for 1/4 second 




16030 ; 






2987 CDD129 


16040 FLS1 


CALL DSPLY 




298A 010040 


16050 


LD BC.4000H 


;Delay 4000 iterations 


298D CD9D29 


16060 
16070 ; 


vALL rLoc 


; & scan for Break, Entei 




16080 ; 


Erase the message & wail 


t 




16090 ; 






2990 0E1E 


16100 


LD C 9 EL 


;Erase line 


2992 CDCA29 


16110 


CALL DISPB 




2995 013333 


16120 


LD BC,3333H 


;Delay 3333 iterations 


2998 CD9D29 


16130 


CALL FLS2 


; & scan for Break 9 Enter 


299B 18EA 


16140 
16150 ; 


JR FLS1 


;Loop if neither 




16160 ; 


FLS2 - Delay BC loops & 


scan for <ENTER> 




16170 ; 






299D CD1229 


16180 FLS2 


CALL CKBRK 


; Check for <BREAK> 


29A0 C24524 


16190 
16200 ; 


JP NZ, ABORT 






16210 ; 


Was the <ENTER> pressed 


? 




16220 ; 






29A3 FDCB0A56 


16230 


BIT 2,(IY+KFLAG$) 


;<ENTER> hit ? 


29A7 2006 


16240 
16250 ; 


JR NZ,FLS4 


;Go on ENTER down 




16260 ; 


Nothing hit - Count down 




16270 ; 






29A9, 0B 


16280 


DEC BC 


; Decrement count 


29AA 78 


16290 


LD A S B 


;Done ? 


29AB Bl 


16300 


OR C 




29AC 20EF 


16310 


JR NZ,FLS2 


;No - check again 


29AE C9 


16320 
16330 ; 


RET 


;Yes - RETurn 




16340 ; 


<ENTER> hit - POP ret addr & clr type ahead 




16350 ; 
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29 AF Fl 


16360 FLS4 


POP 


AF 


;Pop return address 


29 B0 


16370 CLRTYPE 


(a@KBD 




;Clear type ahead 


29 B0 3E08 


00074 


LD 


A,8 




29 B2 EF 


00075 


RST 


40 




29 B3 28FB 


16380 


JR 


Z, CLRTYPE 


;Good - get another 


29 B5 B7 


16390 


OR 


A 


;O.K. ? 


29 B6 C21824 


16400 
16410 ; 


JP 


NZ,IOERR 


;No - I/O Error 




16420 ; 


Erase message line 






16430 ; 








29 B9 0E1E 


16440 


LD 


C,EL 


;Erase line 


29 BB CDCA29 


16450 
16460 ; 


CALL 


DISPB 


;Fall into RESKFLG 




16470 ; 


RESKFLG 


- Reset <PAUSE> 


& <ENTER> bits in KFL 




16480 ; 








29 BE 


16490 RESKFLG GGFLAGS 




;IY => Flag Table 


29 BE 3E65 


00076 


LD 


A, 101 




29C0 EF 


00077 


RST 


40 




29C1 FD7E0A 


16500 


LD 


A,(IY+KFLAG$) 


;P/u KFLAG$ 


29C4 E6F9 


16510 


AND 


0F9H 


;Reset bits 2 & 1 


29C6 FD770A 


16520 


LD 


(IY+KFLAG$),A 


; Stuff in KFLAG$ 


29C9 C9 


16530 
16540 ; 


RET 




;RETurn 




16550 ; 


DISPB - 


Output a byte to the Video 




16560 ; 








29 CA 


16570 DISPB 


@@DSP 




; Out put byte 


29 CA 3E02 


00078 


LD 


A,2 




29CC EF 


00079 


RST 


40 




29CD C8 


16580 


RET 


Z 


;Good - RETurn 


29CE C31824 


16590 
16600 ; 


JP 


IOERR 


;Bad - I/O error 




16610 ; 


DSPLY - 


Display line to 


video 




16620 ; 








29 Dl 


16630 DSPLY 


@@DSPLY 




;Display 




00080 


IFEQ 


00H,1 






00081 


LD 


HL, 






00082 


ENDIF 






29 Dl 3E0A 


00083 


LD 


A, 10 




29 D3 EF 


00084 


RST 


40 




29 D4 C8 


16640 


RET 


Z 




29D5 C31824 


16650 
16660 ; 


JP 


IOERR 


;Bad - I/O Error 




16670 ; 


STOP - 


Display Transfer 


aborted & Abort 




16680 ; 








29D8 217D2A 


16690 STOP 


LD 


HL, STOPS 


;"Transfer Aborted" 


29 DB 


16700 


@@LOGOT 




;Log message 




00085 


IFEQ 


00H,1 






00086 


LD 


HL, 






00087 


ENDIF 






29 DB 3E0C 


00088 


LD 


A, 12 




29 DD EF 


00089 


RST 


40 




29 DE CD1629 


16710 


CALL 


PMTSYS 


;"Insert SYSTEM disk" 


29E1 C34524 


16720 
16730 ; 


JP 


ABORT 


;Abort 




16740 ; 


GETSYS2 


- Bring in SYS2 






16750 ; 








29 E4 3E84 


16760 GETSYS2 


LD 


A,84H 




29E6 EF 


16770 
16780 ; 


RST 


28H 
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16790 ; 


GETSYS3 


- Bring in ! 


5YS3 




16800 ; 








29E7 3E85 


16810 GETSYS3 LD 


A.85H 




29E9 EF 


16820 
16830 ; 


RST 


28H 






16840 ; 


CKDEV - 


Is the source or Destination a device ? 




16850 ; 


Z - Either Source or Destination is a device 




16860 ; 








29EA 3A072C 


16870 CKDEV 


LD 


A,(FCB1) 


;Is source a device? 


29ED FE2A 


16880 


CP 


i*i 




29EF C8 


16890 


RET 


Z 




29F0 3AB32B 


16900 


LD 


A,(FCB2) 


;Is destination a device' 


29F3 FE2A 


16910 


CP 


'*• 




29F5 C9 


16920 
16930 ; 


RET 








16940 ; 


RDGAT - 


Read GAT of 


Drive C 




16950 ; 








29F6 D5 


16960 RDGAT 


PUSH 


DE 


;Save DE & HL 


29F7 E5 


16970 


PUSH 


HL 




29F8 FDE5 


16980 
16990 ; 


PUSH 


IY 


;Save IY 




17000 ; 


Set D = 


Cyl, E = Sector, HL => Buffer 




17010 ; 








29FA 


17020 


@@GTDCT 




;Point IY to DCT 


29FA 3E51 


00090 


LD 


A,81 




29FC EF 


00091 


RST 


40 




29FD FD5609 


17030 


LD 


D,(IY+9) 


;P/u dir cyl in D 


2A00 1E00 


17040 


LD 


E,0 


;GAT is sector 


2A02 21002D 


17050 


LD 


HL,GAT 


;HL => GAT I/O Buffer 


2A05 


17060 


@(s>RDSSC 




;Read Track D, Sector E 


2A05 3E55 


00092 


LD 


A, 85 




2A07 EF 


00093 
17070 ; 


RST 


40 






17080 ; 


Restore 


Registers 






17090 ; 








2A08 FDE1 


17100 


POP 


IY 


;Restore IY 


2A0A El 


17110 


POP 


HL 


; Res tore HL & DE 


2A0B Dl 


17120 


POP 


DE 




2A0C 3E14 


17130 


LD 


A,14H 


;Else reset to GAT error 


2A0E C9 


17140 
17150 ; 


RET 




;RETurn with condition 




17160 ; 


OPENDES 


- OPEN Dest 


i nation File 




17170 ; 








2A0F 21002F 


17180 OPENDES 


LD 


HL,BUF2 


;HL => Dest I/O Buffer 


2A12 11B32B 


17190 


LD 


DE,FCB2 


;DE => Dest FCB 


2A15 1811 


17200 
17210 ; 


JR 


OPENFIL 


;0pen the file 




17220 ; 


INITDES 


- INIT the 


destination file 




17230 ; 








2A17 3E3A 


17240 INITDES 


LD 


A.0INIT 


;A = @INIT SVC Number 


2A19 180F 


17250 
17260 ; 


JR 


INITFIL 


;Go into OPEN routine 




17270 ; 


OPENSRC 


- Open Sour 


ce File 




17280 ; 








2A1B 11072C 


17290 OPENSRC 
17300 ; 


LD 


DE,FCB1 


;DE => Source FCB 




17310 ; 


Set the 


File OPEN i 


nhibit flag 




17320 ; 








2A1E 


17330 


G>(j>FLAGS 




;IY => System Flag Table 
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SET s (IY+SFLAG$) 



LS-DOS 6,2 



Page 00027 



2A1E 3E65 
2A20 EF 00095 
2A21 FDCB12C6 17340 
17350 
2A25 21002E 
2A28 3E3B 
2A2A 0600 



;Set file open inhibit 



17360 OPENSR2 LD HL 9 BUF1 
17370 OPENFIL LD A,@OPEN 
17380 INITFIL LD B,0 
17390 ; 

17400 ; OPEN or INIT the File 
17410 ; 
2A2C CDCA27 17420 GETFILE CALL DOSVC 
2A2F C8 17430 RET Z 
2A30 C31824 17440 JP IOERR 
17450 ; 

17460 ; Error & Informative message strings 
17470 : 
2A33 43 17480 COPYMS DB 'Copyina: \ETX 
6F 70 79 69 6E 67 3A 20 
03 
2A3D 41 17490 APPDMS DB 
70 70 65 6E 64 69 6E 67 
3A 20 03 

17500 ; 
2A49 46 17510 DIFLRL$ DB 
69 6C 65 73 20 68 61 76 
65 20 64 69 66 66 65 72 
65 6E 74 20 4C 52 4C 73 
0D 
2A63 44 17520 DSTREQ$ DB 
65 73 74 69 6E 61 74 69 
6F 6E 20 73 70 65 63 20 
72 65 71 75 69 72 65 64 
0D 
2A7D ID 17530 STOPS DB 
54 72 61 6E 73 66 65 72 
20 61 62 6F 72 74 65 64 
0D 
2A8F 46 17540 SPCREQ$ DB 
69 6C 65 20 73 70 65 63 
20 72 65 71 75 69 72 65 
64 0D 
2AA2 49 17550 NOINDO$ DB 
6E 76 61 6C 69 64 20 63 
6F 6D 6D 61 6E 64 20 64 
75 72 69 6E 67 20 3C 44 
4F 3E 20 
2ABE 70 17560 DB 

72 6F 63 65 73 73 69 6E 
67 0D 

2AC9 53 17570 SAMERR$ DB 
6F 75 72 63 65 20 61 6E 
64 20 64 65 73 74 69 6E 
61 74 69 6F 6E 20 64 69 

73 6B 73 
2AE5 20 17580 DB 

61 72 65 20 74 68 65 20 
73 61 6D 65 0D 
17590 ; 
2AF3 ID 17600 PMTSYS$ DB 



;HL => Source I/O buffer 
;A = @OPEN SVC number 
;B = LRL = 256 



;OPEN or INIT the file 
;RETurn with Z set 
;NZ - I/O Error 



"Appending: S ,ETX 

'Files have different LRLs' 9 CR 

'Destination spec required' S CR 

BL,' Transfer aborted ' S CR 
'File spec required' 9 CR 
'Invalid command during <D0> ' 

'processing' S CR 

'Source and destination disks' 

' are the same' S CR 

BL.EL ' Insert SYSTEM disk <ENTER>' 
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IE 20 49 6E 73 65 72 74 

20 53 59 53 54 45 4D 20 

64 69 73 6B 20 3C 45 4E 

54 45 52 3E 

2B10 ID 17610 DB 

03 

17620 ; 

2B12 ID 17630 PMTSRC$ DB 

IE 20 49 6E 73 65 72 74 

20 53 4F 55 52 43 45 20 

64 69 73 6B 20 

2B28 69 17640 DB 

6E 20 64 72 69 76 65 20 

3A 

2B32 30 17650 SRC DR DB 

20 61 6E 64 20 70 72 65 

73 73 20 3C 45 4E 54 45 

52 3E 

2B45 ID 17660 DB 

03 

17670 ; 

2B47 ID 17680 PMTDST$ DB 

IE 20 49 6E 73 65 72 74 

20 44 45 53 54 49 4E 41 

54 49 4F 4E 20 64 69 73 

6B 20 

2B62 69 17690 DB 

6E 20 64 72 69 76 65 20 

3A 

2B6C 30 17700 DEST DR DB 

20 61 6E 64 20 70 77 65 

73 73 20 3C 45 4E 54 45 

52 3E 
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BL,ETX 

BL,EL,' Insert SOURCE disk * 

' in drive : ' 

'0 and press <ENTER>' 

BL,ETX 

BL.EL,' Insert DESTINATION disk 

1 in drive : ' 

'0 and press <ENTER>* 



2B7F ID 




17710 


DB 


BL,ETX 




03 




17720 ; 
17730 ; 












17740 ; 


APPEND 


PARAMETER TABLE 








17750 ; 








2B81 80 




17760 APPTBL 
17770 ; 


DB 


80H 


;Use new @P) 


2B82 55 




17780 


DB 


FLAG! ABB! 5 




2B83 53 




17790 


DB 


'STRIP* 




54 52 


49 


50 








2B88 00 




17800 


DB 







2B89 AD24 




17810 
17820 ; 


DW 


SPARM+1 




2B8B 54 




17830 


DB 


FLAG! ABB! 4 




2B8C 45 




17840 


DB 


'ECHO* 




43 48 


4F 










2B90 00 




17850 


DB 







2B91 2827 




17860 


DW 


EPARM+1 




2B93 00 




17870 
17880 ; 


DB 











17890 ; 


COPY PARAMETER TABLE 








17900 ; 








2B94 80 




17910 COPYTBL DB 


80 H 


;New @PARAM 






17920 ; 








2B95 54 




17930 


DB 


FLAG! ABB! 4 
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2B96 45 


17940 




DB 


'ECHO' 


43 48 


4F 








2B9A 00 


17950 




DB 





2B9B 2827 


17960 
17970 


» 


DW 


EPARM+1 


2B9D 93 


17980 




DB 


NUM!ABB!3 


2B9E 4C 


17990 




DB 


'LRL' 


52 4C 










2BA1 00 


18000 




DB 





2BA2 A225 


18010 
18020 


» 


DW 


LPARM+1 


2BA4 55 


18030 




DB 


FLAG! ABB !5 


2BA5 43 


18040 




DB 


'CLONE' 


4C 4F 


4E 45 








2 BAA 00 


18050 




DB 





2 BAB 8026 


18060 
18070 


9 


DW 


CPARM+1 


2BAD 41 


18080 




DB 


FLAGil 


2BAE 58 


18090 




DB 


'X' 


2BAF 00 


18100 




DB 





2BB0 2725 


18110 




DW 


XPARM+1 


2BB2 00 


18120 
18130 


S 


DB 







18140 


» 


I/O & 


Storage Buff 




18150 


5 






2BB3 00 


18160 FCB2 


DB 





001 F 


18170 




DS 


31 


0010 


18180 TEMBUF 


DS 


16 


0010 


18190 


FROM 


DS 


16 


2BF3 20 


18200 


TO 


DB 


' to * 


74 6F 


20 








0010 


18210 


T02 


DS 


16 


2C07 00 


18220 FCB1 


DB 





001 F 


18230 




DS 


31 


0012 


18240 


SRCSTR 


DS 


18 


0012 


18250 


DSTSTR 


DS 


18 


0007 


18260 
18270 


CLONSAV 
» 


DS 


7 


2D00 


18280 
18290 


s 


ORG 


$<-8+l<+8 


0100 


18300 GAT 


DS 


256 


0100 


18310 


BUF1 


DS 


256 


0100 


18320 
18330 
00260 


BUF2 

s 


DS 


256 


3000 


00270 




SUBTTL 


<> 


2400 


00280 




END 


COPY 



;End of COPY parm table 



;Show closed on LOAD 
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(3(31 


0000 @@2 


0000 @(93 


0000 


(3(94 


0000 @INIT 


003A @M0D2 


0000 


0MOD4 


FFFF @OPEN 


003B ABB 


0010 


ABORT 


2445 AP 


0027 APCODE 


244F 


APND1 


246E APND2 


24B9 APND2A 


24 CF 


APND3 


24 D8 APPDMS 


2A3D APPEND 


2403 


APPENDA 


240C APPFLAG 


2877 APPTBL 


2B81 


BL 


001 D BREAK 


0080 BS 


0008 


BUF1 


2E00 BUF2 


2F00 BYTE 10 


26D5 


BYTIO0 


26F4 BYTIOl 


26F9 BYTI04 


2712 


BYTI04A 


271D CFLAG$ 


0002 CHKDEST 


276F 


CHKPROT 


2825 CKBRK 


2912 CKDEV 


29 EA 


CLONSAV 


2C4B CLRTYPE 


29B0 C0P1 


2743 


COP2 


274E COPY 


2400 C0PY1 


251D 


COPYCD 


2508 COPYMS 


2A33 COPYST 


24F5 


COPYSTA 


24FE COPYTBL 


2B94 CPARM 


267F 


CPRHLDE 


296C CPYFILE 


2872 CR 


000 D 


CVRT 


2738 CVRT0 


2737 CVRTUC 


2730 


DEST DR 


2B6C DEVICE 


281F DFLAG$ 


0003 


DIFLRL 


2431 DIFLRL$ 


2A49 DISPB 


29CA 


DOINIT 


28C2 DOSVC 


27 CA DO CKDR 


2817 


DSPEC 


2857 DSPLY 


29D1 DSTREQ 


2435 


DSTREQ$ 


2A63 DSTSTR 


2C39 DUN 


27 EC 


DUN2 


27FA EL 


001 E EPARM 


2727 


ETX 


0003 EXIT 


2413 EOF 


26FC 


FCB1 


2C07 FCB2 


2BB3 FLAG 


0040 


FLASH 


2977 FLASH0 


2974 FLS1 


2987 


FLS2 


299D FLS4 


29AF FROM 


2BE3 


GAT 


2D00 GEOF1 


267C GE0F2 


2697 


GE0F3 


26A3 GEOF3A 


269D GE0F4 


26A9 


GE0F5 


28F2 GE0F6 


28F6 GE0F7 


2900 


GETCLON 


28A5 GETDRIV 


284A GETFILE 


2A2C 


GETLRL 


2896 GETSYS2 


29E4 GETSYS3 


29E7 


GO HOME 


26AC GOTEOF 


264D ILLACC 


283C 


INIT1 


2844 INITDES 


2A17 INITFIL 


2A2A 


IOERR 


2418 ITSCOPY 


287F KFLAG$ 


000A 


LF 


000A LPARM 


25A1 LRL2 


24A3 


MVFLD 


27 B5 MVFLD1 


27B6 MVFLD2 


27B9 


MVFLD3 


27 C5 NOINDO 


242D NOINDOS 


2AA2 


NUM 


0080 OKYDOKY 


2848 OPENDES 


2A0F 


OPENFIL 


2A28 OPENSR2 


2A25 OPENSRC 


2A1B 


OPNDST 


25DF OPNSRC 


2593 PAR ERR 


002 C 


PMTDST 


294A PMTDST$ 


2B47 PMTSRC 


2928 


PMTSRC$ 


2B12 PMTSYS 


2916 PMTSYSS 


2AF3 


PRSPC 


275A PRSPC1 


2782 PRSPC2 


2783 


PRSPC3 


2795 PRSPC4 


2797 PRSPC5 


2798 


PRSPC6 


27A8 PRSPC7 


27AA PUTDEST 


2861 


PUTSOUR 


285B RDGAT 


29F6 RDREC1 


2617 


RDREC2 


262D RDREC3 


262F RDREC4 


2639 


RDREC5 


2647 RESKFLG 


29BE RETCOD 


26 AF 


SAMERR 


2425 SAMERR$ 


2AC9 SAVESP 


2448 


SFLAG$ 


0012 SPARM 


24AC SPCREQ 


2429 


SPCREQ$ 


2A8F SRCSTR 


2C27 SRC DR 


2B32 


STOP 


29D8 STOPS 


2A7D STR 


0020 


STUFCHR 


27DD SVCNUM 


2831 SYSBUF 


28A1 


SYSBUF2 


28AE TAB 


0009 TEMBUF 


2BD3 


TLP 


27 D0 TO 


2BF3 T02 


2BF7 


USEHI 


28D1 USEREGC 


25A8 VFLAG$ 


0015 
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WRERN 


26B5 XBUFF 


2865 XF2 


25FE 


XFER 


2538 XFER1 


254D XFER2 


2559 


XFER3 


255D XFER5 


2611 XFRDRV 


291B 


XPARM 


2526 00ABORT 


6D39 GGADTSK 


6DCC 


@@BANK 


72 E4 (9(3BKSP 


6FC4 (30BREAK 


72 FA 


(80CHNIO 


6D24 GGCKBRKC 


7348 @@CKDRV 


6E20 


(a@CKEOF 


6FD9 GGCKTSK 


6DB7 @@CLOSE 


6FAF 


@@CLS 


7332 (JKPCMNDI 


6D63 @@CMNDR 


6D78 


@@CTL 


6B88 GGDATE 


6CFA @@DCSTAT 


6E5F 


@@DEBU6 


6DA2 @@DECHEX 


7264 @(9DIRRD 


71D1 


(a@DIRWR 


71E6 @@DIV16 


724F 00DIV8 


723A 


(30DODIR 


6E35 (a@DSP 


6B4C 00DSPLY 


6BEC 


@@ ERROR 


6D8D @@EXIT 


6D4E @@FEXT 


713E 


00FLAGS 


72 CE @@FNAME 


7153 @@FSPEC 


7129 


@@GATRD 


71 BC @@GATWR 


71FB @@GET 


6B60 


@@GTDCB 


717D @@GTDCT 


7168 @@GTMOD 


7192 


@@HDFMT 


6F07 (30HEX16 


72A3 @@HEX8 


728E 


m HEX DEC 


7279 @@HIGH$ 


72B8 @@INIT 


6F85 


(3(9 KBD 


6BC4 @@KEY 


6B38 @@KEYIN 


6BD8 


@@KLTSK 


6E0B 00LOAD 


70FF @(3LOC 


6FEE 


@@LOF 


7003 @@LOGER 


6C23 @@LOGOT 


6C38 


(3@MSG 


6C6F @@MUL16 


7225 @@MUL8 


7210 


@(90PEN 


6F9A (a@PARAM 


6CE5 GXaPAUSE 


6CD0 


@@PEOF 


7018 @@POSN 


702 D SPRINT 


6C84 


@@PRT 


6B9C @@PUT 


6B74 @@RAMDIR 


6E4A 


@(3RDSEC 


6EDD (30RDSSC 


71A7 @@READ 


7042 


@@REMOV 


6F70 @(3RENAM 


6F5B @@REW 


7057 


(PGRMTSK 


6DE1 @(aRPTSK 


6DF6 (a@RREAD 


706C 


@(3RSLCT 


6EC8 00RSTOR 


6E89 @(3RUN 


7114 


@@RWRIT 


7081 @(3SEEK 


6EB3 @@SEEKSC 


7096 


@@SKIP 


70AB 00SLCT 


6E74 @@STEPI 


6E9E 


@@TIME 


6D0F @@VDCTL 


6CBB GGVER 


70C0 


@@VRSEC 


6EF2 @@WEOF 


70 D5 GGWHERE 


6BB0 


00WRITE 


70EA @@WRSEC 


6F1C @@WRSSC 


6F31 


@@WRTRK 


6F46 






240(1 is the 


transfer address 






00000 Total 


errors 
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CREATE Command 
<CREATE - LS-DOS 6.2> 



0000 



00100 ;LBCREATE/ASM 

00110 TITLE 

00120 ; 

00130 *GET SVCMAC:3 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00140 *GET VALUES: 3 

03920 ;VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00150 ; 



;SVC Macro equivalents 



;Misc. equates 



2400 


00160 


ORG 2400 H 






00170 ; 






2400 


00180 CREATE 


EQU $ 




2400 


00190 


@@CKBRKC 


; Break key down? 


2400 3E6A 


00001 


LD A, 106 




2402 EF 


00002 


RST 40 




2403 2804 


00200 


JR Z, BEGINA 


;Ok if not 


2405 21FFFF 


00210 


LD HL,-1 


; else abort 


2408 C9 


00220 
00230 ; 


RET 




2409 ED731E25 


: 00240 BEGINA 


LD (SAVESP+1),: 


SP ;Save SP address 


240D CD2824 


00250 
00260 ; 


CALL CREATCD 


;Do the CREATE code 




00270 ; 


Set ERN & offset in 


. FCB = value at (PINIT 




00280 ; 






2410 210000 


00290 ERN 


LD HL,$-$ 


;P/u ERN (probably 0) 


2413 22B125 


00300 


LD (FCB+12),HL 


; Stuff into FCB 


2416 3E00 


00310 OFFSET 


LD A,$-$ 


;P/u offset byte 


2418 32AD25 


00320 
00330 ; 


LD (FCB+8),A 


; Stuff into FCB 




00340 ; 


CLOSE the file if possible 




00350 ; 






241B 11A525 


00360 


LD DE.FCB 


;DE => FCB 


241 E 


00370 


@(<>CLOSE 


;Close file 


241E 3E3C 


00003 


LD A, 60 




2420 EF 


00004 


RST 40 




2421 C21425 


00380 
00390 ; 


JP NZ, IOERR 


;NZ - I/O Error 




00400 ; 


Exit Routine 






00410 ; 






2424 210000 


00420 


LD HL,0 


Successful - HL = 


2427 C9 


00430 
00440 ; 


RET 


;Return 




00450 ; 


Parse the Filespec \ 


given 




00460 ; 






2428 11A525 


00470 CREATCD 


LD DE,FCB 


;Fetch filespec 


242B 


00480 


(a@FSPEC 




242B 3E4E 


00005 


LD A, 78 




242D EF 


00006 


RST 40 




242E C23725 


00490 
00500 ; 


JP NZ.SPCREQ 


;Quit on bad name 




00510 ; 


Check out parameter 


input 




00520 ; 






2431 118525 


00530 


LD DE,PRMTBL$ 


;Get parms 


2434 


00540 


WAR AM 




2434 3E11 


00007 


LD A, 17 




2436 EF 


00008 


RST 40 




2437 C21425 


00550 
00560 ; 


JP NZ S IOERR 


;Jump on parm error 
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00570 ; 


Check 


If Rec or LRL 


were specified 




00580 ; 










243A 3A9925 


00590 


LD 


A,(LRESP) 




;P/u LRL response 


243D 47 


00600 


LD 


B,A 




;Save in B 


243E 3A9225 


00610 


LD 


A,(RRESP) 




;P/u REC response 


2441 B0 


00620 


OR 


B 




;Either specified ? 


2442 2807 


00630 
00640 ; 


JR 


Z,RPARM 




;No - check # records 




00650 ; 


If Size parm also was specified - Parameter Erro> 




00660 , 










2444 3A8B25 


00670 


LD 


A,(SRESP) 




;Size can't be used 


2447 B7 


00680 


OR 


A 




; with REC or LRL 


2448 C21225 


00690 
00700 , 


JP 


NZ,PRMERR 




Specified ? - Error 




00710 ; 


Check 


Record count 








00720 ; 










244B 010000 


00730 F 


tPARM LD 


BC, $-$ 




;P/u # of records 


244 E 78 


00740 


LD 


A,B 






244F Bl 


00750 


OR 


C 






2450 200D 


00760 
00770 , 


JR 


NZ,LPARM 








00780 , 


Zero 


Records - Use 


Size 


i instead 




00790 , 










2452 210000 


00800 5 


iPARM LD 


HL,$-$ 




;P/u size parm 


2455 7C 


00810 


LD 


A,H 






2456 B5 


00820 


OR 


L 






2457 CA1225 


00830 
00840 


JP 


Z,PRMERR 




;Err if size not entered 




00850 


; Multi 


ply HL x 4 to 


get 


# of sectors 




00860 










245A 29 


00870 


ADD 


HL,HL 




;X 2 


245B 29 


00880 


ADD 


HL,HL 




;X 4 


245C 224C24 


00890 


LD 


(RPARM+1),HL 


; Pretend it's rec input 




00900 


i 










00910 


; Make 


sure LRL input 


is 


valid 




00920 


i 








245F 010000 


00930 I 


.PARM LD 


BC, $-$ 




;P/u LRL 


2462 78 


00940 


LD 


A,B 




;Test for > 256 


2463 B7 


00950 


OR 


A 




;If hi -order = 0, 


2464 2808 


00960 


JR 


£m J Lw 1 -i. 




;Just use lo-order 


2466 3D 


00970 


DEC 


A 




;Test hi -order = 1 


2467 C21225 


00980 


JP 


NZ,PRMERR 




;Quit if any other 


246A Bl 


00990 


OR 


C 




;P/u lo-order 


246B C21225 


01000 


JP 


NZ,PRMERR 




; Lo-order must be 


246E Bl 


01010 I 
01020 


.PI OR 


C 




;Merge lo-order 




01030 


; Open 


the File with 


the 


LRL specified 




01040 


i 








246F 11A525 


01050 


LD 


DE,FCB 




;0pen the file 


2472 210026 


01060 


LD 


HL, BUFFER 






2475 47 


01070 


LD 


B,A 




;LRL = 256, or user entr 


2476 


01080 


@@INIT 






2476 3E3A 


00009 


LD 


A, 58 






2478 EF 


00010 


RST 


40 






2479 C21425 


01090 
01100 


JP 


NZ,IOERR 




;Jump on init error 




01110 


; Display "Creating : 


Fil 


espec" String 




01120 










247C 117625 


01130 


LD 


DE,FILESP 




;DE => Filespec 


247F ED4BAB25 


01140 


LD 


BC,(FCB+6) 




;P/u drive #, DEC 


2483 3AA525 


01150 


LD 


A,(FCB) 




jP/u to test device/file 
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2486 CD2125 


01160 


CALL 


$FNAME 




2489 C21425 


01170 


JP 


NZ,IOERR 


; Leave on error 


248C 216C25 


01180 


LD 


HL, CREATES 


; "Creating : " 


248F 


01190 


00DSPLY 


;Display it 




00011 


IFEQ 


00H,1 






00012 


LD 


HL, 






00013 


ENDIF 






248F 3E0A 


00014 


LD 


A, 10 




2491 EF 


00015 


RST 


40 




2492 C21425 


01200 


JP 


NZ.IOERR 


;Quit on dsply error 


2495 0E0D 


01210 


LD 


C 9 CR 


;End line 


2497 


01220 


0(3 DSP 






2497 3E02 


00016 


LD 


A, 2 




2499 EF 


00017 


RST 


40 




249A C21425 


01230 
01240 ; 


JP 


NZ,IOERR 






01250 ; 


Save ERN & offset from 


FCB for later 




01260 ; 








249D 2AB125 


01270 


LD 


HL,(FCB+12) 


;P/u ERN 


24A0 221124 


01280 


LD 


(ERN+1),HL 




24A3 3AAD25 


01290 


LD 


A,(FCB+8) 


;P/u offset byte 


24A6 321724 


01300 
01310 ; 


LD 


(OFFSET+l),A 






01320 ; 


Check 


if the New Size : 


> Old Size ? 




01330 ; 








24A9 11A525 


01340 BIGGER 


LD 


DE S FCB 


;DE => FCB+0 


24AC 


01350 


@@LOF 




;Get length of fi le 


24AC 3E40 


00018 


LD 


A 9 64 




t.T'ftL. L.I 


00019 


RST 


40 




24AF 60 


01360 


LD 


H,B 


;Move len to HL 


24B0 69 


01370 


LD 


L S C 




24B1 ED4B4C24 


01380 


LD 


BC 9 (RPARM+1) 


;P/u # of records 


24B5 AF 


01390 


XOR 


A 


;Clear carry 


24B6 E5 


01400 


PUSH 


HL 


;Save ERN 


24B7 ED42 


01410 


SBC 


HL 9 BC 


;Is new ERN > old ERN? 


24B9 El 


01420 


POP 


HL 


;HL = ERN 


24BA D23B25 


01430 
01440 ; 


JP 


NC S BADSIZ 


;Go if not 




01450 ; 


Position FCB to Ending 


Record Number 




01460 ; 








24BD m 


01470 


DEC 


BC 


;Reduce to offset from \ 


24BE 


01480 


@@POSN 




;Position to new ERN 


24BE 3E42 


00020 


LD 


A s 66 




24C0 EF 


00021 
01490 ; 


RST 


40 






01500 ; 


Fill a 


256 byte buffer 


with X'E5' bytes 




01510 ; 








24C1 210026 


01520 


LD 


HL, BUFFER 


; Buffer area 


24C4 110126 


01530 


LD 


DE 9 BUFFER+1 


; "format" a sector 


24C7 01FF00 


01540 


LD 


BC,255 




24CA 36 E5 


01550 


LD 


(HL) 9 0E5H 




24CC EDB0 


01560 
01570 ; 


LDIR 








01580 ; 


Write 


the last Record < 


3f the file 




01590 ; 








24CE 11A525 


01600 


LD 


DE 9 FCB 


; Write the new ERN sect 


24 Dl 25 


01610 


DEC 


H 


;Set HL = buffer start 


24 D2 23 


01620 


INC 


HL 




24 D3 CD0D25 


01630 


CALL 


WRITE 


;Write the last record 


24 D6 


01640 


(a@REW 




;Rewind File 


24D6 3E44 


00022 


LD 


A, 68 
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24 D8 EF 


00023 
01650 ; 


RST 


40 






01660 ; 


Read in 


the directory entry 




01670 ; 








24D9 ED4BAB25 


01680 


LD 


BC 9 (FCB+6) 


;Get drive # & DEC 


24 DD 


01690 


(3@DIRRD 




;Read in record 


24DD 3E57 


00024 


LD 


A, 87 




24 DF EF 


00025 


RST 


40 




24E0 2032 


01700 
01710 ; 


JR 


NZ, IOERR 


;Jump on read error 




01720 ; 


Set the 


CREATE bit, 


and write it back out 




01730 ; 








24E2 23 


01740 


INC 


HL 


;Point to FCB+1 & 


24E3 CBFE 


01750 


SET 


7,(HL) 


; set the CREATE bit 


24E5 


01760 


@@DIRWR 




; Write entry back 


24E5 3E58 


00026 


LD 


A 9 88 




24E7 EF 


00027 


RST 


40 




24E8 202A 


01770 
01780 ; 


JR 


NZ 9 IOERR 


;Jump on write error 




01790 ; 


Do we have to Fill the file ? 




01800 ; 








24 EA 010001 


01810 FILL 


LD 


BC 9 0100H 


;P/u FILL parm 


24 ED 05 


01820 


DEC 


B 




24EE C8 


01830 
01840 ; 


RET 


Z 


;RETurn if no Fill 




01850 ; 


Create 


a Buffer with 


the FILL bytes 




01860 ; 








24 EF D5 


01870 


PUSH 


DE 


;Save FCB pointer 


24F0 210026 


01880 


LD 


HL S BUFFER 


;I/0 buffer 


24F3 71 


01890 


LD 


(HL) 9 C 


;Byte to xfer 


24F4 110126 


01900 


LD 


DE S BUFFER+1 




24F7 01FF01 


01910 


LD 


BC, 255+256 


;Hit both buffers 


24FA EDB0 


01920 
01930 ; 


LDIR 




;Xfer into buffer 




01940 ; 


Pt HL = 


> User Buff, 


DE => FCB 9 BC = last Rec 




01950 ; 








24FC Dl 


01960 


POP 


DE 


;Restore FCB pointer 


24FD ED4B4C24 01970 


LD 


BC 9 (RPARM+1) 


;P/u last record 


2501 210027 


01980 
01990 ; 


LD 


HL 9 UBUFF 


;User Buffer 




02000 ; 


Loop to 


write logica 


1 records 




02010 ; 








2504 78 


02020 WRLOOP 


LD 


A 9 B 


;Is rec cnt = ? 


2505 Bl 


02030 


OR 


C 




2506 C8 


02040 


RET 


Z 


;Yes - done 


2507 CD0D25 


02050 


CALL 


WRITE 


; Write Record 


250A 0B 


02060 


DEC 


BC 


;Dec one 


250B 18F7 


02070 
02080 ; 


JR 


WRLOOP 


; Do til BC =0 




02090 ; 


Write the buffer contents 




02100 ; 








250D 


02110 WRITE 


(3(<>WRITE 




; Write buffer 


250D 3E4B 


00028 


LD 


A, 75 




250F EF 


00029 


RST 


40 




2510 C8 


02120 


RET 


Z 


;6ood - RETurn 


2511 21 


02130 


DB 


21H 


;Skip LD A 9 ## instruction 


2512 3E2C 


02140 PRMERR 
02150 ; 


LD 


A, PAR ERR 


parameter Error 




02160 ; 


I/O error display & 


abort routine 




02170 ; 








2514 6F 


02180 IOERR 


LD 


L.A 


;Save error # in HL 
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02190 


LD 


H,0 




2517 F6C0 




02200 


OR 


0C0H 


; Short error message 


2519 4F 




02210 


LD 


C,A 


; Stuff in C for TERROR 


251A 




02220 


(TERROR 




;Display error message 


251A 3E1A 




00030 


LD 


A, 26 




251C EF 




00031 


RST 


40 




25 ID 310000 




02230 SAVESP 


LD 


SP,$-$ 


;P/u original SP 


2520 C9 




02240 
02250 ; 


RET 




;Done, RETurn 






02260 ; 


Routine 


to pick up 


device/file name 






02270 ; 








2521 CB7F 




02280 $FNAME 


BIT 


7, A 


;Test device/file 


2523 2804 




02290 


JR 


Z.FNAME1 


;Go if device 


2525 




02300 


00FNAME 






2525 3E50 




00032 


LD 


A, 80 




2527 EF 




00033 


RST 


40 




2528 C9 




02310 


RET 






2529 3E2A 




02320 FNAME1 


LD 


A,'*' 


; Stuff device indicator 


252B 12 




02330 


LD 


(DE),A 




252C 13 




02340 


INC 


DE 




252D 79 




02350 


LD 


A S C 


;Stuff 1st character 


252E 12 




02360 


LD 


(DE),A 




252F 13 




02370 


INC 


DE 




2530 78 




02380 


LD 


A S B 


;Stuff 2nd character 


2531 12 




02390 


LD 


(DE) S A 




2532 13 




02400 


INC 


DE 




2533 3E03 




02410 


LD 


A s 3 


; Stuff ETX 


2535 12 




02420 


LD 


(DE),A 




2536 C9 




02430 
02440 ; 


RET 










02450 ; 


Error Message Displ 


ay routine 






02460 ; 








2537 214625 




02470 SPCREQ 


LD 


HL,SPCREQ$ 




253A DD 




02480 


DB 


0DDH 




253B 215925 




02490 BADS I Z 
02500 ; 


LD 


HL S BADSIZ$ 








02510 ; 


Log Error Message & 


Abort 






02520 ; 








253E 




02530 


(3IPLOGOT 




;Log error message 






00034 


IFEQ 


00H,1 








00035 


LD 


HL, 








00036 


ENDIF 






253E 3E0C 




00037 


LD 


A, 12 




2540 EF 




00038 


RST 


40 




2541 21FFFF 




02540 


LD 


HL 9 -1 


;Set abort code 


2544 18D7 




02550 
02560 ; 


JR 


SAVESP 


;Exit 






02570 ; 


Messages 








02580 ; 








2546 46 




02590 SPCREQ$ DB 


'File spec 


required' ,CR 


69 6C 


65 


20 73 70 65 63 






20 72 


65 


71 75 69 72 ( 


55 






64 0D 












2559 46 




02600 BADSIZ$ DB 


'File exists larger ' ,CR 


69 6C 


65 


20 65 78 69 ; 


73 






74 73 


20 6C 61 72 67 65 






72 0D 












256C 43 




02610 CREATES DB 


'Creating: 


' 


72 65 


61 


74 69 6E 67 : 


3A 






20 












000F 




02620 FILESP 


DS 


15 
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2585 80 



2586 94 

2587 53 

49 5A 45 
258B 00 
258C 5324 



258E 93 
258F 52 

45 43 

2592 00 

2593 4C24 



2595 93 

2596 4C 

52 4C 
2599 00 
259A 6024 



259C D4 
259D 46 

49 4C 4C 
25A1 00 
25A2 EB24 
25A4 00 



25A5 
001 F 
2600 
0100 
0100 

2400 



02630 ; 

02640 PARAMETER TABLE 

02650 ; 

02660 PRMTBL$ DB 80H 

02670 ; 



02680 ; 
02690 ; 
02700 
02710 

02720 SRESP 
02730 
02740 ; 
02750 ; 
02760 ; 
02770 
02780 

02790 RRESP 
02800 
02810 ; 
02820 ; 
02830 ; 
02840 
02850 

02860 LRESP 
02870 



;6.x Parameter Table 
SIZE (S) - Accept Numeric Input only 



02890 
02900 
02910 
02920 



DB 
DB 

DB 
DW 



!ABB!4 
SIZE' 



SPARM+1 
REC (R) - Accept Numeric input only 



DB 
DB 



IIABBI3 

'REC 



DB 
DW 



RPARMH 
LRL (L) - Accept Numeric input only 



DB 
DB 

DB 
DW 



NUM!ABB!3 
'LRL 1 


LPARM+1 



FILL (F) - Accept Numeric or Flag input 
IABBI4 



DB 
DB 

DB 
DW 
DB 



02930 FRESP 

02940 

02950 

02960 

02970 

02980 

02990 FCB DB 

03000 DS 

03010 ORG 

03020 BUFFER DS 

03030 UBUFF DS 

03040 ; 

03050 END 



FLAG! 
'FILL' 



FILL+1 




I/O buffer 





31 

$<-8+l<8 

256 

256 

CREATE 
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: - LS-DOS 6.2 




$FNAME 


2521 @@1 


0000 002 


0000 


003 


0000 @@4 


0000 0MOD2 


0000 


0MOD4 


FFFF ABB 


0010 AP 


0027 


BADS I Z 


253B BADSIZ$ 


2559 


BEGINA 


2409 


BIGGER 


24A9 BREAK 


0080 BS 


0008 


BUFFER 


2600 CFLAG$ 


0002 


CR 


000 D 


CREATCD 


2428 CREATE 


2400 CREATES 


256C 


DFLAG$ 


0003 ERN 


2410 


ETX 


0003 


FCB 


25A5 FILESP 


2576 


FILL 


24 EA 


FLAG 


0040 FNAME1 


2529 


FRESP 


25A1 


IOERR 


2514 KFLAG$ 


000A LF 


000A 


LP1 


246E LPARM 


245F 


LRESP 


2599 


NUM 


0080 OFFSET 


2416 


PAR ERR 


002 C 


PRMERR 


2512 PRMTBL$ 


2585 


RPARM 


244B 


RRESP 


2592 SAVESP 


251D SFLAG$ 


0012 


SPARM 


2452 SPCREQ 


2537 


SPCREQ$ 


2546 


SRESP 


258B STR 


0020 TAB 


0009 


UBUFF 


2700 VFLAG$ 


0015 WRITE 


250D 


WRLOOP 


2504 00ABORT 


8400 00ADTSK 


8493 


00BANK 


89AB 00BKSP 


868B 


00BREAK 


89C1 


00CHNIO 


83EB 00CKBRKC 


8A0F 00CKDRV 


84 E7 


00CKEOF 


86A0 00CKTSK 


847 E 


00CLOSE 


8676 


00CLS 


89F9 00CMNDI 


842A 


00CMNDR 


843F 


00CTL 


824F 00DATE 


83C1 


00DCSTAT 


8526 


00 DEBUG 


8469 00DECHEX 


892B 


00DIRRD 


8898 


00DIRWR 


88AD 00DIV16 


8916 


00DIV8 


8901 


00DODIR 


84FC 00DSP 


8213 


00DSPLY 


82B3 


(TERROR 


8454 00EXIT 


8415 


00FEXT 


8805 


00FLAGS 


8995 00FNAME 


881A 


00FSPEC 


87F0 


00GATRD 


8883 00GATWR 


88C2 


00GET 


8227 


00GTDCB 


8844 00GTDCT 


882F 


00GTMOD 


8859 


00HDFMT 


85CE 00HEX16 


896A 


00HEX8 


8955 


00HEXDEC 


8940 00HIGH$ 


897F 


00INIT 


864C 


00KBD 


828B 00KEY 


81 FF 


00KEYIN 


829F 


00KLTSK 


84 D2 00LOAD 


87 C6 


00LOC 


86B5 


00LOF 


86CA 00LOGER 


82 E A 


00LOGOT 


82FF 


00MSG 


8336 00MUL16 


88 EC 


00MUL8 


88 D7 


00OPEN 


8661 00PARAM 


83AC 


00PAUSE 


8397 


00PEOF 


86DF 00POSN 


86F4 00PRINT 


834B 


00PRT 


8263 00PUT 


823B 


00RAMDIR 


8511 


00RDSEC 


85A4 00RDSSC 


886 E 


00 READ 


8709 


00REMOV 


8637 00RENAM 


8622 


00REW 


871E 


00RMTSK 


84A8 00RPTSK 


84BD 


00RREAD 


8733 


00RSLCT 


858F 00RSTOR 


8550 


00RUN 


87 DB 


00RWRIT 


8748 00 SEEK 


857A 


00SEEKSC 


875D 


@@SKIP 


8772 00SLCT 


853B 


00 STEP I 


8565 


00TIME 


83D6 00VDCTL 


8382 


00VER 


8787 


00VRSEC 


85B9 00WEOF 


879C 


00WHERE 


8277 


00WRITE 


87B1 00WRSEC 


85 E3 00WRSSC 


85F8 


00WRTRK 


860D 








2400 is the 


transfer address 








00000 Total 


errors 
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Command 
Library 
ISAM # 



DATE, TIME 
SYS7/SYS 
15H, 16H 
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000 D 
001 D 
001 E 
0005 



2400 

2400 C30A25 

2403 

2403 
2403 3E6A 

2405 EF 

2406 2804 
2408 21FFFF 
240B C9 



240C E5 
240D 218E26 
2410 
2410 3E12 

2412 EF 

2413 El 

2414 D5 

2415 FDE1 



*GET 



00100 

00110 

00120 

00130 

00010 

00020 

03900 

00140 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 ; 

00400 ; 

00410 ; 

00420 

00430 ; 

00440 ; 

00450 ; 

00460 

00470 ; 

00480 

00490 ; 

00500 DATE 

00001 



;LBDATE/ASM - Date/Time Commands 

TITLE <DATE/TIME - LS-DOS 6.2> 



SVCMAC:3 



;SVCMAC/ASM - LS-DOS Version VI 
*LIST OFF 
*LIST ON 
*LIST OFF 
*LIST ON 



CR EQU 
0ADTSK EQU 
@RMTSK EQU 
CLK SLT EQU 



13 
29 
30 
5 



;SVC Macro equivalents 



;6et LDOS60/EQU 



;Add Task SVC # 
; Remove Task SVC # 
;Clock Task Slot # 



DATES Storage 

DATE$+0 Year (80-87) 

DATE$+1 Day of the month (1-31) 

DATE$+2 Month (1-12) 

DATE $+3 Bits 0-7 of Day of Year 

Date$+4 Bit = bit 8 of Day of Year 
Bits 1-3 contain Day of Week 
Bit 7 set if a leap year 

TIMES Storage 

TIME$+0 Seconds (0-59) 
TIME$+1 Minutes (0-59) 
TIME$+2 Hours (0-23) 



ORG 2400 H 

Branch to TIME entry point 

JP TIME ;Time entry point 

SUBTTL '<LBDATE - DATE Code>' 

; Break key down? 



00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00003 



GGCKBRKC 

LD A, 106 

RST 40 

JR Z,BEGINA 

LD HL.-l 

RET 



;0k if not 
: else abort 



DATE - Pick up DATE$+0 pointer & stuff in IY 



00610 
00620 
00630 
00640 



BEGINA PUSH 
LD 

00DATE 
LD 
RST 
POP 
PUSH 
POP 



HL 
HL,DUMBUF 

A, 18 

40 

HL 

DE 

IY 



;Save command ptr 
;HL => Dummy Buffer 
;DE <= DATE$+0 



;Recover command ptr 
;Xfer ptr to IY 



Was a Date entered on the command line ? 
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00650 ; 








2417 7E 


00660 


LD 


A,(HL) 


;P/u character 


2418 FE0E 


00670 


CP 


CR+1 


; Date entry ? 


241A DA5B24 


00680 
00690 ; 


JP 


C, DSP DATE 


;No - display date 




00700 ; 


Date entered - check 


if legal format 




00710 ; 








241D 0E30 


00720 


LD 


C,'0' 


;Init separator 


241F CDA025 


00730 


CALL 


PARSDAT 


;Parse entry 


2422 C20325 


00740 
00750 ; 


JP 


NZ,BADFMT 


;Bad entry - abort 




00760 ; 


Legal 


Date - If Intl 


date - swap DTBUF+1 & 2 




00770 ; 










00780 


IF 


0INTL 






00790 


INC 


DE 


;DE => DTBUF+1 




00800 


LD 


H,D 


;HL => DTBUF+1 




00810 


LD 


L,E 






00820 


LD 


C,(HL) 


;C = Intl MONTH 




00830 


INC 


HL 


;HL => DTBUF+2 




00840 


LD 


A,(HL) 


;A = Intl DAY 




00850 


LD 


(DE) 9 A 


;Set DTBUF+1 = DAY 




00860 


LD 


(HL) 9 C 


;Set DTBUF+2 = MONTH 




00870 


DEC 


DE 


;DE => DTBUF+0 




00880 


ELSE 






2425 00 


00890 


DC 


9,0 


;Pad US ver to match Intl 


00 00 00 00 00 00 00 00 








00900 


ENDIF 








00910 ; 










00920 ; 


Is the 


> year legal ? 






00930 ; 








242E 1A 


00940 


LD 


A S (DE) 


;P/u year entry 


242F D650 


00950 


SUB 


80 


;Accept only 80-87 


2431 DA0325 


00960 


JP 


CBADFMT 


;Less than 80 - bad 


2434 FE08 


00970 


CP 


8 


;Greater than 87 ? 


2436 3018 


00980 
00990 ; 


JR 


NC S BADFMT2 


;Yes - bad 




01000 ; 


If Year is 1980 or 84 


\ then set FEB = 29 days 




01010 ; 








2438 E603 


01020 


AND 


3 


;0 or 4 ? 


243A 214D26 


01030 


LD 


HL s MAXDAYS+2 


;Set Feb to have 29 days 


243D 2001 


01040 


JR 


NZ 9 NOTLEAP 


;No - don't inc 


243F 34 


01050 
01060 ; 


INC 


(HL) 


;Leap year - inc max days 




01070 ; 


Check 


Range of month 


- must be 1 - 12 




01080 ; 








2440 3A8D26 


01090 NOTLEAP 


LD 


A, (DTBUF+2) 


;P/u month 


2443 3D 


01100 


DEC 


A 


;Set month = 0-11 


2444 FE0C 


01110 


CP 


12 


;Valid Month ? 


2446 3008 


01120 
01130 ; 


JR 


NCBADFMT2 


;Abort if or >12 




01140 ; 


Valid 


month - point \ 


HL to max days/month 




01150 ; 








2448 2B 


01160 


DEC 


HL 


;HL => Max day table 


2449 85 


01170 


ADD 


A,L 


;Add month # to start 


244A 6F 


01180 
01190 ; 


LD 


L,A 


;HL => Max days for month 




01200 ; 


Check 


for Day entry n 


s valid 




01210 ; 








244B 3A8C26 


01220 


LD 


A, (DTBUF+1) 


;P/u day entry 
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244E 3D 


01230 


DEC 


A 


;Reduce for test (0->FF) 


244F BE 


01240 


CP 


(HL) 


;More than max days ? 


2450 D20325 


01250 BADFMT2 JP 


NCBADFMT 


;6o if too large (or 0) 




01260 , 










01270 


, Transfer Date into buff* 


=r 




01280 








2453 EB 


01290 


EX 


DE,HL 


; Point HL to DTBUF 


2454 FDE5 


01300 


PUSH 


IY 


; Point DE = DATES 


2456 Dl 


01310 


POP 


DE 




2457 0E03 


01320 


LD 


C,3 


;BC = 3 chars to xfer 


2459 EDB0 


01330 
01340 


LDIR 




;Xfer 3 chars 




01350 


; Displ 


ay "No Date in System" if illegal Date 




01360 








245B FD7E02 


01370 I 


DSPDATE LD 


A,(IY+2) 


;P/u month 


245E 215826 


01380 


LD 


HL,NODATE$ 


;"No Date in system" 


2461 B7 


01390 


OR 


A 


; Better not be zero 


2462 CA0625 


01400 


JP 


Z,LOGABRT 


;Log & abort 


2465 47 


01410 ( 


iOTDATE LD 


B,A 


;Xfer month to B 


2466 214D26 


01420 


LD 


HL,MAXDAYS+2 


; Adjust February if 


2469 7E 


01430 


LD 


A,(HL) 


; year is leap year 


246 A D61D 


01440 


SUB 


29 


; & not already adjusted 


246C 2808 


01450 
01460 s 


JR 


Z.PUDAY 


; in parsing date entry 




01470 . 


Pick 


up Year & increment max days if leap yr 




01480 , 








246E FD7E00 


01490 


LD 


A,(IY) 


;P/u year 


2471 E603 


01500 


AND 


3 


;1980 and 1984 are Ip yrs 


2473 2001 


01510 


JR 


NZ,PUDAY 


;Not leap year - fine 


2475 34 


01520 
01530 , 


INC 


(HL) 


;Bump to 29 




01540 , 


Set HL = day # this month, DE => Max table 




01550 








2476 FD6E01 


01560 ( 


HJDAY LD 


L,(IY+1) 


;P/u day # this month 


2479 2600 


01570 


LD 


H,0 


; in^HL 


247B 114B26 


01580 
01590 s 


LD 


DE, MAX DAYS 


;DE => Max day table 




01600 , 


, Loop 


to Count up total i 


f of days up to now 




01610 s 








247E 1A 


01620 I 


)AYLP LD 


A,(DE) 


;P/u max day 


247F 85 


01630 


ADD 


A,L 


;Add to HL 


2480 6F 


01640 


LD 


L,A 




2481 8C 


01650 


ADC 


A,H 




2482 95 


01660 


SUB 


L 




2483 67 


01670 


LD 


H,A 




2484 13 


01680 


INC 


DE 


;Bump days ptr 


2485 10F7 


01690 
01700 . 


DJNZ 

» 


DAYLP 


;B months of max days 




01710 


Stuff 


days (9 bits) into DATES 




01720 s 


> 






2487 FD7503 


01730 


LD 


(IY+3),L 


;Stuff in Isb 


248A 7C 


01740 


LD 


A,H 


;Get bit "8" 


248B FDB604 


01750 


OR 


(IY+4) 


; and OR it in 


248E FD7704 


01760 
01770 , 


LD 


(IY+4),A 


;Then put it back 




01780 « 


Pick 


up year in E (0-7) 






01790 , 


• 






2491 FD7E00 


01800 


LD 


A,(IY) 


;P/u year 


2494 D650 


01810 


SUB 


80 


; Off set from 80 
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2496 5F 


01820 


LD 


t 5 M 




;Put 0-7 in E 


2497 C603 


01830 


ADD 


A 9 3 




;Ck for year >= 84 


2499 0F 


01840 


RRCA 








249A 0F 


01850 


RRCA 








249 B E603 


01860 


AND 


3 




;Keep bits 9 1 


249 D 83 


01870 


ADD 


A 9 E 




;Add back to year 


249E 5F 


01880 


LD 


C 5 f\ 




; & save in DE 


249F 1600 


01890 


LD 


D,0 






24A1 19 


01900 


ADD 


HL,DE 




;Add to days in year 


24A2 23 


01910 
01920 ; 


INC 


HL 




;To start in right place 




01930 ; 


HL = 


desired number 


to 


divide by seven 




01940 ; 










24A3 010700 


01950 


LD 


BC 9 7 




;Now divide by 7 


24A6 AF 


01960 


XOR 


A 






24A7 ED42 


01970 DIV7 


SBC 


HL 9 BC 




; Subtract weeks (7-days) 


24A9 30FC 


01980 
01990 ; 


JR 


NC S DIV7 




; until under flow 




02000 ; 


Correct # for division, 


, & put in bits 1-3 




02010 ; 










24AB 7D 


02020 


LD 


MjL 






24AC C608 


02030 


ADD 


A 9 8 




;Add back to get 1-7 


24AE 47 


02040 


LD 


B 9 A 




;Save day of week 


24AF 07 


02050 


RLCA 






;Shift to bits 1-3 


24B0 4F 


02060 
02070 ; 


LD 


L> 5 rt 




; to store in DATES 




02080 ; 


Merge day of week with 


bit 9 of day of year 




02090 ; 










24B1 FD7E04 


02100 


LD 


A,(IY+4) 




;P/u DATES + 4 


24B4 E6F1 


02110 


AND 


0F1H 




;Keep Ip yr bit & bit 9 


24B6 Bl 


02120 


OR 


C 




; Merge day of week 


24B7 FD7704 


02130 
02140 ; 


LD 


(IY+4),A 




; Stuff back in 




02150 : 


Transfer Day string 


into display buffer 




02160 ; 










24BA 210026 


02170 


LD 


HL 9 DAYTBL 




;HL => Day string table 


24BD 113926 


02180 


LD 


DE 9 DATEBUF 




;Date display buffer 


24C0 D5 


02190 


PUSH 


DE 




;Save start 


24C1 CD9125 


02200 
02210 ; 


CALL 


DSPMDY 




;Write out the day 




02220 ; 


Posit 


ion DE to month 


de 


;stination in buffer 




02230 ; 










24C4 13 


02240 


INC 


DE 




;Bump 


24C5 13 


02250 
02260 ; 


INC 


DE 








02270 ; 


Pick 


up month, & stuff 


string into buffer 




02280 ; 










24C6 FD7E02 


02290 


LD 


A 9 (IY+2) 




;P/u month number 


24C9 47 


02300 


LD 


B,A 




; Stuff in B 


24CA 211526 


02310 


LD 


HL.MONTBL 




;HL => Month string table 


24CD CD9125 


02320 
02330 ; 


CALL 


DSPMDY 




; Write out the month name 




02340 ; 


P/u day of the month 


& 


convert to ASCII 




02350 ; 










24 D0 13 


02360 


INC 


DE 




;DE => Day destination 


24D1 FD7E01 


02370 


LD 


A,(IY+1) 




;P/u day 


24 D4 06 FF 


02380 
02390 ; 


LD 


B,-l 




; Ini t # of tens to -1 



Divide day of the month by 
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24 D6 04 


02420 


DIV10 


INC 


B 


;Divide by 10 


24 D7 D60A 


02430 




SUB 


10 


; with quotient in B 


24 D9 30FB 


02440 
02450 


s 


JR 


NC,DIV10 


; Subtract until carry 




02460 


» 


Convert 


to tens digit 


to ASCII 




02470 


» 








24 DB F5 


02480 




PUSH 


AF 


;Save (10-remainder) 


24 DC 78 


02490 




LD 


A S B 


;P/u quotient 


24 DD C630 


02500 
02510 




ADD 


A,'0' 


;Change to ASCII 




02520 




Change 


to a space if 


it's a leading zero 




02530 










24 DF FE30 


02540 




CP 


'0' 


;Zero? 


24 El 2002 


02550 




JR 


NZ,NOTLD0 


;No - use it 


24E3 3E20 


02560 




LD 


A,' ' 


;Change leading to ' 


24E5 12 


02570 
02580 


NOTLD0 


LD 


(DE),A 


; Stuff in buffer 




02590 




Convert 


remainder to 


ASCII & stuff in buffer 




02600 










24 E6 13 


02610 




INC 


DE 


;DE => ones destination 


24E7 Fl 


02620 




POP 


AF 


;Get back remainder 


24E8 C63A 


02630 




ADD 


A, 3 AH 


; Change to ASCII 


24 EA 12 


02640 
02650 


» 


LD 


(DE),A 


; Stuff in buffer 




02660 


» 


P/u year & stuff lower digit + "0" in buffer 




02670 


» 








24EB FD7E00 


02680 




LD 


A,(IY) 


;Form last year digit 


24 EE D650 


02690 




SUB 


80 


;A = 0-7 


24F0 C630 


02700 




ADD 


A,'0» 


;Convert to ASCII 


24F2 324926 


02710 
02720 




LD 


(DATEBUF+16), 


A ; Stuff year 




02730 




Set B = 


(Normal Exit) 




02740 










24F5 0600 


02750 L06DT 


LD 


B,0 


;B = (normal exit) 


24F7 El 


02760 
02770 




POP 


HL 


;HL => Date/Time string 




02780 




Display 


Date or Time 


String 




02790 










24F8 C5 


02800 


LOGMSG 


PUSH 


BC 


;Save Error #, B (exit) 


24F9 


02810 




@(aLOGOT 




;Log message 




00005 




IFEQ 


00H,1 






00006 




LD 


HL, 






00007 




ENDIF 






24F9 3E0C 


00008 




LD 


A,12 




24FB EF 


00009 




RST 


40 




24FC CI 


02820 
02830 


» 


POP 


BC 


;B = exit condition 




02840 


s 


If B = 


then exit HL 


. = 0, otherwise HL = -1 




02850 


s 








24FD 60 


02860 




LD 


H,B 


;Set HL = -1 or 


24 FE 68 


02870 




LD 


L,B 




24 FF 


02880 




(aPCKBRKC 


;Clear any break 


24 FF 3E6A 


00010 




LD 


A, 106 




2501 EF 


00011 




RST 


40 




2502 C9 


02890 
02900 




RET 




;RETurn with condition 




02910 




Bad Format - display 


error & abort 




02920 
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2503 216B26 02930 BADFMT LD HL,BADDAT$ jlllegal Date/Time 

2506 06FF 02940 LOGABRT LD B.-l ;Abort Condition 

2508 18EE 02950 JR LOGMSG ;Log Message 

02960 ; 
250A 02970 SUBTTL *<LBDATE - TIME code>' 
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250A 


02980 
02990 


PAGE 

i 








250A 


03000 TIME GHaCKBRKC 




; Break key down? 


250A 3E6A 


00012 


LD 


A, 106 






250C EF 


00013 


RST 


40 






250D 2804 


03010 


JR 


Z, BEGINB 




;Ok if not 


250F 21FFFF 


03020 


LD 


HL.-l 




; else abort 


2512 C9 


03030 
03040 


RET 










03050 


; TIME 


entry point - Any 


Farms entered ? 




03060 . 










2513 E5 


03070 BEGINB PUSH 


HL 




;Save pointer 


2514 7E 


03080 TLOOP LD 


A,(HL) 




;P/u character 


2515 FE28 


03090 


CP 


*C 




;Any parameters ? 


2517 2807 


03100 


JR 


Z.GETPRMS 




;Yes - get 'em 


2519 FE0D 


03110 


CP 


CR 




;End of line ? 


251B 2809 


03120 


JR 


Z S CLRSTK 




;Yes - go check time 


251D 23 


03130 


INC 


HL 




;Bump ptr 


251E 18F4 


03140 
03150 


JR 


TLOOP 




;Do ti 1 terminator 




03160 


; Process any Parameters 






03170 










2520 11D925 


03180 ( 


5ETPRMS LD 


DE S PRMTBL$ 




;DE => Parameter Table 


2523 


03190 


(a@PARAM 




;Get parameters 


2523 3E11 


00014 


LD 


A, 17 






2525 EF 


00015 
03200 


RST 


40 








03210 


; Stuff 


"Illegal Time" 


Mess in error routine 




03220 










2526 217B26 


03230 ( 


;lrstk LD 


HL 9 BADTIM$ 




;Chg "Bad date format" 


2529 220425 


03240 


LD 


(BADFMT+1),HL 


; to "Bad time.. . 


252C El 


03250 


POP 


HL 




;Recover command ptr 


252D 280A 


03260 
03270 


JR 


Z S GDPARMS 




;Z - ok to continue 




03280 


; Parameter Error - Dis 


>pl 


ay & abort 




03290 










252F 6F 


03300 


:OERR LD 


L 9 A 




;Xfer errcod to HL 


2530 2600 


03310 


LD 


H 9 






2532 F6C0 


03320 


OR 


0C0H 




; Short error 


2534 4F 


03330 


LD 


C,A 




;Xfer to C 


2535 


03340 


(TERROR 




;Log error 


2535 3E1A 


00016 


LD 


A, 26 






2537 EF 


00017 


RST 


40 






2538 C9 


03350 
03360 


RET 










03370 


, Was there a TIME stri 


ng 


entered ? 




03380 , 










2539 7E 


03390 ( 


5DPARMS LD 


A,(HL) 




;P/u char 


253A FE28 


03400 


CP 


'(' 




;Parms only? 


253C CA8425 


03410 


JP 


Z,DSPTIME 




;Display old time 


253F FE0D 


03420 


CP 


CR 




;End of line? 


2541 CA8425 


03430 
03440 


JP 


Z,DSPTIME 




;Display old time 




03450 . 


Requested time set - 


Check if legal format 




03460 , 










2544 0E30 


03470 


LD 


C,'0' 




; Init separator 


2546 CDA025 


03480 


CALL 


PARSDAT 




;Parse entry 


2549 20 B8 


03490 
03500 , 


JR 


NZ S BADFMT 




;Bad - abort 




03510 


Legal 


Format - Check 


if 


Hours are legal 
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03520 
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254B 218D26 


03530 


LD 


HL,DTBUF+2 ;HL => Hours byte 


254E 3E17 


03540 


LD 


A, 23 ;6reater than 23 ? 


2550 BE 


03550 


CP 


(HL) 


2551 38B0 


03560 
03570 


JR 


C.BADFMT ;Yes - bad format 




03580 


, Hours 


legal - Check if minutes legal 




03590 






2553 2B 


03600 


DEC 


HL ;HL => Minutes 


2554 3E3B 


03610 


LD 


A, 59 ;6reater than 59 ? 


2556 BE 


03620 


CP 


(HL) 


2557 38AA 


03630 
03640 


JR 


CBADFMT ;Yes - bad format 




03650 


; Minutes legal - Check if seconds legal 




03660 






2559 2B 


03670 


DEC 


HL ;HL => Seconds 


255A BE 


03680 


CP 


(HL) ;Greater than 59 ? 


255B 38A6 


03690 
03700 , 


JR 


C.BADFMT ;Yes - bad format 




03710 


, Legal 


input - transfer to TIMES storage area 




03720 






255D E5 


03730 


PUSH 


HL ;Save TIME buffer ptr 


255E 218E26 


03740 


LD 


HL.DUMBUF ;HL => dummy buffer 


2561 


03750 


@@TIME ;DE <= TIME$+0 


2561 3E13 


00018 


LD 


A,19 


2563 EF 


00019 


RST 


40 


2564 El 


03760 


POP 


HL ;Recover TIME buffer ptr 


2565 010300 


03770 


LD 


BC,3 ;3 bytes to xfer 


2568 EDB0 


03780 


LDIR 


;Xfer 




03790 


* 






03800 


Was the CLOCK (C) parameter entered ? 




03810 






256A 210000 


03820 I 


X)CL0CK LD 


HL,0 ;HL = (Normal Exit) 


256D 3AE025 


03830 


LD 


A, (CRESP) ;P/u response 


2570 B7 


03840 


OR 


A 


2571 C8 


03850 
03860 


RET 


Z ;RETurn if no response 




03870 


; CLOCK 


(C) parameter entered - ON or OFF ? 




03880 






2572 110000 


03890 ( 


Lock ld 


DE,$-$ ;P/u parm = FFFF or 0000 


2575 


03900 


(3@FLAGS ;IY => System Flags 


2575 3E65 


00020 


LD 


A, 101 


2577 EF 


00021 
03910 , 


RST 


40 




03920 


, Just ! 


Set/Reset CLOCK bit if Model IV version 




03930 








03940 


IF 


@M0D4 


2578 FDCB15E6 03950 


SET 


4,(IY+ 8 V'- , A') ;Set Clock bit 


257C 1C 


03960 


INC 


E ;Return if CLOCK = YES 


257D C8 


03970 


RET 


Z ; 


257E FDCB15A6 03980 


RES 


4 S (IY+ , V , -'A , ) otherwise Reset bit 


2582 ID 


03990 


DEC 


E ;Set Z flag 


2583 C9 


04000 


RET 


;Done - RETurn 




04010 


ENDIF 






04020 








04030 


, Also Add or Remove Task if Model II Version 




04040 , 








04050 


IF 


(3MOD2 




04060 


RES 


4,(IY+'V , - , A') ;Reset clock bit 
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04070 


LD 


C,CLK SLT 




;Set C = Clock Slot # 






04080 


LD 


A,@RMTSK 




;A = Remove Task SVC # 






04090 


INC 


E 




;Clock Off ? 






04100 


JR 


NZ, CLOFF 




;Yes - remove task 






04110 CLON 


LD 


DE,DO CLOCK 


;Clock on - DE => Address 






04120 


SET 


4 9 ( I Y+ ' V - 


'A') 


;Set clock bit 






04130 


LD 


A,@ADTSK 




;A = Add Task SVC # 






04140 CLOFF 


RST 


40 




; Issue SVC 






04150 


XOR 


A 




;Set Z for no error 






04160 


LD 


H,A 




;Pass to HL 






04170 


LD 


L,A 




;For normal exit 






04180 


RET 












04190 


ENDIF 












04200 ; 














04210 ; 


Display 


the Time 










04220 ; 










2584 


214226 


04230 DSPTIME 


LD 


HL 9 DATEBUF- 


^ 


;Pt to space for time str 


2587 


E5 


04240 


PUSH 


HL 




;Save pointer 


2588 




04250 


@@TIME 






;Xfer time into buffer 


2588 


3E13 


00022 


LD 


A,19 






25 8 A 


EF 


00023 


RST 


40 






258B 


CD6A25 


04260 


CALL 


DOCLOCK 




;Set/Reset Clock bit 


258E 


C3F524 


04270 


JP 


LOGDT 




;Log it & exit 


2591 




04280 


SUBTTL 


«<LBDATE - 


DATE/TIME Common RoutinesV 
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2591 



2591 05 

2592 7D 

2593 80 

2594 80 

2595 80 

2596 6F 



2597 0603 
2599 7E 
259A 12 
259B 23 
259C 13 
259D 10FA 
259F C9 



25A0 118D26 
25A3 0603 



25A5 D5 
25A6 CDBC25 
25A9 Dl 
25AA C0 



25AB 12 
25AC 05 
25AD C8 
25AE IB 



25AF 7E 
25B0 23 
25B1 FE3A 
25B3 28F0 
25B5 B9 
25B6 3002 
25B8 18EB 



04290 

04300 

04310 

04320 

04330 

04340 

04350 

04360 ; 

04370 DSPMDY 

04380 

04390 



PAGE 



DSPMDY - Xfer 3 char string from table to buffer 

B => Entry # in table to display 
HL => Table to fetch data from 
DE => Buffer to receive string 



04410 
04420 
04430 ; 
04440 ; 
04450 ; 
04460 

04470 DSPM1 
04480 



DEC 

LD 

ADD 

ADD 

ADD 

LD 



A,L 
A,B 
A,B 
A,B 
L,A 



;B = entry, 0-6 

;P/u Isb of table start 



; Entries 3 bytes long 
;HL => Table entry 
Transfer string into buffer 



04490 

04500 

04510 

04520 

04530 ; 

04540 ; 

04550 ; 

04560 ; 

04570 ; 

04580 ; 

04590 ; 

04600 ; 

04610 ; 

04620 PARSDAT LD 



LD 

LD 

LD 

INC 

INC 

DJNZ 

RET 



B,3 

A,(HL) 

(DE),A 

HL 

DE 

DSPM1 



;Three chars to xfer 
;P/u char from table 
; Stuff into buffer 
;Bump 

;Three chars to xfer 
;Done - RETurn 



PARSDAT - Parse TIME/DATE string entry 

HL => Buffer containing string to parse 

C => Delimiter (<"0" = DATE 9 <"0"or=" :" = TIME) 

DTBUF-DTBUF+2 <= Data in compressed format 
Z - Set if successful 



04630 

04640 

04650 

04660 

04670 PRS1 

04680 

04690 

04700 

04710 ; 

04720 ; 

04730 ; 

04740 

04750 

04760 

04770 

04780 ; 

04790 ; 

04800 ; 

04810 

04820 

04830 

04840 

04850 

04860 

04870 



LD 



DE,DTBUF+2 
B,3 



; Point to buf end 
;Process 3 fields 



Parse a field - Return NZ if bad 



PUSH 
CALL 
POP 
RET 



DE 

PRS2 
DE 
NZ 



;Save pointer 
;Get a digit pair 
;Recover pointer 
;Ret if bad digit pair 



Good field - Stuff in buff, dec ptr, & count 
(DE),A 



LD 
DEC 
RET 
DEC 



Z 
DE 



else stuff the value 
Loop countdown 
Do for 3 fields 
Backup the pointer 



Parsed a field - is the separator valid ? 



LD 

INC 

CP 

JR 

CP 

JR 

JR 



A,(HL) 
HL 

Z,PRS1 
C 

NC.PRSRET 
PRS1 



P/u separator 
Bump pointer 
Check for ' : ' 
loop if so 
Correct ? 
NC = bad 
Loop if OK 
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25BA B7 


04890 PRSRET 


OR 


A 


;Set NZ 


25BB C9 


04900 
04910 ; 


RET 




;Return bad entry 




04920 ; 


PRS2 • 


- Parse a digit 


pair at HL 




04930 ; 








25BC CDD225 


04940 PRS2 


CALL 


PRS4 


;Get a digit 


25BF 300F 


04950 
04960 ; 


JR 


NC.PRS3 


; 1 1 1 egal - return 




04970 ; 


Legal 


Digit - Multiply by 10 




04980 ; 








25C1 5F 


04990 


LD 


E,A 


;Multiply by ten 


25C2 07 


05000 


RLCA 




;X 2 


25C3 07 


05010 


RLCA 




;X 4 


25C4 83 


05020 


ADD 


A,E 


;X 5 


25C5 07 


05030 


RLCA 




;X 10 


25C6 5F 


05040 
05050 ; 


LD 


E,A 


; Stuff in E 




05060 ; 


Get another digit 






05070 ; 








25C7 CDD225 


05080 


CALL 


PRS4 


;Get ones digit 


25CA 3004 


05090 
05100 ; 


JR 


NC.PRS3 


;Bad - return NZ 




05110 ; 


Legal 


digit - Add to 


tens digit & set Z flag 




05120 ; 








25CC 83 


05130 


ADD 


Mg L 


Accumulate new digit 


25CD 5F 


05140 


LD 


E,A 


;Save 2-digit value 


25CE BF 


05150 


CP 


A 


;Clear flags 


25CF C9 


05160 
05170 ; 


RET 




;Return Z 




05180 ; 


Force 


NZ & Return 






05190 ; 








25D0 B7 


05200 PRS3 


OR 


A 


;Set NZ 


25D1 C9 


05210 
05220 ; 


RET 




;RETurn 




05230 ; 


Pick 


up a digit and 


convert to' binary 




05240 ; 








25D2 7E 


05250 PRS4 


LD 


A,(HL) 


;P/u a digit & 


25 D3 23 


05260 


INC 


HL 


; bump ptr 


25D4 D630 


05270 


SUB 


'0- 


;Convert to binary 


25 D6 FE0A 


05280 


CP 


10 


; Legal ? 


25D8 C9 


05290 
05300 ; 


RET 




;C - legal, NC - illegal 




05310 ; 


Parameter table 






05320 ; 








0080 


05330 NUM 


EQU 


80 H 




0040 


05340 FLAG 


EQU 


40H 




0020 


05350 STR 


EQU 


20H 




0010 


05360 ABB 
05370 ; 


EQU 


10H 




25 D9 80 


05380 PRMTBL1 
05390 ; 


; DB 


80 H 


;6.x Parameter Table 


25 DA 55 


05400 


DB 


FLAG! ABB! 5 




25 DB 43 


05410 


DB 


'CLOCK' 




4C 4F 4c 


I 4B 








25 E0 00 


05420 CRESP 


DB 







25E1 7325 


05430 


DW 


CLOCK+1 




25 E3 00 


05440 
05450 ; 


DB 







2600 


05460 


ORG 


$<-8+l<+8 





Page 94 



The Source 



LIBRARY Files 



DATE/TIME - LS-DOS 6.2 



Page 00012 



LBOATE - DATE/TIME Common Routines 



2600 



2615 



2639 

264B 
2658 

266B 
267B 



268B 
268E 

2403 



53 

75 6E 
57 65 
69 53 
4A 

61 6E 
41 70 
6E 4A 

65 70 
44 65 
44 

61 79 
78 78 
00 
00 

IF 1C 
IE IF 
44 

61 74 
69 6E 
6D 0D 
42 
61 64 

66 6F 
42 

61 64 
66 6F 



05470 

05480 
4D 6F 6E 
64 54 68 
61 74 

05490 
46 65 62 
72 4D 61 
75 6C 41 
4F 63 74 
63 

05500 
2C 20 40 
2C 20 31 



DAYTBL DB 
54 75 65 
75 46 72 

MONTBL DB 
4D 61 72 
79 4A 75 
75 67 53 

4E 6F 76 

DATEBUF DB 
6F 6E 20 
39 38 78 



05510 MAXDAYS DB 
IF IE IF IE IF IF 
IE IF 

05520 NODATES OB 
65 20 6E 6F 74 20 
20 73 79 73 74 65 



72 



72 



05530 
20 44 61 
6D 61 
05540 
20 54 69 
6D 61 
05550 
05560 
05570 
05580 
05590 
05600 



BADDATS DB 
74 65 20 
74 0D 
BADTIM$ DB 
6D 65 20 
74 0D 



DTBUF EQU 
DUMBUF EQU 



1 SunMonTueWedThuFri Sat 



' JanFebMarAprMayJunJulAugSepOctNovDec 



END 



'Day, Won xx, 198x',CR 



0,31,28,31,30,31,30,31,31,3(1,31,30,31 



'Date not in system', CR 



'Bad Date format ' ,CR 



'Bad Time format' ,CR 



$ 
$+3 

DATE 
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(3$SYS 


08F0 (3(31 


0000 (3(32 


0000 


@@3 


0000 (3@4 


0000 @ADTSK 


001 D 


0BANK 


0877 (3BYTEIO 


1300 @CHNIO 


0689 


0CKBRKC 


0553 @CLS 


0545 @CTL 


0623 


(3DATE 


07A8 0DIV16 


06E3 (3DSP 


0642 


(3DSPLY 


052D (3FRENCH 


0000 (3GERMAN 


0000 


@GET 


0638 (3HEX16 


07BD 0HEX8 


07 C2 


(3 HEX DEC 


06F6 0HZ50 


0000 (3INTL 


0000 


(3JCL 


0630 @KBD 


0635 (3KEY 


0628 


@KEYIN 


0585 0KITSK 


0089 (3LOGER 


0503 


0LOGOT 


0500 0MOD2 


0000 (3M0D4 


FFFF 


@MSG 


0530 0MUL16 


06C9 0OPREG 


0084 


(3 PR I NT 


0528 @PRT 


063D (3PUT 


0645 


(3RMTSK 


001 E 0RSTNMI 


0FE9 (3RSTREG 


0680 


@TIME 


078 D @USA 


FFFF 0VDCTL 


0B99 


0VDCTL3 


0D38 @ VDCTL 


0D42 ABB 


0010 


ADDR 2 ROWCOL 


0DF1 BADDATS 


266B BADFMT 


2503 


BADFMT2 


2450 BADTIMS 


267B BARS 


0201 


BEGINA 


240C BEGINB 


2513 BOOTSTS 


439D 


BURS 


0200 CASHKS 


0A7B CFLAGS 


006C 


CLK SLT 


0005 CLOCK 


2572 CLRSTK 


2526 


CORES 


0300 CR 


000D CRESP 


25E0 


CRTBGNS 


F800 DATE 


2403 DATES 


0033 


DATEBUF 


2639 DAYLP 


247E DAYTBL 


2600 


DAYTBLS 


04C7 DCBKLS 


0031 DCTS 


0470 


[FLAGS 


006D DIS K) RAM 


0846 DIV10 


24 D6 


DIV7 


24A7 DOCLOCK 


256A DODATAS 


0B94 


DODCBS 


0210 IX) CONTROL 


0C44 DO DSPCHAR 


0CB8 


DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 DO INVERT OFF 


0C9B 


DO MASK 


0000 ro RET 


0BCB DO RET1 


0BCC 


DO SCROLL 


0CCE DO TABS 


0BEA DSKTYPS 


04C0 


DSPDATE 


245B DSPM1 


2599 DSPMDY 


2591 


DSPTIME 


2584 DTBUF 


268B DTPMTS 


04C2 


DUMBUF 


268E DVRENDS 


0FF4 DVRHIS 


0206 


ENADIS DO RAM 


0817 FDDINTS 


000E FLAG 


0040 


FLGTABl 


006A GDPARMS 


2539 GETPRMS 


2520 


GET (3 ROWCOL 


0DAE GOTDATE 


2465 HERTZS 


0750 


HIGHS 


040E IF LAGS 


0072 INBUFS 


0420 


INTVCS 


003E IOERR 


252F JCLCBS 


0203 


JLDCBS 


0230 KCK@ 


07D6 KFLAGS 


0074 


KIDATAS 


08FC KIDCBS 


0208 L BANKS 


0202 


LOGABRT 


2506 LOGDT 


24F5 LOGMSG 


24F8 


MAXDAYS 


0401 MAXDAYS 


264B MODOUTS 


0076 


MONTBL 


2615 MONTBLS 


04 DC NFLAGS 


0077 


NODATES 


2658 NOTLD0 


24E5 NOTLEAP 


2440 


NUM 


0080 OPREGS 


0078 OPREG SV AREA 


086E 


OPREG SV PTR 


0835 PAKNAMS 


0410 PARSDAT 


25A0 


PAUSED 


0382 PC SAVES 


07AF PDRVS 


001 B 


PRDCBS 


0218 PRMTBLS 


25D9 PRS1 


25A5 


PRS2 


25BC PRS3 


25D0 PRS4 


25D2 


PRSRET 


25BA PUDAY 


2476 PUTA0DE 


0DCD 


PUT @ 


0DCA PUT @ ROWCOL 


0DC6 RFLAGS 


007B 


ROWCOL 2 ADDR 


0DD0 RSTORl 


04C4 S1DCBS 


0238 


SET SCROLL 


0CF3 SFLAGS 


007C SIDCBS 


0220 


SODCBS' 


0228 STACKS 


0380 STARTS 


0000 


STR 


0020 TIME 


250A TIMES 


002 D 


TIMERS 


002C TIMSLS 


002B TIMTSKS 


0713 


TLOOP 


2514 TMPMTS 


04C3 TRACE INT 


07B1 
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TYPHK$ 


0A8F TYPTSK$ 


0B26 


VFLAG$ 


007F 


ZEROS 


0401 @@ABORT 


9E09 (a@ADTSK 


9E9C 


00BANK 


A3B4 (a@BKSP 


A094 INBREAK 


A3CA 


00CHNIO 


9DF4 @@CKBRKC 


A418 


(a@CKDRV 


9EF0 


@(aCKE0F 


A0A9 (a@CKTSK 


9E87 


@@CLOSE 


A07F 


@@CLS 


A402 @@CMNDI 


9E33 


@@CMNDR 


9E48 


@GCTL 


9C58 OGDATE 


9DCA 


(30DCSTAT 


9F2F 


00DEBUG 


9E72 @@DECHEX 


A334 


@@DIRRD 


A2A1 


00DIRWR 


A2B6 @@DIV16 


A31F 


@@DIV8 


A30A 


00DODIR 


9F05 @@DSP 


9C1C 


@(aDSPLY 


9CBC 


TERROR 


9E5D @@EXIT 


9E1E 


(a@FEXT 


A20E 


(30FLAGS 


A39E @@FNAME 


A223 


@(3FSPEC 


A1F9 


0GGATRD 


A28C 00GATWR 


A2CB 


00GET 


9C30 


(a@GTDCB 


A24D @@GTDCT 


A238 


(a@GTMOD 


A262 


00HDFMT 


9FD7 (90HEX16 


A373 


00HEX8 


A35E 


00HEXDEC 


A349 @@HIGH$ 


A388 


@@INIT 


A055 


@@KBD 


9C94 @@KEY 


9C08 


00KEYIN 


9CA8 


00KLTSK 


9EDB (a@LOAD 


A1CF 


@@LOC 


A0BE 


@@LOF 


A0D3 @@LOGER 


9CF3 


00LOGOT 


9D08 


@GMSG 


9D3F @@MUL16 


A2F5 


@@MUL8 


A2E0 


GWEN 


A06A @@PARAM 


9DB5 


(30PAUSE 


9DA0 


(9@PEOF 


A0E8 @@POSN 


A0FD (SPRINT 


9D54 


@@PRT 


9C6C @(3PUT 


9C44 


@(9RAMDIR 


9F1A 


@@RDSEC 


9FAD 00RDSSC 


A277 


@@READ 


A112 


@@REMOV 


A040 (a@RENAM 


A02B 


@@REW 


A127 


@@RMTSK 


9EB1 @@RPTSK 


9EC6 


G0RREAD 


A13C 


@@RSLCT 


9F98 @@RSTOR 


9F59 


@@RUN 


A1E4 


0GRWRIT 


A151 (3(9SEEK 


9F83 


G0SEEKSC 


A166 


@@SKIP 


A17B (3@SLCT 


9F44 


@@STEPI 


9F6E 


00TIME 


9DDF GXaVDCTL 


9D8B 


@@VER 


A190 


@@VRSEC 


9FC2 @@WEOF 


A1A5 


@@WHERE 


9C80 


@(3WRITE 


A1BA @@WRSEC 


9FEC 


@@WRSSC 


A001 


00WRTRK 


A016 








2403 is the 


transfer address 








00000 Total 


errors 
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Library 
ISAM # 



DEBUG, VERIFY 
SYS7/SYS 
14H, 1BH 
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LIBRARY Fi 


les 


DEBUG/VERIFY - ! 


LS-DOS 6.2 Page 00001 




00100 


;LBDEBUG/ASM - 


■ DEBUG VERIFY Commands 


0000 


00110 
00120 


9 


TITLE 


<DEBUG/VERIFY - 


LS-DOS 6.2> 


000 D 


00130 CR 


EQU 


13 




0000 


00140 


*GET 


SVCMAC:3 


;SVC Macro equivalents 




00010 


;SVCMAC/ASM - 


LS-DOS Version VI 






00020 


*LIST 


OFF 








03900 *LIST 


ON 








00150 


*LIST 


OFF 




;Get SYS0/EQU 




00170 


*LIST 


ON 








00180 


» 








2400 


00190 
00200 


» 


ORG 


2400H 




2400 C37824 


00210 
00220 


» 


JP 


VERIFY 


; Verify entry point 




00230 


9 


Debug entry 






00240 


S 








2403 11F124 


00250 


DEBUG 


LD 


DE.PRMITBL 


;Pt to y/n on/off parms 


2406 


00260 




@(a PAR AM 


;Get parameters 


2406 3E11 


00001 




LD 


A, 17 




2408 EF 


00002 




RST 


40 




2409 C2C324 


00270 




JP 


NZ,IOERR 


;Jump on parm error 


240C CDB624 


00280 




CALL 


NPARM 


;Ck on yes or no entry 


240F 2821 


00290 




JR 


Z,DBG2 


;Go if no (OFF) 


2411 3A7324 


00300 




LD 


A,(EPARM) 


;Ck on extended DEBUG 


2414 B7 


00310 




OR 


A 


; requested 


2415 280A 


00320 




JR 


Z s DBG0 


;Go if not 


2417 FDCB0246 


00330 




BIT 


s (IY+'C'- , A') 


;Can»t put extended DEBUG 


241B C2CD24 


00340 




JP 


NZ S CANT 


; if himem not available 


241E CD7524 


00350 




CALL 


DBG 3 


;Call if EXT entered 


2421 FDCB12FE 


00360 


DBG0 


SET 


7 S (IY+ , S'- , A') 


;Turn on DEBUG flag 


2425 1608 


00370 




LD 


D s 8 


;Set to mask bit 3 


2427 CD9824 


00380 




CALL 


GET$DO 




242A AF 


00390 


DBG0A 


XOR 


A 


; & enable DEBUG 


242B 329F19 


00400 


DBG1 


LD 


(@DBGHK) S A 




242E 210000 


00410 EXIT 


LD 


HL s 


;Set no error 


2431 C9 


00420 
00430 


9 


RET 






2432 FDCB12BE 


00440 


DBG 2 


RES 


7 S (IY+ , S'- , A') 


;Turn off DEBUG flag 


2436 1680 


00450 




LD 


D,80H 


;Set to mask bit 7 


2438 CD9824 


00460 




CALL 


GET$DO 




243B 3A7324 


00470 


DBG 2 A 


LD 


A,(EPARM) 


;Ck on extended DEBUG 


243E B7 


00480 




OR 


A 


; requested 


243F 282E 


00490 
00500 


9 


JR 


Z,DBG4 


;Go if not 




00510 


9 


User 


requested we remove extended DEBUG 




00520 


9 








2441 FDCB0246 


1 00530 




BIT 


8 (IY+'C'- , A') 


;Can we alter HIGH$? 


2445 2028 


00540 




JR 


NZ.DBG4 


;Go if not 


2447 ED5BA419 00550 




LD 


DE 9 (EXTDBG$) 


;Is extended resident? 


244B 2124EB 


00560 




LD 


HL,-ORARET@ 


;Ck if vector same as 


244E ED5A 


00570 




ADC 


HL,DE 


; the default 


2450 281D 


00580 




JR 


Z,DBG4 


;Go if not resident 


2452 210000 


00590 




LD 


HL,0 


;Set to get HIGH$ 


2455 45 


00600 




LD 


B S L 




2456 


00610 




@@HIGH$ 


;P/u current pointer 


2456 3E64 


00003 




LD 


A, 100 




2458 EF 


00004 




RST 


40 




2459 23 


00620 




INC 


HL 


;Point to assumed module 


245A AF 


00630 




XOR 


A 


; & check if extended 


245B ED52 


00640 




SBC 


HL,DE 


; debugger is lowest 
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245D 2010 


00650 


JR 


NZ,DBG4 


;Can't release if not 


245F 13 


00660 


INC 


DE 


; Point to last byte used 


2460 13 


00670 


INC 


DE 




2461 EB 


00680 


EX 


DE,HL 


;This will be new 


2462 5E 


00690 


LD 


E,(HL) 




2463 23 


00700 


INC 


HL 


; HIGH$ 


2464 56 


00710 


LD 


D,(HL) 




2465 EB 


00720 


EX 


DE,HL 


;New high to HL 


2466 


00730 


@@HIGH$ 




;Reset high$ 


2466 3E64 


00005 


LD 


A, 100 




2468 EF 


00006 


RST 


40 




2469 21DC14 


00740 


LD 


HL,ORARET<a 


;Reset extended debugger 


246C 22A419 


00750 


LD 


(EXTDBG$),HL 


; vector to default 


246F 3EC9 


00760 DBG4 


LD 


A,0C9H 


;Turn off DEBUG vector 


2471 18B8 


00770 
00780 ; 


JR 


DBG1 




2473 0000 


00790 EPARM 


DW 







2475 3E9B 


00800 DBG 3 


LD 


A,9BH 


;Get SYS9 loaded & up 


2477 EF 


00810 
00820 ; 


RST 


28 H 






00830 ; 


Verify entry 






00840 ; 






. ;i 


2478 110125 


00850 VERIFY 


LD 


DE,PRM2TBL 


;Pt to ext + above 


247B 


00860 


(a@PARAM 






247B 3E11 


00007 


LD 


A s 17 




247D EF 


00008 


RST 


40 




247E 2043 


00870 


JR 


NZ,IOERR 


;Quit on parm error 


2480 CDB624 


00880 


CALL 


NPARM 


;Ck yes/no 


2483 213115 


00890 


LD 


HL 9 @WRITE 


;Init to vector WRITE 


2486 FDCB0396 


00900 


RES 


2,(IY+ , D'- , A') 


; Indicate VERIFY=OFF 


248A 2807 


00910 


JR 


Z S VER1 


;Use WRITE if VER=(OFF) 


248C 216015 


00920 


LD 


HL,(3VER 


;Init to vector VERIFY 


248F FDCB03D6 


00930 


SET 


2 S (IY+ , D , - , A , ) 


indicate VERIFY=ON 


2493 229601 


00940 VER1 


LD 


(75*2+SVCTAB$) 


,HL ;Change SVCTAB vector 


2496 1896 


00950 
00960 ; 


JR 


EXIT 






00970 ; 


Routine 


to save or resi 


tore SPACE COMPRESSION state 




00980 ; 








2498 D5 


00990 GET$DO 


PUSH 


DE 


;Save mask value 


2499 11B224 


01000 


LD 


DE,$DO$ 




249C 


01010 


(a@GTMOD 






249C 3E53 


00009 


LD 


A s 83 




249E EF 


00010 


RST 


40 




249F 210400 


01020 


LD 


HL,4 


;Point to 1st data byte 


24A2 19 


01030 


ADD 


HL S DE 




24A3 Dl 


01040 


POP 


DE 


;Rcvr mask value 


24A4 C0 


01050 


RET 


NZ 


;Return if not found 


24A5 7E 


01060 


LD 


A S (HL) 


;P/u existing state 


24A6 A2 


01070 


AND 


D 


; Strip state of space comp 


24A7 07 


01080 


RLCA 




; & move to bit 7 or 3 


24A8 07 


01090 


RLCA 






24A9 07 


01100 


RLCA 






24AA 07 


01110 


RLCA 






24AB 5F 


01120 


LD 


E,A 


;Tempy save 


24AC 7E 


01130 


LD 


A,(HL) 




24AD E677 


01140 


AND 


77H 


;Strip bits 3 and 7 


24AF B3 


01150 


OR 


E 


;Merge comp state 


24B0 77 


01160 


LD 


(HL),A 




24B1 C9 


01170 
01180 ; 


RET 






24B2 24 


01190 $DO$ 


DB 


'$DO',3 
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01200 ; 










01210 ; 


Parameter parsing of 


yes /no 




01220 ; 








24B6 010000 


01230 NPARM 


LD 


BC,0 


;P/u "no" parm entry 


24B9 


01240 


(a@FLAGS 




;Point to flag table 


24B9 3E65 


00011 


LD 


A, 101 




24BB EF 


00012 


RST 


40 




24BC 78 


01250 


LD 


A,B 




24BD Bl 


01260 


OR 


C 


;If NO, make Z 


24BE EEFF 


01270 


XOR 


0FFH 




24C0 C9 


01280 


RET 






24C1 0000 


01290 YPARM 
01300 ; 


DW 









01310 ; 


I/O Error Processing 






01320 ; 








24C3 6F 


01330 IOERR 


LD 


L,A 


;Set HL = error code 


24 C4 2600 


01340 


LD 


H,0 


» 


24C6 F6C0 


01350 


OR 


0C0H 


; Short error 


24C8 4F 


01360 


LD 


C,A 


;Xfer error # to C 


24C9 


01370 


(TERROR 




; Display error 


24C9 3E1A 


00013 


LD 


A, 26 




24CB EF 


00014 


RST 


40 




24CC C9 


01380 
01390 ; 


RET 




;Return to DOS 




01400 ; 


Error exits 






01410 ; 








24CD 21D724 


01420 CANT 


LD 


HL,CANT$ 




24 D0 


01430 


@@L060T 








00015 


IFEQ 


00H,1 






00016 


LD 


HL, 






00017 


ENDIF 






24 D0 3E0C 


00018 


LD 


A, 12 




24 D2 EF 


00019 


RST 


40 




24D3 21FFFF 


01440 


LD 


HL,-1 




24D6 C9 


01450 
01460 ; 


RET 






24 D7 4E 


01470 CANT$ 


DB 


'No memory space available' ,CR 


6F 20 6D 65 6D 6F 72 


79 






20 73 


70 61 63 65 20 61 






76 61 


69 6C 61 62 6C 


65 






0D 


01480 ; 








24F1 45 


01490 PRM1TBL DB 


■EXT ' 




58 54 20 20 20 








24F7 7324 


01500 


DW 


EPARM 




24F9 45 


01510 


DB 


•E 




20 20 20 20 20 








24FF 7324 


01520 


DW 


EPARM 




2501 4F 


01530 PRM2TBL DB 


'ON 




4E 20 20 20 20 








2507 C124 


01540 


DW 


YPARM 




2509 4F 


01550 


DB 


•OFF 




46 46 


20 20 20 








250F B724 


01560 


DW 


NPARM+1 




2511 59 


01570 


DB 


■ y i 




20 20 20 20 20 








2517 C124 


01580 


DW 


YPARM 




2519 4E 


01590 


DB 


•N 




20 20 20 20 20 








251F B724 


01600 


DW 


NPARM+1 
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2521 00 01610 NOP 

01620 ; 
2403 01630 END DEBUG 
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$A1 


03B7 $A2 


03B8 $A3 


03 B9 


$CKE0F 


1470 $LX)$ 


24B2 (3$SYS 


08F0 


@@1 


0000 0(32 


0000 0(33 


0000 


@@4 


0000 @ ABORT 


1B08 (3ADTSK 


1CDA 


(PBANK 


0877 (3BKSP 


1486 (3BREAK 


196F 


@BYTEI0 


1300 (3CHNIO 


0689 (3CKBRKC 


0553 


@CKDRV 


1993 (3CKEOF 


158F 0CKTSK 


1CF5 


0CLOSE 


1999 (9CLS 


0545 0CMNDI 


197E 


0CMNDR 


197B @CTL 


0623 0DATE 


07 A8 


@DBGHK 


199F @DCINIT 


19C0 0DCRES 


19C4 


(3DCSTAT 


19B5 0DCTBYT 


1A2B (3DEBUG 


19A0 


0DECHEX 


03E1 (3DIRCYL 


18F7 0DIRRD 


18BB 


(3DIRWR 


1803 @DIV16 


06E3 @DIV8 


1927 


(3D0DIR 


19AF 0DOKEY 


19A9 @DSP 


0642 


@DSPLY 


052D TERROR 


1B0F 0EXIT 


1B0B 


@FEXT 


1984 (3FLAGS 


196A 0FNAME 


199C 


^FRENCH 


0000 (3FSPEC 


1981 @GATRD 


1874 


0GATWR 


1875 (3GERMAN 


0000 0GET 


0638 


0GTDCB 


1990 (3GTDCT 


1A1E (aGTMOD 


19B2 


@HDFMT 


19E4 0HEX16 


07BD @HEX8 


07C2 


GHEXDEC 


06F6 @HIGH$ 


1948 0HITRD 


1897 


0HITWR 


1898 0HZ50 


0000 (aiCNFG 


0086 


@INIT 


198D @INTL 


0000 @IPL 


1BF2 


(ajCL 


0530 @KBD 


0635 (3KEY 


0628 


@KEYIN 


0585 (3KITSK 


0089 PKLTSK 


1CD0 


@L0AD 


1B38 @LOC 


14B3 @LOF 


14 DE 


(3LOGER 


0503 (3LOGOT 


0500 (aMOD2 


0000 


0MOD4 


FFFF @MSG 


0530 @MUL16 


06C9 


0MUL8 


190A @NMI 


0066 @OPEN 


198 A 


@OPREG 


0084 0PARAM 


1987 (apAUSE 


0382 


@PEOF 


14A2 (apOSN 


1434 SPRINT 


0528 


@PRT 


063D @PUT 


0645 0RAMDIR 


19 AC 


(3RDHDR 


19D8 0RDSEC 


19F4 (3RDSSC 


18 D8 


(3RDTRK 


19E0 0READ 


1513 (3REMOVE 


19A6 


(3RENAME 


1996 GREW 


149 B 0RMTSK 


1CD7 


(3RPTSK 


1CEB @RREAD 


1473 (3RSLCT 


19D4 


0RST00 


0000 0RST08 


0008 (3RST10 


0010 


(3RST18 


0018 (3RST20 


0020 (3RST28 


0028 


@RST30 


0030 (3RST38 


0038 0RSTNMI 


0FE9 


(3RSTOR 


19C8 (3RSTREG 


0680 (3RUN 


IBID 


(3RWRIT 


13AD 0SEEK 


19D0 0SEEKSC 


1421 


(a SKIP 


1430 0SLCT 


19BC (3SOUND 


0392 


@STEPI 


19CC 0TIME 


078 D @USA 


FFFF 


0VDCTL 


0B99 0VDCTL3 


0D38 @VER 


1560 


0VRSEC 


19DC 0WEOF 


14EC 0WHERE 


1979 


(3WRITE 


1531 MSEC 


19E8 (3WRSSC 


19EC 


(3WRTRK 


19F0 (a VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 


AFLAG$ 


006A AUTO? 


1FF1 BARS 


0201 


BOOTST$ 


439D BREAK? 


1C60 BRKVEC$ 


1C88 


BUR$ 


0200 CANT 


24CD CANTS 


24 D7 


CASHK$ 


0A7B CFCB$ 


00E0 CFGFCBS 


00 E0 


CFLAG$ 


006C CKMODta 


1A7F CKOPENG 


1568 


CONFIG$ 


203F CORES 


0300 CR 


000 D 


CRTBGN$ 


F800 CYL GRN 


16 AE D0FBYT8 


1A26 


DATES 


0033 DAYTBL$ 


04C7 DBG0 


2421 


DBG0A 


242A DBG1 


242B DBG2 


2432 


DBG2A 


243B DBG3 


2475 DBG4 


246F 


DBGSV$ 


00 A0 DCBKL$ 


0031 DCT$ 


0470 


DCTBYT8(f> 


1A29 DCTFLD0 


1A34 DEBUG 


2403 


DFLAG$ 


006D DIRBUFS 


2300 DIS DO RAM 


0846 
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The Source 


LIBRARY Files 


DEBUG/VERIFY - LS-DOS 


6.2 Page 00006 


D0DATA$ 


0B94 DODCBS 


0210 DO CONTROL 


0C44 


DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 DO~RET ~ 


0BCB 


DO RET1 


0BCC DO SCROLL 


0CCE DO TABS 


0BEA 


DSKTYP$ 


04C0 DTPMT$ 


04C2 DVRENDS 


0FF4 


DVRHI$ 


0206 EFLAG$ 


006E ENADIS DO RAM 


0817 


EPARM 


2473 EXIT 


242E EXTDBGl 


19A4 


FDDINT$ 


000E FEMSK$ 


006 F FLGTABS 


006A 


GET$DO 


2498 GET @ ROWCOL 


0DAE HERTZS 


0750 


HIGH$ 


040E HKRESl 


1A6C IF LAGS 


0072 


INBUF$ 


0420 INTIM$ 


003 C INTMSKS 


003D 


INTVC$ 


003 E IOERR 


24C3 JCLCBS 


0203 


JIXB$ 


0024 JFCB$ 


00C0 JLDCBS 


0230 


JRET$ 


0026 KCK@ 


07D6 KFLAGS 


0074 


KIDATA$ 


08FC KIDCB$ 


0208 LBANKS 


0202 


LDRV$ 


0023 LFLAG$ 


0075 LNKFCB0 


1566 


LOW$ 


001 E LSVC$ 


000 D MAXCORS 


2400 


MAX DAYS 


0401 MINCORS 


3000 MODOUTS 


0076 


MONTBLS 


04 IX NFLAG$ 


0077 NPARM 


24B6 


OPREG$ 


0078 OPREG SV AREA 


086E OPREG SV PTR 


0835 


ORARET0 


14DC OSRLSl 


003B OSVERl 


0085 


OVRLY$ 


0069 PAKNAMS 


0410 PAUSE0 


0382 


PC SAVES 


07AF PDRV$ 


001B PHIGHS 


001 C 


PRDCB$ 


0218 PRM1TBL 


24F1 PRM2TBL 


2501 


PUTA0DE 


0DCD PUT @ 


0DCA PUT @ ROWCOL 


0DC6 


RFLAG$ 


007B ROWCOL 2 ADDR 


0DD0 RST38(? 


1BFF 


RSTOR$ 


04C4 RWRIT@ 


13A2 S1DCBS 


0238 


SBUFF$ 


1D00 SET0EXEC 


1A79 SET SCROLL 


0CF3 


SFCB$ 


008C SFLAG$ 


007C SIDCBS 


0220 


SODCB$ 


0228 SPACE4S 


2142 STACKS 


0380 


STARTS 


0000 SVCRETS 


000B SVCTABS 


0100 


SYSERRS 


1B13 TCB$ 


004E TFLAGS 


007 D 


TIMES 


002D TIMERS 


002C TIMSLS 


002 B 


TIMTSK$ 


0713 TMPMTS 


04C3 TRACE INT 


07B1 


TYPHK$ 


0A8F TYPTSKS 


0B26 USTORl 


0013 


VER1 


2493 VERIFY 


2478 VFLAGS 


007 F 


WRINTS 


0080 YPARM 


24C1 ZEROS 


0401 


ZEROA0 


13A0 (30ABORT 


798E @@ADTSK 


7A21 


@@BANK 


7F39 @(3BKSP 


7C19 @@BREAK 


7F4F 


@@CHNIO 


7979 00CKBRKC 


7F9D @@CKDRV 


7A75 


(a@CKEOF 


7C2E (a@CKTSK 


7A0C @@CLOSE 


7C04 


@@CLS 


7F87 @@CMNDI 


79 B8 @@CMNDR 


79CD 


@@CTL 


77 DD GGDATE 


794F 00DCSTAT 


7AB4 


@@DEBUG 


79F7 @@DECHEX 


7EB9 (90DIRRD 


7E26 


@@DIRWR 


7E3B @@DIV16 


7EA4 @@DIV8 


7E8F 


(a@DODIR 


7A8A GGDSP 


77A1 GGDSPLY 


7841 


@@ ERROR 


79E2 @@EXIT 


79A3 @@FEXT 


7D93 


00FLAGS 


7F23 @@FNAME 


7DA8 @@FSPEC 


7D7E 


GGGATRC 


7E11 GGGATWR 


7E50 (a@GET 


77B5 


@@GTDCB 


7DD2 @(aGTDCT 


7DBD @@GTMOD 


7DE7 


(3(s>HDFMT 


7B5C @@HEX16 


7EF8 @@HEX8 


7EE3 


@@ HEX DEC 


7ECE @@HIGH$ 


7F0D @@INIT 


7BDA 


@@KBD 


7819 @@KEY 


778D @@KEYIiM 


782D 


@@KLTSK 


7A60 @@LOAD 


7D54 @@LOC 


7C43 


@@LOF 


7C58 (a@LOGER 


7878 @@LOGOT 


788D 


@@MSG 


78C4 @@MUL16 


7E7A @@MUL8 


7E65 


@@OPEN 


7BEF 00PARAM 


793A @@PAUSE 


7925 


GH3PEOF 


7C6D @@POSN 


7C82 SPRINT 


78 D9 


00PRT 


77F1 @@PUT 


77C9 (3@RAMDIR 


7A9F 


(a@RDSEC 


7B32 @@RDSSC 


7DFC SPREAD 


7C97 


@(aREMOV 


7BC5 (30RENAM 


7BB0 @@REW 


7CAC 
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The Source 


LIBRARY Files 


DEBUG/VERIFY - 


LS-DOS S e 2 Page 00007 


@(3RMTSK 


7A36 GGRPTSK 


7A4B @(3RREAD 


7CC1 


<a@RSLCT 


7B1D (a@RST0R 


7ADE @(3RUN 


7D69 


(30RWRIT 


7CD6 (3@SEEK 


7B08 @@SEEKSC 


7CEB 


0(3 SKIP 


7D00 @@SLCT 


7AC9 @@STEPI 


7AF3 


@@TIME 


7964 GSVDCTL 


7910 @@VER 


7D15 


00VRSEC 


7B47 @@WE0F 


7D2A @@WHERE 


7805 


@@WRITE 


7D3F @@WRSEC 


7B71 (&WRSSC 


7B86 


(30WRTRK 


7B9B 






2403 is the 


transfer address 






00(900 Total 


errors 
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Command: DEVICE 
Library: SYS6/SYS 
ISAM # : 61H 
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The Source 


LIBRARY Fi 


iles 


DEVICE - LS-DOS 


6.2 Page 00001 




00100 


;LBDEVICE/ASM - 


DEVICE Command 




0000 


00110 




TITLE 


<DEVICE - LS-DOS 6.2> 




00120 


» 








000A 


00130 LF 


EQU 


10 




000D 


00140 CR 


EQU 


13 




0000 


00150 *GET 


SVCMAC: 


3 


;SVC Macro equivalents 




00010 


;SVCMAC/ASM - LS-DOS Version VI 






00020 *LIST 


OFF 








03900 


*LIST 


ON 








00160 


s 








2400 


00170 
00180 
00190 


DEVICE 


ORG 


2400H 




2400 


00200 




@@CKBRKC 


;Check for break 


2400 3E6A 


00001 




LD 


A, 106 




2402 EF 


00002 




RST 


40 




2403 2804 


00210 




JR 


Z, DEVICEA 


.Continue if not 


2405 21FFFF 


00220 




LD 


ML*. 5 ™" X 


; else abort 


2408 C9 


00230 
00240 


» 


RET 






2409 ED73CD27 00250 DEVICEA LD 


(SAVESP+1),SP 


;Save stack pointer 


240D 11B928 


00260 




LD 


DE,PRMTBL$ 


;First check for user pai 


2410 


00270 




(a@PARAM 






2410 3E11 


00003 




LD 


A, 17 




2412 EF 


00004 




RST 


40 




2413 C29527 


00280 




JP 


NZ, IOERR 


;Go if parm error 


2416 


00290 




(a@FLAGS 




;Get flag table pointer 


2416 3E65 


00005 




LD 


A, 101 




2418 EF 


00006 




RST 


40 




2419 CDBD27 


00300 




CALL 


RESKFL 


;Reset Pause and Enter 


241C FB 


00310 




EI 




;Make sure they're on 


241D 21FFFF 


00320 


DPARM 


LD 


HL.-l 


;Check Drive parameter 


2420 7C 


00330 




LD 


A,H 




2421 B5 


00340 




OR 


L 




2422 CA7F25 


00350 




JP 


Z S DEND 


;Go if D=NO 


2425 0E00 


00360 




LD 


C,0 


;Init to drive 


2427 C5 


00370 


DEVI 


PUSH 


BC 


;Save drive # 


2428 AF 


00380 




XOR 


A 


;Reset flag stuff 


2429 327C24 


00390 




LD 


(WPTEST+1) S A 


; location 


242C 


00400 




@@GTDCT 




;Get DCT address 


242C 3E51 


00007 




LD 


A, 81 




242E EF 


00008 




RST 


40 




242F FD7E00 


00410 




LD 


A 9 (IY+0) 


;Is this drive disabled? 


2432 FEC3 


00420 




CP 


0C3H 




2434 C27725 


00430 




JP 


NZ s POPDRV 


;Ignore if it is 


2437 


00440 




G0CKDRV 




;This drive available? 


2437 3E21 


00009 




LD 


A,33 




2439 EF 


00010 




RST 


40 




243A 2022 


00450 




JR 


NZ,DEV2 


;Go if no diskette 


243C IF 


00460 




RRA 




; Shi ft C-flag to bit-7 


243D 327C24 


00470 




LD 


(WPTEST+1) 9 A 


; & save for WP test 


2440 210029 


00480 




LD 


HL 9 BUFFER 


;Pick up the GAT for the 


2443 FD5609 


00490 




LD 


0,(IY+9) 


; pack name 


2446 5D 


00500 




LD 


E 9 L 




2447 


00510 




@(3RDSSC 






2447 3E55 


00011 




LD 


A, 85 




2449 EF 


00012 




RST 


40 




244 A 3E14 


00520 




LD 


A s 20 


;"GAT read error 


244C C29527 


00530 




JP 


NZ, IOERR 




244F 21D829 


00540 




LD 


HL,BUFFER+0D8H 


; Shove bracket ETX 


2452 365D 


00550 




LD 


(HL)/] ! 
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The Source 


LIBRARY Files 


DEVICE - LS-DOS 1 


5.2 Page 00002 


2454 2C 


00560 


IMC 


L 




2455 3620 


00570 


LD 


(HL),' s 




2457 2C 


00580 


INC 


L 




2458 3603 


00590 


LD 


(HL),3 




245A 2ED0 


00600 


LD 


L 9 0D0H 


; Point to start of name 


245C 180B 


00610 
00620 


JR 


DEV2A 






00630 


; Drive 


info for this acti 


\/e drive 




00640 








245E 21D827 


00650 1 


)EV2 LD 


HL 9 NOPACK$ 


; Display pack name 


2461 11D029 


00660 


LD 


DE 9 BUFFER+0D0H 




2464 010C00 


00670 


LD 


BC 9 12 




2467 EDB0 


00680 


LDIR 






2469 3E3A 


00690 


DEV2A LD 


A,':' 


;Output the colon 


246B CD8227 


00700 


CALL 


BYTOUT 




246E CI 


00710 


POP 


BC 


;Get drive # back 


246F C5 


00720 


PUSH 


BC 




2470 79 


00730 


LD 


A 9 C 


;Get drive # converted 


2471 C630 


00740 


ADD 


A,'0' 


; to ASCII & display it 


2473 CD8227 


00750 


CALL 


BYTOUT 




2476 3E20 


00760 


LD 


A ' "" 


; Space out one 


2478 CD8227 


mm 


CALL 


BYTOUT 




247B 3E00 


00(780 WPTEST LD 


A 9 


;P/u CKDRV FDC status 


247D 07 


00790 


RLCA 




;Hardware write protect? 


247E 380A 


00800 


JR 


C S DEV2B 


;Force !S WP" if it is 


2480 FDCB037E 00810 


BIT 


7 9 (IY+3) 


;Test software WP 


2484 3E20 


00820 


LD 


A, 1 • 


; Output ! 8 for read & 


2486 0620 


00830 


LD 


B,' ' 


; write access or 


2488 2804 


00840 


JR 


Z 9 $+6 




248A 3E57 


00850 [ 


DEV2B LD 


A.'W 


; WP for read only 


248C 0650 


00860 


LD 


B,'P' 




248E CD8227 


00870 


CALL 


BYTOUT 




2491 78 


00880 


LD 


A 9 B 


;Xfer the 2nd char 


2492 CD8227 


00890 


CALL 


BYTOUT 


; & display it 


2495 3E20 


00900 


LD 


A,' ' 




2497 CD8227 


00910 


CALL 


BYTOUT 




249A 3E5B 


00920 


LD 


A 9 '[' 


;Left bracket 


249C CD8227 


00930 


CALL 


BYTOUT 




249F 21D029 


00940 


LD 


HL 9 BUFFER+0D0H 


; Write the pack name 


24A2 CD7227 


00950 
00960 , 


CALL 


LINOUT 






00970 , 


Determine if 5" or 8" 






00980 , 








24A5 FDCB036E 00990 


BIT 


5 9 (IY+3) 


Jest 5 '78" drive 


24A9 3E35 


01000 


LD 


A 9 '5« 


Jnit to 5 


24AB 2802 


01010 


JR 


Z 9 $+4 


; Bypass if not 8 


24AD 3E38 


01020 


LD 


A 9 ! 8' 


else init to 8 


24AF CD8227 


01030 


CALL 


BYTOUT 




24B2 FDCB035E 01040 


BIT 


3 9 (IY+3) 


Test rigid/floppy 


24B6 216028 


01050 


LD 


HL 9 FL0PY$ 
Z 9 $+5 


,Init to floppy 


24B9 2803 


01060 


JR 


Bypass if that kind 


24BB 216B28 


01070 


LD 


HL 9 RIGID$ 


else is hard 


24BE CD7227 


01080 


CALL 


LINOUT 




24C1 FD7E04 


01090 


LD 


A 9 (IY+4) ; 


Output drive select addr 


24C4 E60F 


01100 


AND 


0FH ; 


in ASCII 


24C6 C690 


01110 


ADD 


A,90H 




24C8 27 


01120 


DAA 






24C9 CE40 


01130 


ADC 


A 9 40H 




24CB 27 


01140 


DAA 






24CC CD8227 


01150 


CALL 


BYTOUT 




24CF FD6E06 


01160 [ 


03 LD 


L.CIY+6) j 


P/u highest cylinder 
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The Source 


LIBRARY Fi 


les 


DEVICE - LS-DOS ( 


5.2 Page 00003 


24 D2 2600 


01170 


LD 


H,0 




24 D4 23 


01180 


INC 


HL 


;Adjust for zero offset 


24D5 FDCB035E 01190 


BIT 


3 s (IY+3) 


;Hard drive? 


24 D9 2807 


01200 


JR 


Z.DEV4 


;Bypass if soft 


24DB FDCB046E 01210 


BIT 


5,(IY+4) 


;2-sided hard drives 


24DF 2801 


01220 


JR 


Z,DEV4 


; are 2*cyl 


24E1 29 


01230 


ADD 


HL 9 HL 


; & multiply by 2 


24E2 117D28 


01240 DEV4 


LD 


DE S COMMAS 


;Convert # of cyls to 


24E5 CDA726 


01250 


CALL 


CVRTDEC 


; decimal & stuff in msg 


24E8 217628 


01260 


LD 


HL,CYLS$ 


;Display cyls=xxx 


24EB CD7227 


01270 


CALL 


LINOUT 




24EE FDCB035E 01280 


BIT 


3 s (IY+3) 


; Bypass if soft drive 


24F2 2811 


01290 


JR 


Z, FLOPPY 




24F4 FDCB0356 


01300 


BIT 


2,(IY+3) 


;Test fixed/removable 


24F8 218328 


01310 


LD 


HL,REMOV$ 


;Init to removable 


24FB 2803 


01320 


JR 


Z,$+5 


; Bypass if that way 


24FD 218D28 


01330 


LD 


HL,FIXED$ 


; else init fixed 


2500 CD7227 


01340 


CALL 


LINOUT 




2503 186F 


01350 
01360 ; 


JR 


ENDLINE 


;Bypass DEN, STEP, DLY 




01370 ; 


Next 


section deals only \ 


tfith floppies 




01380 ; 








2505 FDCB0376 


01390 FLOPPY 


BIT 


6,(IY+3) 


;Test SDEN/DDEN 


2509 3E53 


01400 


LD 


A,'S' 


; Init to sden 


250B 2802 


01410 


JR 


Z 9 $+4 


;Bypass if sden 


250D 3E44 


01420 


LD 


A,'D' 


; else init to dden 


250F CD8227 


01430 


CALL 


BYTOUT 




2512 219328 


01440 


LD 


HL,DEN$ 


;Now display "den" 


2515 CD7227 


01450 


CALL 


LINOUT 




2518 FDCB046E 01460 


BIT 


5,(IY+4) 


;Test # of sides 


251C 3E31 


01470 


LD 


A,'l' 


; Init to 1 


251E 2801 


01480 


JR 


Z,$+3 


;Bypass if single sided 


2520 3C 


01490 


INC 


A 


; else bump to 2 


2521 CD8227 


01500 


CALL 


BYTOUT 




2524 219F28 


01510 


LD 


HL 9 STEP$ 


;Display "step=" 


2527 CD7227 


01520 


CALL 


LINOUT 




252A FD7E03 


01530 


LD 


A 9 (IY+3) 


;P/u step rate & 8/5 


252D E623 


01540 


AND 


23H 


;Convert step rate to an 


252F 47 


01550 


LD 


B S A 


; index into the table 


2530 0F 


01560 


RRCA 






2531 0F 


01570 


RRCA 




;5/8 bit to bit 2 


2532 0F 


01580 


RRCA 






2533 B0 


01590 


OR 


B 


; Merge step rate 


2534 07 


01600 


RLCA 






2535 E60E 


01610 


AND 


0EH 


;Mask off garbage 


2537 215028 


01620 


LD 


HL,STPRAT$ 


;6et table base 


253A 85 


01630 


ADD 


A 9 L 


;Add table lo order 


253B 6F 


01640 


LD 


L 9 A 


;Set lo-order 


253C 8C 


01650 


ADC 


A 9 H 




253D 95 


01660 


SUB 


L 




253E 67 


01670 


LD 


H 9 A 




253F 7E 


01680 


LD 


A 9 (HL) 


;P/u 1st step char 


2540 23 


01690 


INC 


HL 


;Bump to second 


2541 CD8227 


01700 


CALL 


BYTOUT 


;Display the first 


2544 7E 


01710 


LD 


A 9 (HL) 


;P/u the second 


2545 CD8227 


01720 


CALL 


BYTOUT 


;Display the second 


2548 21A728 


01730 


LD 


HL,MS$ 


;Display "ms," 


254B CD7227 


01740 


CALL 


LINOUT 




254E FDCB036E 01750 


BIT 


5 s (IY+3) 


;Bypass DELAY if 8" 


2552 2020 


01760 


JR 


NZ,ENDLINE 


;8" drives always running 


2554 21AA28 


01770 


LD 


HL 9 DLY$ 


;Display "dly=" 
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The Source 


LIBRARY Fi 


les 


DEVICE - LS-DOS 


6.2 Page 00004 


2557 CD7227 


01780 




CALL 


LINOUT 




255A FDCB0356 


; 01790 




BIT 


2,(IY+3) 


;Test off/on 


255E 3E20 


01800 




LD 


A,' ' 


;1 sec if DELAY=ON 


2560 0631 


01810 




LD 


B.'l' 




2562 2804 


01820 




JR 


Z,$+6 




2564 3E2E 


01830 




LD 


A,*.' 


;0.5 sec if DELAY=OFF 


2566 0635 


01840 




LD 


B,«5' 




2568 CD8227 


01850 




CALL 


BYTOUT 




256B 78 


01860 




LD 


A,B 




256C CD8227 


01870 




CALL 


BYTOUT 




256F 3E73 


01880 




LD 


A.'s' 


; Indicate seconds 


2571 CD8227 


01890 




CALL 


BYTOUT 




2574 CDA027 


01900 


ENDLINE 


CALL 


CKPAWS 


;Check pause of display 


2577 CI 


01910 


POPDRV 


POP 


BC 


;Recover drive # 


2578 0C 


01920 




INC 


C 


;Bump to next drive 


2579 79 


01930 




LD 


A,C 




257A FE08 


01940 




CP 


8 


;Loop thru all 8 


257C C22724 


01950 




JP 


NZ,DEV1 




257F 


01960 
01970 


DEND 
» 


EQU 


$ 






01980 


» 


Byte 


I/O devices 






01990 


s 








257F 210000 


02000 


BPARM 


LD 


HL,$-$ 


;Check B parameter 


2582 7C 


02010 




LD 


A S H 




2583 B5 


02020 




OR 


L 




2584 CAC826 


02030 
02040 


» 


JP 


Z,BEND 


;Go if B=NO (default) 




02050 


s 


Displ 


ay the device vectoring 




02060 


s 








2587 114B49 


02070 




LD 


DE 'IK' 


; Start of device tables 


258A 


02080 




(a@GTDCB 




258A 3E52 


00013 




LD 


A, 82 




258C EF 


00014 




RST 


40 




258D C29527 


02090 




JP 


NZ s IOERR 




2590 7E 


02100 LOGDCB 


LD 


A S (HL) 


;Bypass this device if 


2591 B7 


02110 




OR 


A 


; table shows spare 


2592 CA4A26 


02120 




JP 


Z,DVRB2 




2595 11002A 


02130 




LD 


DE S STRBUF 


;Pt to string buffer 


2598 E5 


02140 




PUSH 


HL 


;Save origin ptr 


2599 CDB826 


02150 




CALL 


MOV NAM 


;Move dev name -> strbuf 


259C El 


02160 




POP 


HL 


;Rcvr org of table 


259D E5 


02170 




PUSH 


HL 




259E CB5E 


02180 LOGDCB1 


BIT 


3,(HL) 


;If NIL, don't show 


25A0 201C 


02190 




JR 


NZ,DVRADDR 


; any routes 


25A2 CB66 


02200 




BIT 


4,(HL) 


;Is device routed? 


25A4 2818 


02210 
02220 


5 


JR 


Z,DVRADDR 


;Bypass if not 




02230 


» 


This 


device is routed 






02240 


9 








25A6 2C 


02250 LOGRTE 


INC 


L 


;Pt to vector & get it 


25A7 7E 


02260 




LD 


A S (HL) 




25A8 2C 


02270 




INC 


L 




25A9 66 


02280 




LD 


H,(HL) 




25AA 6F 


02290 




LD 


L,A 




25AB CB7E 


02300 




BIT 


7 S (HL) 


;Is the route to a file? 


25AD C25426 


02310 




JP 


NZ,RTEFCB 


;Jump if a file 


25B0 E5 


02320 




PUSH 


HL 


;Hang onto this vector 


25B1 CD8226 


02330 




CALL 


DCBDIR 


;Get device direction 


25B4 CDB826 


02340 




CALL 


MOV NAM 


;Move dev name -> strbuf 


25B7 El 


02350 




POP 


HL 


;Rcvr org of routee 


25B8 CB66 


02360 




BIT 


4,(HL) 


;Is routee also routed? 
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LIBRARY Files 



DEVICE - LS-DOS 6,2 



Page 00005 



25BA 20EA 
25BC 187F 



25BE CD8226 
25C1 CB5E 
25C3 C27826 



25C6 CB6E 
25C8 2824 
25CA 2C 
25CB 7E 
25CC 2C 
25CD 66 
25CE 6F 



25CF E5 
25D0 E5 
25D1 CDB826 
25D4 3E7C 
25 D6 12 
25D7 13 
25D8 FDE1 
25 DA FD6E04 
25DD FD6605 
25E0 CDB826 
25E3 El 
25E4 EB 
25E5 3620 
25E7 23 
25E8 3626 
25 EA 23 
25EB EB 
25EC 18B0 



25 EE CB76 
25F0 2835 
25F2 E5 
25F3 3E5B 
25F5 12 
25F6 13 
25F7 D5 
25F8 54 
25F9 5D 
25FA 2C 
25FB 7E 
25FC 2C 
25FD 66 
25FE 6F 
25FF 010400 

2602 09 

2603 4'E 

2604 0C 

2605 09 



02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 

02840 

02850 

02860 

02870 

02880 

02890 

02900 

02910 

02920 

02930 

02940 

02950 

02960 

02970 



JR NZ 9 L0GRTE ;Loop de loop if yes 

JR DVRB1 ; else go display the line 

Device has no routes - show its driver address 



DVRADDR CALL DCBDIR 
BIT 3,(HL) 

JP NZ,MOVNIL 



;6et device direction 
;Is this a NIL device 
;No address if NIL 



If linked, show device name of link 



BIT 


5 9 (HL) 


JR 


Z 9 DVRA0 


INC 


L 


LD 


A 9 (HL) 


IMC 


L 


LD 


H 9 (HL) 


LD 


L 9 A 


; Now move in the 


PUSH 


HL 


PUSH 


HL 


CALL 


MOV NAM 


LD 


A.'l' 


LD 


(DE),A 


INC 


DE 


POP 


IY 


LD 


L,(IY+4) 


LD 


H 9 (IY+5) 


CALL 


MOV NAM 


POP 


HL 


EX 


DE 9 HL 


LD 


(HL), 1 ' 


INC 


HL 


LD 


(HL),'*' 


INC 


HL 


EX 


DE 9 HL 


JR 


L06DCB1 


; If filtered, fin 


DVRA0 BIT 


6 9 (HL) 


JR 


Z s DVRB0 


PUSH 


HL 


LD 


A,'[' 


LD 


(DEM 


INC 


DE 


PUSH 


DE 


LD 


D 9 H 


LD 


E 5 L 


INC 


L 


LD 


A S (HL) 


INC 


L 


LD 


H 9 (HL) 


LD 


L,A 


LD 


BC 9 4 


ADD 


HL,BC 


LD 


C 9 (HL) 


INC 


C 


ADD 


HL S BC 



;Any link DCB? 
;6o if none 

;Get address of link DCB 



;Move name of LINK DCB 

;6et separator for display and 

; put in the buffer 

;Pop address to IY 
;P/u linked DCB address 

;Move name of linked DCB 
;Recover address 
; Switch tempy $ HL to 
; display buffer 

;Show the link 

;Back to normal 
;Go ck this one 

ilter DCB 

If filtered, recover the 
original data by 
swapping back the 



1st three bytes with 
the FILTER DCB 



HL now points to the 
entry point. Get its 
DCB address by peeking 
past the name field 
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The Source 


LIBRARY Fi 


iles 


DEVICE - LS-I 


DOS 6.2 Page 00006 


2606 7E 


02980 




LD 


A,(HL) 


;Get low-order 


2607 23 


02990 




INC 


HL 




2608 66 


03000 




LD 


H,(HL) 


;Get hi -order 


2609 6F 


03010 




LD 


L,A 




260A E5 


03020 




PUSH 


HL 


;If DCB is itself, then 


260B ED52 


03030 




SBC 


HL 9 DE 


; bring in the "inactive 


260D El 


03040 




POP 


HL 




260E Dl 


03050 




POP 


DE 


;Recover string buf ptr 


260F 200A 


03060 




JR 


NZ,DVRA1 




2611 21E327 


03070 




LD 


HL,INACT$ 




2614 010800 


03080 




LD 


BC,8 




2617 EDB0 


03090 




LDIR 






2619 1803 


03100 
03110 


> 


JR 


DVRA2 




261B CDB826 


03120 


DVRA1 


CALL 


MOV NAM 


;Move name of filter DCB 


261E 3E5D 


03130 


DVRA2 


LD 


A,']' 


;Put dsp chars into buffe 


2620 12 


03140 




LD 


(DE),A 




2621 13 


03150 




INC 


DE 




2622 3E20 


03160 




LD 


A,' ' 




2624 12 


03170 




LD 


(DEM 




2625 13 


03180 




INC 


DE 




2626 El 


03190 
03200 


> 


POP 


HL 


; Recover orig DCB ptr 




03210 


» 


Routine 


i to construct 


address "X'xxxx"' 




03220 


s 








2627 3E58 


03230 


DVRB0 


LD 


A,'X' 


;Show address a« 


2629 12 


03240 




LD 


(DEM 


; X'dddd' 


262A 13 


03250 




INC 


DE 




262B 3E27 


03260 




LD 


A 9 27H 


;Single quote 


262D 12 


03270 




LD 


(DEM 




262E 13 


03280 




INC 


DE 




262F 2C 


03290 




INC 


L 




2630 7E 


03300 




LD 


A,(HL) 


;P/u lo-order vector 


2631 2C 


03310 




INC 


L 




2632 66 


03320 




LD 


H 9 (HL) 


;P/u hi -order vector 


2633 6F 


03330 




LD 


L 9 A 


;Put lo in place 


2634 EB 


03340 




EX 


DE,HL 


; Vector value to DE 


2635 


03350 




@(3HEX16 




;Convert to hex digits 


2635 3E63 


00015 




LD 


A, 99 




2637 EF 


00016 




RST 


40 




2638 EB 


03360 




EX 


DE,HL 


; Restore strbuf ptr to DE 


2639 3E27 


03370 




LD 


A 9 27H 


;Closing ' 


263B 12 


03380 




LD 


(DEM 




263C 13 


03390 




INC 


DE 




263D 3E0D 


03400 


DVRB1 


LD 


A,CR 




263F 12 


03410 




LD 


(DEM 


; Stuff end-of-line 


2640 21002A 


03420 




LD 


HL 9 STRBUF 


;Display the info 


2643 CD7227 


03430 




CALL 


LINOUT 




2646 CDA527 


03440 




l/ML L. 


CKPAWS0 


;Ck with no CR 


2649 El 


03450 




POP 


HL 


;Rcvr table org 


264A 7D 


03460 


DVRB2 


LD 


A 9 L 


;Advance to next table 


264B C608 


03470 TABLEN 


ADD 


A, 8 




264D 6F 


03480 




LD 


L 9 A 




264E DAC826 


03490 




JP 


C 9 SPARM 


;Exit if finished 


2651 C39025 


03500 
03510 


9 


JP 


LOGDCB 


; else loop 




03520 


3 


Device 


routed to a f' 


He - grab its filespec 




03530 


» 








2654 E5 


03540 RTEFCB 


PUSH 


HL 


;Save control block org 


2655 21B428 


03550 




LD 


HL 9 IO$ 


;Show 2-way device 


2658 010500 


03560 




LD 


BC,5 
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The Source 


LIBRARY Fi 


les 


DEVICE - LS-DOS 6.2 Page 00007 


265B EDB0 


03570 


LDIR 






265D El 


03580 


POP 


HL 




265E 7D 


03590 


LD 


A,L 


;Pt to file route data 


265F C606 


03600 


ADD 


A, 6 


; by indexing into FCB 


2661 6F 


03610 


LD 


L,A 




2662 8C 


03620 


ADC 


A,H 




2663 95 


03630 


SUB 


L 




2664 67 


03640 


LD 


H,A 


;HL = FCB+6 


2665 4E 


03650 


LD 


C,(HL) 


;P/u drive # 


2666 23 


03660 


INC 


HL 




2667 46 


03670 


LD 


B,(HL) 


;P/u DEC 


2668 D5 


03680 


PUSH 


DE 




2669 


03690 


(a@FNAME 




;Fetch fi lename 


2669 3E50 


00017 


LD 


A, 80 




266B EF 


00018 


RST 


40 




266C Dl 


03700 


POP 


DE 




266D C29527 


03710 


JP 


NZ,IOERR 




2670 1A 


03720 RTEF1 


LD 


A,(DE) 


;Find end of filename 


2671 FE03 


03730 


CP 


3 




2673 28C8 


03740 


JR 


Z,DVRBl 


;Exit on ETX to put CR 


2675 13 


03750 


INC 


DE 




2676 18F8 


03760 
03770 ; 


JR 


RTEF1 






03780 ; 


Move in 


'NIL' as driver address 




03790 ; 








2678 21B128 


03800 MOV NIL 


LD 


HL,NIL$ 


;Move in NIL 


267B 010300 


03810 


LD 


BC S 3 




267E EDB0 


03820 


LDIR 






2680 18BB 


03830 
03840 ; 


JR 


DVRB1 






03850 ; 


Routine 


to denote i/o 


direction 




03860 ; 








2682 3E20 


03870 DCBDIR 


LD 


A,' ' 


;lst need a space 


2684 12 


03880 


LD 


(DE) S A 




2685 13 


03890 


INC 


DE 




2686 CB46 


03900 


BIT 


0,(HL) 


;Test if input device 


2688 2802 


03910 


JR 


Z,DCBD1 


;Put another space if not 


268A 3E3C 


03920 


LD 


A,'<' 


;Else show input capable 


268C 12 


03930 DCBD1 


LD 


(DE),A 




268 D 13 


03940 


INC 


DE 




268E 3E3D 


03950 


LD 


A,'-' 


;Always need this 


2690 CB76 


03960 


BIT 


6,(HL) 


;If a filter, then 


2692 2802 


03970 


JR 


Z,$+4 


; reset to '#' 


2694 3E23 


03980 


LD 


A,'#' 




2696 12 


03990 


LD 


(DE),A 




2697 13 


04000 


INC 


DE 




2698 3E20 


04010 


LD 


A,' ' 


;Init a space 


269A CB4E 


04020 


BIT 


1,(HL) 


;Output device? 


26 9C 2802 


04030 


JR 


Z,DCBD2 


;Use space if not 


269E 3E3E 


04040 


LD 


A,'>' 


;Else show output capable 


26A0 12 


04050 DCBD2 


LD 


(DE) S A 




26A1 13 


04060 


INC 


DE 




26A2 3E20 


04070 


LD 


A,' ' 


;Close with a space 


26A4 12 


04080 


LD 


(DE) S A 




26A5 13 


04090 


INC 


DE 




26A6 C9 


04100 
04110 ; 


RET 








04120 ; 


Convert 


HL to 3-place 


decimal & stuff into (DE) 




04130 ; 








26A7 D5 


04140 CVRTDEC 


PUSH 


DE 


;Save place 


26A8 110029 


04150 


LD 


DE, BUFFER 
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LIBRARY Fi 


les 


DEVICE - LS-DOS 


6.2 Page 00008 


26AB 


04160 




(a@HEXDEC 


;Convert to decimal ASCII 


26AB 3E61 


00019 




LD 


A, 97 




26 AD EF 


00020 




RST 


40 




26AE 210229 


04170 




LD 


HL,BUFFER+2 


;Skip leading spaces 


26B1 Dl 


04180 




POP 


DE 




26B2 010300 


04190 




LD 


BC,3 




26B5 EDB0 


04200 




LDIR 






26B7 C9 


04210 
04220 




RET 








04230 




Move 


device name into s 


tring buffer 




04240 










26B8 7D 


04250 MOV NAM 


LD 


A,L 


;Pt to name field 


26B9 C606 


04260 




ADD 


A, 6 




26BB 6F 


04270 




LD 


L,A 




26BC 3E2A 


04280 




LD 


A,'*' 


; Stuff * in string buf 


26 BE 12 


04290 




LD 


(DE),A 




26 BF 13 


04300 




INC 


DE 


;Bump ptr to next pos 


26C0 7E 


04310 




LD 


A,(HL) 


;P/u 1st char of name 


26C1 12 


04320 




LD 


(DE),A 


; & stuff it 


26C2 13 


04330 




INC 


DE 


;Do the same for char 2 


26C3 2C 


04340 




INC 


L 




26C4 7E 


04350 




LD 


A,(HL) 




26C5 12 


04360 




LD 


(DE),A 




26C6 13 


04370 




INC 


DE 




26C7 C9 


04380 




RET 






26C8 


04390 
04400 


BEND 
» 


EQU 


$ 






04410 


» 


Show 


high memory device 


drivers 




04420 


» 








26C8 21FFFF 


04430 


SPARM 


LD 


HL,-1 


;Check S parameter 


26CB 7C 


04440 




LD 


A,H 




26CC B5 


04450 




OR 


L 




26CD CAD327 


04460 




JP 


Z,EXIT 


;Exit if through 


26D0 21EB27 


04470 




LD 


HL,DVCHDR$ 


;Display header 


26D3 CD7227 


04480 




CALL 


LINOUT 




26 D6 


04490 




00FLAGS 


;Get flag table pointer 


26 D6 3E65 


00021 




LD 


A, 101 




26 D8 EF 


00022 




RST 


40 




26D9 FD7E03 


04500 




LD 


A.UY+'D'-'A') 


;P/u device flag 


26DC B7 


04510 




OR 


A 


;Exit if none in use 


26DD F5 


04520 




PUSH 


AF 


;Save flag 


26 DE 282D 


04530 




JR 


Z,SHOWFS 


;Go if nothing on 


26E0 21F527 


04540 




LD 


HL S DVCS$ 


;Pt to word string 


26 E3 01FF08 


04550 




LD 


BC,8<8!0FFH 


;Init for 8 flag bits 


26E6 Fl 


04560 


DOD1 


POP 


AF 


;Rcvr link 


26E7 0F 


04570 




RRCA 




;Test if active 


26E8 F5 


04580 




PUSH 


AF 




26 E9 301 B 


04590 




JR 


NC.D0D3 


;Bypass if inactive 


26 EB 0C 


04600 




INC 


C 


;Do we do the comma? 


26EC 3E2C 


04610 




LD 


A,V 


;End of word, do comma 


26EE C48227 


04620 




CALL 


NZ,BYTOUT 




26F1 3E20 


04630 




LD 


A,' ' 


; Start with a space 


26F3 CD8227 


04640 




CALL 


BYTOUT 




26F6 7E 


04650 


DOD2 


LD 


A,(HL) 


; Display word until carry 


26F7 23 


04660 




INC 


HL 




26F8 F5 


04670 




PUSH 


AF 




26F9 E67F 


04680 




AND 


7FH 


;Strip possible carry 


26FB CD8227 


04690 




CALL 


BYTOUT 


;Display the char 


26FE Fl 


04700 




POP 


AF 




26 FF 07 


04710 




RLCA 




;Was carry set 


2700 30F4 


04720 




JR 


NC.D0D2 


;Loop if not 
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The Source 


LIBRARY Fi 


les 


DEVICE - LS-DOS 


6.2 Page 00009 


2702 10E2 


04730 




DJNZ 


DOD1 


;Loop for 8 bits 


2704 1807 


04740 




JR 


SHOWFS 


;Exit the loop 


2706 7E 


04750 


DOD3 


LD 


A,(HL) 


;Loop & ignore word 


2707 23 


04760 




INC 


HL 




2708 07 


04770 




RLCA 




;Carry set on last char 


2709 30FB 


04780 




JR 


NC.DOD3 




270 B 10 D9 


04790 




DJNZ 


DOD1 


;Loop for 8 bits 


270D FDCB125E 04800 SHOWFS 


BIT 


S.UY+'S'-'A') 


;Show FAST or SLOW 


2711 2005 


04810 




JR 


NZ,FAST 




2713 212928 


04820 




LD 


HL, SLOWS 


; Point to slow$ 


2716 1803 


04830 




JR 


SHOWIT 




2718 212228 


04840 FAST 


LD 


HL, FASTS 


;Point to fast$ 


271B FD7E03 


04850 


SHOWIT 


LD 


A.dY+'D'-'A') 


;Check if others shown 


271E B7 


04860 




OR 


A 




27 IF 2001 


04870 




JR 


NZ, COMAOK 




2721 23 


04880 




INC 


HL 


; Bypass comma 


2722 CD7227 


04890 COMAOK 


CALL 


LINOUT 






04900 


s 










04910 


s 


Display system modules 


resident 




04920 


s 








2725 Fl 


04930 


DORES 


POP 


AF 


;Stack integrity 


2726 CDA027 


04940 


NOTON 


CALL 


CKPAWS 




2729 113028 


04950 




LD 


DE,RES$ 


;Check if driver resident 


272C 


04960 




00GTMOD 


i 


; in memory 


272C 3E53 


00023 




LD 


A, 83 




272E EF 


00024 




RST 


40 




272F C2D327 


04970 




JP 


NZ,EXIT 


;Done if nothing res'd 


2732 210500 


04980 




LD 


HL, 5 




2735 19 


04990 




ADD 


HL,DE 


;Point to hi -order table 


2736 E5 


05000 




PUSH 


HL 




2737 213728 


05010 




LD 


HL,SYSRES$ 


; Display header 


273A CD7227 


05020 




CALL 


LINOUT 




273D El 


05030 




POP 


HL 




273E 01FF10 


05040 




LD 


BC,16<8!0FFH 


; I m" t for 16 modules 


2741 7E 


05050 


DORES1 


LD 


A,(HL) 


;P/u a high-order vector 


2742 23 


05060 




INC 


HL 


;Bump pointer to next 


2743 23 


05070 




INC 


HL 




2744 B7 


05080 




OR 


A 


;Is this module resident? 


2745 2824 


05090 




JR 


Z,DORES3 


;Go if not 


2747 0C 


05100 




INC 


C 




2748 3E2C 


05110 




LD 


A ' ' 


;Need comma if 2nd 


274A C48227 


05120 




CALL 


NZ,BYTOUT 




274D 3E20 


05130 




LD 


A,' ' 


; Start with a space 


274F CD8227 


05140 




CALL 


BYTOUT 




2752 3E10 


05150 




LD 


A, 16 




2754 90 


05160 




SUB 


B 


Calculate module # 


2755 16FF 


05170 




LD 


D.-l 




2757 14 


05180 


DORES2 


INC 


D 




2758 D60A 


05190 




SUB 


10 




275A 30FB 


05200 




JR 


NC.D0RES2 




275C F5 


05210 




PUSH 


AF 


; Save units place 


275D 7A 


05220 




LD 


A,D 


;Test tens place 


275E C630 


05230 




ADD 


A,'0« 


; for non-zero 


2760 FE30 


05240 




CP 


•0' 




2762 C48227 


05250 




CALL 


NZ, BYTOUT 


;0utput if non-zero 


2765 Fl 


05260 




POP 


AF 


;Get units 


2766 C63A 


05270 




ADD 


A s '0'+10 


; Adjust to ASCII 


2768 CD8227 


05280 




CALL 


BYTOUT 




276B 10D4 


05290 


DORES3 


DJNZ 


DORES1 




276 D CDA027 


05300 




CALL 


CKPAWS 


;One last ck for CR 


2770 1861 


05310 




JR 


EXIT 
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2772 



2772 3E0A 

2774 EF 

2775 201E 
2777 3A8A27 
277A B7 
277B C8 
277C 



277C 3E0E 
277 E EF 
277F 2014 
2781 C9 



LIBRARY Files DEVICE - LS-DOS 6.2 
Output display routines 



Page 00010 



2782 
2783 
2784 
2784 
2786 
2787 
2789 
278C 
278D 
278E 
2790 
2790 
2792 
2793 
2794 
2795 
2796 
2798 
279A 
279B 
279B 
279D 
279E 



27A0 
27A2 
27A5 
27A5 
27A7 
27A8 
27 AB 
27AD 
27AF 
27B1 
27B2 
27B2 
27B4 



C5 
4F 

3E02 

EF 

200A 

110000 

7B 

B2 

2803 

3E06 

EF 

CI 

C8 

6F 

2600 

F6C0 

4F 

3E1A 

EF 

182C 



3E0D 
CD8227 

3E65 

EF 

FD7E0A 

CB47 

2017 

CB4F 

C8 

3E01 
EF 



05320 ; 
05330 ; 
05340 ; 
05350 LINOUT @@DSPLY 

IFEQ 00H S 1 



00026 
00027 



00029 

05360 

05370 

05380 

05390 

05400 

00030 

00031 

00032 

00033 

00034 

05410 

05420 

05430 ; 

05440 BYTOUT PUSH 



LD 

ENDIF 

LD 

RST 

JR 

LD 

OR 

RET 

(SPRINT 

IFEQ 

LD 

ENDIF 

LD 

RST 

JR 

RET 



HL S 

A 9 10 

40 

NZ 9 IOERR 

A S (PPARM+1 

A 

Z 

00M 
HL 9 

A s 14 

40 

NZ 9 IOERR 



;Ck P-parm 

;Also print if needed 



05450 

05460 

00035 

00036 

05470 

05480 PPARM 

05490 

05500 

05510 

05520 

00037 

00038 

05530 POPBC 

05540 

05550 IOERR 

05560 

05570 

05580 

05590 

00039 



BC 
C 9 A 



LD 

@@DSP 

LD 

RST 

JR 

LD 

LD 

OR 

JR 

@@PRT 

LD 

RST 

POP 

RET 

LD 

LD 

OR 

LD 

(TERROR 

LD A s 26 

RST 40 

JR SAVESP 



A 9 2 
40 

NZ 9 POPBC 
DE s 

r\ 9 L 

D 

Z 9 POPBC 

A 9 6 
40 
BC 
Z 

L. j M 

H 9 

0C0H 

C 9 A 



;Display it 
;P/u P~parm 
;Print chr if needed 

;Save error code 
.Abbrev & return 



05600 

05610 ; 

05620 ; 

05630 ; 

05640 CKPAWS LD A 9 CR 

05650 CALL BYTOUT 

05660 CKPAWS0 @@FLAGS 

00041 LD A, 101 

00042 RST 40 
05670 LD 
05680 BIT 
05690 JR 
05700 BIT 
05710 RET 
05720 CKPAW1 @@KEY 

LD 
RST 



Routine to ck on pause or break 

;End line first 

;6et flag table pointer 



A.dY+'K'-'A') ;P/u KFLAG 

9 A ;Check for break 

NZ 9 BREAK ; if so exit 

1,A ;Check for pause 

Z ;Ret if not 

;Wait for key in 

40 
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LIBRARY F 


iles 


DEVICE - LS-DOS 


6.2 Page 00011 


27B5 FE60 




05730 


CP 


60H 




27B7 28F9 




05740 


JR 


Z.CKPAW1 


;Loop on pause 


27B9 FE80 




05750 


CP 


80 H 


;Abort on BREAK 


27BB 2809 




05760 


JR 


Z, BREAK 




27BD FD7E0/> 


\ 


05770 RESKFL 


LD 


A.CIY+'K'-'A 1 ) 


;Reset Pause & Enter bits 


27C0 E6F9 




05780 


AND 


0F9H 


» 


27C2 FD770/ 


\ 


05790 


LD 


(IY+'K'-'A'M 




27C5 C9 




05800 
05810 ; 


RET 










05820 ; 


BREAK 


handler routine 








05830 ; 








27C6 CDBD27 


t 


05840 BREAK 


CALL 


RESKFL 




27C9 21FFFF 




05850 


LD 


HL.,-1 




27CC 31000(2 


\ 


05860 SAVESP 


LD 


SP s $-$ 


;Restore the stack 


27 CF 




05870 


GXaCKBRKC 


;Clear any <BREAK> 


27CF 3E6A 




00045 


LD 


A, 106 




27D1 EF 




00046 


RST 


40 




27D2 C9 




05880 


RET 




; and RETurn 


27D3 21000G 


1 


05890 EXIT 


LD 


HL,0 


; Ini t to no error 


27D6 18F4 




05900 
05910 ; 


JR 


SAVESP 


;P/u stack & return 






05920 ; 


String 


area 








05930 ; 








27D8 4E 




05940 NOPACK$ DB 


'No Disk] ',3 




6F 20 20 44 69 73 6B 


5D 






20 03 












27 E3 49 




05950 INACT$ 


DB 


1 Inactive' 




6E 61 


63 


74 69 76 65 








27 EB 0A 




05960 DVCHDR$ DB 


LF 9 'Options: ' s 3 




4F 70 


74 


69 6F 6E 73 


3A 






03 












27F5 53 




05970 DVCS$ 


DB 


*Spoole' s 'r , !80r 


i,'TypVe'!80H 


70 6F 


6F 


6C 65 F2 54 


79 






70 E5 












2800 56 




05980 


DB 


'Verif ,'y*!80H s 


, Smoot' s 'h'!80H 


65 72 


69 


66 F9 53 6D 


6F 






6F 74 


E8 










280C 4D 




05990 


DB 


'Memdis\'k'!80l- 


l s 'Form\'s'!80H 


65 6D 


64 


69 73 EB 46 


6F 






72 6D 


F3 










2818 4B 




06000 


DB 


'KS' 9 'M , !80H s 'Graphi' 9 'c'!80H 


53 CD 
E3 
2822 2C 


47 


72 61 70 68 69 








06010 FAST$ 


DB 


', Fast',3 




20 46 


61 


73 74 03 








2829 2C 




06020 SLOWS 


DB 


', Slow' ,3 




20 53 


6C 


6F 77 03 








2830 53 




06030 RES$ 


DB 


'SYSRES' 9 3 




59 53 


52 


45 53 03 








2837 53 




06040 SYSRESS DB 


'System modules 


resident: ' ,3 


79 73 


74 


65 6D 20 6D 6F 






64 75 


6C 


65 73 20 72 


65 






73 69 


64 


65 6E 74 3A 03 






2850 20 




06050 STPRATS DB 


' 6122030 3 61015' 


36 31 


32 


32 30 33 30 20 






33 20 


36 


31 30 31 35 








2860 22 




06060 FLOPY$ 


DB 


'" Floppy #',3 




20 46 


6C 


6F 70 70 79 


20 






23 03 












286B 22 




06070 RIGID$ 


DB 


'" Rigid #\3 




20 52 69 67 69 64 20 20 
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LIBRARY Fi 


les 


DEVICE - LS-DOS 6 


.2 


23 03 














2876 2C 




06080 CYLS$ 


DB 


', Cyls=' 




20 43 


79 


6C 73 


3D 








287D 20 




06090 COMMAS 


DB 


' , ',3 




20 20 


2C 20 03 










2883 52 




06100 REMOV$ 


DB 


'Removable' ,3 




65 6D 


6F 


76 61 


62 6C 65 






03 














288 D 46 




06110 FIXED$ 


DB 


'Fixed' ,3 




69 78 


65 


64 03 










2893 64 




06120 


DEN$ 


DB 


'den, Sides=' ,3 




65 6E 2C 20 53 


69 64 65 






73 3D 03 












289F 2C 




06130 STEPS 


DB 


', Step=' s 3 




20 53 


74 


65 70 


3D 03 








28A7 6D 




06140 MS$ 


DB 


' ms ' , 3 




73 03 














28AA 2C 




06150 


DLY$ 


DB 


\ Dly=',3 




20 44 


6C 


79 3D 03 








28B1 4E 




06160 


NIL$ 


DB 


'Nil' 




69 6C 














28B4 20 




06170 


10$ 


DB 


' <=> * 




3C 3D 


3E 20 










28B9 




06180 PRMTBL$ EQU 


$ 




0080 




06190 VAL 


EQU 


80 H 




0040 




06200 


SW 


EQU 


40H 




0020 




06210 


STR 


EQU 


20H 




0010 




06220 


SGL 


EQU 


10H 




28B9 80 




06230 




DB 


80H 




28BA 56 




06240 




DB 


SW!SGL!6,'BYTEI0' 


s 


42 59 


54 


45 49 


4F 00 








28C2 8025 




06250 




DW 


BPARM+1 




28C4 56 




06260 




DB 


SW!SGL!6,' DRIVES' 


,0 


44 52 


49 


56 45 


53 00 








28CC 1E24 




06270 




DW 


DPARM+1 




28CE 55 




06280 




DB 


SW!SGL!5 S 'PRINT' S 





50 52 


49 


4E 54 


00 








28 D5 8A27 




06290 




DW 


PPARM+1 




28 D7 56 




06300 




DB 


SW! SGL !6,' STATUS' 


,0 


53 54 


41 


54 55 


53 00 








28 DF C926 




06310 




DW 


SPARM+1 




28E1 56 




06320 




DB 


SW ! SGL !6, 'OPTION' 


,0 


4F 50 


54 


49 4F 4E 00 








28E9 C926 




06330 




DW 


SPARM+1 




28 EB 00 




06340 
06350 


» 


NOP 






2900 




06360 




ORG 


$<-8+l<8 




0100 




06370 


BUFFER 


DS 


256 




2A00 




06380 STRBUF 


EQU 


$ 








06390 


» 








2400 




06400 




END 


DEVICE 
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LIBRARY Files 


DEVICE - LS-DOS 6*2 




mi 


0000 @@2 


0000 (a@3 


0000 


(a@4 


0000 @MOD2 


0000 @M0D4 


FFFF 


BEND 


26C8 BPARM 


257F BREAK 


27C6 


BUFFER 


2900 BYTOUT 


2782 CKPAW1 


27B2 


CKPAWS 


27 A0 CKPAWS0 


27A5 COMAOK 


2722 


COMMAS 


287D CR 


000D CVRTDEC 


26A7 


CYLS$ 


2876 DCBD1 


268C DCBD2 


26A0 


DCBDIR 


2682 DENS 


2893 DEND 


257F 


DEVI 


2427 DEV2 


245E DEV2A 


2469 


DEV2B 


248 A DEV3 


24CF DEV4 


24E2 


DEVICE 


2400 DEVICEA 


2409 DLYS 


28AA 


BOD1 


26E6 DOD2 


26F6 D0D3 


2706 


DORES 


2725 DORES1 


2741 D0RES2 


2757 


DORES3 


276B DPARM 


241D DVCHDRS 


27EB 


DVCS$ 


27F5 DVRA0 


25EE DVRA1 


261B 


DVRA2 


261E DVRADDR 


25BE DVRB0 


2627 


DVRB1 


263D DVRB2 


264A ENDLINE 


2574 


EXIT 


27D3 FAST 


2718 FAST$ 


2822 


FIXED$ 


288D FLOPPY 


2505 FLOPYS 


2860 


INACT$ 


27E3 10$ 


28B4 IOERR 


2795 


LF 


000A LINOUT 


2772 LOGDCB 


2590 


LOGDCB1 


259E LOGRTE 


25A6 MOVNAM 


26B8 


MOVNIL 


2678 MS$ 


28A7 NILS 


28B1 


NOPACKS 


27D8 NOTON 


2726 POPBC 


2793 


POPDRV 


2577 PPARM 


2789 PRMTBLS 


28B9 


REMOVS 


2883 RES$ 


2830 RESKFL 


27BD 


RIGID$ 


286B RTEF1 


2670 RTEFCB 


2654 


SAVESP 


27 CC SGL 


0010 SHOWFS 


270D 


SHOWIT 


271B SLOWS 


2829 SPARM 


26C8 


STEPS 


289F STPRATS 


2850 STR 


0020 


STRBUF 


2A0$ SW 


0040 SYSRESS 


2837 


TABLEN 


264B VAL 


0080 WPTEST 


247B 


@@ABORT 


A46E @@ADTSK 


A501 @(3BANK 


AA19 


@<$>BKSP 


A6F9 @@BREAK 


AA2F (sXaCHNIO 


A459 


(3@CKBRKC 


AA7D @(aCKDRV 


A555 @@CKEOF 


A70E 


00CKTSK 


A4EC @@CLOSE 


A6E4 @(9CLS 


AA67 


@@CMNDI 


A498 GGCMNDR 


A4AD GH3CTL 


A2BD 


@@DATE 


A42F @@DCSTAT 


A594 @@ DEBUG 


A4D7 


@@DECHEX 


A999 G>G>DIRRD 


A906 (aPDIRWR 


A91B 


@@DIV16 


A984 @@DIV8 


A96F @(3D0DIR 


A56A 


@@DSP 


A281 @@DSPLY 


A321 TERROR 


A4C2 


@@EXIT 


A483 @@FEXT 


A873 (90FLAGS 


AA03 


@@FNAME 


A888 (3@FSPEC 


A85E (9(9GATRD 


A8F1 


@(3GATWR 


A930 (a@GET 


A295 @@GTDCB 


A8B2 


@@GTDCT 


A89D @@GTMOD 


A8C7 @@HDFMT 


A63C 


@@HEX16 


A9D8 GK9HEX8 


A9C3 @(3HEXDEC 


A9AE 


THIGHS 


A9ED WIMT 


A6BA 00KBD 


A2F9 


@(9KEY 


A26D @@KEYIN 


A30D @@KLTSK 


A540 


(9(3 LOAD 


A834 @(9L0C 


A723 (3@L0F 


A738 


<?@LOGER 


A358 @(s>LOGOT 


A36D @@MSG 


njni 


(3@MUL16 


A95A 00MUL8 


A945 (a@OPEN 


A6CF 


@@PARAM 


A41A @@PAUSE 


A405 @@PEOF 


A74D 


(9@POSN 


A762 SPRINT 


A3B9 @@PRT 


A2D1 


(3(3 PUT 


A2A9 @@RAMDIR 


A57F {JKPRDSEC 


A612 


00RDSSC 


A8DC @@READ 


A777 @@REMOV 


A6A5 


(a@RENAM 


A690 @@REW 


A78C (^RMTSK 


A516 


(3(3RPTSk 


A52B SPREAD 


A7A1 @@RSLCT 


A5FD 


GGRSTOR 


A5BE @(?RUN 


A849 @@RWRIT 


A7B6 


@(9 SEEK 


A5E8 @(BSEEKSC 


A7CB @@SKIP 


A7E0 


@@SLCT 


A5A9 @@STEPI 


A5D3 @@TIME 


A444 
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The Source LIBRARY Files DEVICE - LS-DOS 6.2 Page 00014 

00VDCTL A3F0 @@VER A7F5 @@VRSEC A627 

00WEOF A80A 00WHERE A2E5 @@WRITE A81F 

@@WRSEC A651 @@WRSSC A666 (30WRTRK A67B 

2400 is the transfer address 
Total errors 
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Command: DlR, CAT 
Library: SYS6/SYS 
ISAM # : 21H, 20H 
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The Source 



LIBRARY Files 



2400 

2400 C3D92D 

2403 E5 

2404 210000 
2407 220628 
240A El 
240B 18F3 

4296 

240D 



240D 

240 D 
240D 



DIR - LS-DOS 6.2 
DIR / CAT Command 



Page 



<DIR - LS-DOS 6.2> 

2400H 

DIR 



00100 ;LBDIR/ASM 

00110 TITLE 

00120 ; 

00130 ORG 

00140 ; 

00150 ENTRY JP 

00160 ; 

00170 CATB6N PUSH 

00180 LD 

00190 LD 

00200 POP 

00210 JR 

00220 ; 

00230 BLKHASH EQU 

00240 ; 

00250 *GET SVCMAC:3 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00260 *GET VALUES: 3 

03920 ;VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00270 ; 

00280 *GET LBDIRA:3 

04210 ;LBDIRA/ASM - DIR main processing loop 

04220 SUBTTL «<LBDIRA - Mainline Program^ 



HL 

HL,0 

(APARM+1),HL 

HL 

ENTRY 

4296H 



;Go if DIR 

Here if CAT 
Set the DIR (A 

parameter to OFF 

and do a DIR 

command 

;Hash code of blank password 
;Get SVC Macro equivalents and 



other misc. equates 
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DIR - LS-DOS 6.2 



Page 000(12 



240D 


04230 
04240 




PAGE 








04250 




error processing 






04260 










240D 217A2D 


04270 


NOMEM 


LD 


HL 9 MEM$ 




2410 DD 


04280 




DB 


0DDH 




2411 219E2D 


04290 


BADFMT 


LD 


HL 9 BADFMT$ 




2414 


04300 




00LOGOT 








00001 




IFEQ 


00H S 1 






00002 




LD 


HL 9 






00003 




ENDIF 






2414 3E0C 


00004 




LD 


A 9 12 




2416 EF 


00005 
04310 


9 


RST 


40 




2417 21FFFF 


04320 ABORT 


LD 


HL,-1 


;Set HL = -1 


241A 1810 


04330 
04340 




JR 


SAVESP 


;Abort 




04350 




I/O Error Routine 






04360 










241C 3E20 


04370 


ERR32 


LD 


A s 32 


;" Illegal Drive Number' 8 


241E 6F 


04380 


IOERR 


LD 


L,A 


;Set HL = Error # 


241F 2600 


04390 




LD 


HJ 




2421 F6C0 


04400 




OR 


0C0H 


;Set short error 


2423 4F 


04410 




LD 


C 9 A 


;Stuff in C 


2424 


04420 




(TERROR 




; Display error 


2424 3E1A 


00006 




LD 


A 9 26 




2426 EF 


00007 




RST 


40 




2427 1803 


04430 
04440 




JR 


SAVESP 


;Abort 




04450 




Clear stack & Exit 






04460 










2429 210000 


04470 


EXIT 


LD 


HL,0 


;Good exit 


242C 310000 


04480 


SAVESP 


LD 


SP s $-$ 


;P/u old SP address 


242F 


04490 ABORT3 


@@CKBRKC 


;Clear break 


242F 3E6A 


00008 




LD 


A s 106 




2431 EF 


00009 




RST 


40 




2432 C9 


04500 
04510 




RET 




;Go home now 




04520 




I nit to 


4 files/line 


& Drive # in string 




04530 










2433 C5 


04540 


DIR4 


PUSH 


BC 


;Save drive # 


2434 3E04 


04550 




LD 


A,4 


;4 fi lespecs/line 


2436 320E28 


04560 




LD 


(D0NAM9+1) 9 A 


;Save 


2439 79 


04570 




LD 


A 9 C 


;P/u drive # 


243A C630 


04580 




ADD 


A 9 '0' 


;Convert to ASCII 


243C 320E2C 


04590 




LD 


(DRIVE) 9 A 


; & stuff in message 


243F 32222D 


04600 
04610 




LD 


(NDRIVE),A 


;Also stuff in No Disk 




04620 




Is the 


starting Drive 


available ? 




04630 










2442 


04640 




@@GTDCT 




;IY => DCT+0 


2442 3E51 


00010 




LD 


A 9 81 




2444 EF 


00011 




RST 


40 




2445 


04650 




m CK DRV 




; Drive alive ? 


2445 3E21 


00012 




LD 


A 9 33 




2447 EF 


00013 




RST 


40 




2448 F5 


04660 




PUSH 


AF 


;Save RETurn condition 


2449 CD932A 


04670 




CALL 


CKPAWS 


;<BREAK> hit ? 


244C Fl 


04680 




POP 


AF 


;NZ - couldn't log drive 


244 D 2826 


04690 




JR 


Z.GDCKDRV 


;Z - Logged drive succ 
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LBDIRA - Mainline Program 



DIR - LS-DOS 6.2 



Page 00003 



Is this Drive enabled ? 



244F FD7E00 
2452 FEC3 
2454 2809 



2456 3A3626 
2459 B7 
245A CA1C24 
245D 1813 



245F 32882A 
2462 CD652A 
2465 211B2D 
2468 CDB929 
246B CD652A 
246E AF 
246F 32882A 

2472 C33426 



LD 
CP 
JR 



A,(IY) 
0C3H 
Z.NO DISK 



;P/u Enable/Disable byte 

;Enabled ? 

;Yes - display No Disk 



If this is not global - Illegal Drive # 

;Specific drive # ? 



LD 
OR 
JP 
JR 



A,(SPECIF+1) 

A 

Z, ERR 32 

NEXTDRV 



;Yes - illegal drive # 
;No - get next drive 



2475 C5 

2476 FD7E08 
2479 E61F 
247B 3C 
247C 32ED29 



04700 ; . 

04710 ; 

04720 ; 

04730 

04740 

04750 

04760 ; 

04770 ; 

04780 ; 

04790 

04800 

04810 

04820 

04830 ; 

04840 ; 

04850 ; 

04860 N0_DISK LD 

04870 CALL 

04880 LD 

04890 CALL 

04900 CALL 

04910 XOR 

04920 LD 

04930 ; 

04940 NEXTDRV JP 

04950 ; 

04960 ; Calculate quantity of Sectors/Gran 

04970 ; 

04980 GDCKDRV PUSH BC ;Save Drive # 



Enabled Drive - Display "No Disk" string 



(NOTITLE+l) s A 

CKPAGE 

HL s N0DISK 

LINOUT 

CKPAGE 

A 

(N0TITLE+1) 9 A 

CKHIT4 



;Turn off title 
;Check for scroll 
;HL => "No Disk" string 
;Display line 
;Check for scroll 
;Turn on Title 



;Get next drive 



04990 
05000 
05010 
05020 
05030 ; 
05040 ; 
05050 ; 
247F FD6E06 05060 

2482 2C 05070 

2483 2600 05080 
2485 111B2C 05090 
2488 3E20 05100 
248A CD382A 05110 

05120 ; 

05130 ; 

05140 ; 
248D 11242C 05150 
2490 21FF2B" 05160 
2493 3E44 05170 

2495 FDCB0376 05180 
2499 2002 05190 

249B 3E53 05200 

249D 77 05210 DUBDEN 

249E 010400 05220 
24A1 FDCB035E 05230 
24A5 2803 05240 

24A7 21032C 05250 
24AA EDB0 05260 DOLDIR 

05270 ; 

05280 ; 



LD 
AND 
INC 
LD 



A,(IY+8) 

1FH 

A 

(CALCK1+1) S A 



;P/u # Sectors/Gran 
;Mask off junk 
;Bump for zero offset 
; Stuff it 



P/u # Cylinders from DCT & stuff in string 



LD 

INC 

LD 

LD 

LD 

CALL 



L 9 (IY+6) 

L 

H s 

DE S CYLCNT 

A,' ' 

CVD100 



;P/u cyl count 
; Off set from 
; Stuff in HL 
;DE => Destination 
;Leading space 
;Stuff in string 



Create "DDEN" String or "HARD" string 

destination 



LD 

LD 

LD 

BIT 

JR 

LD 

LD 

LD 

BIT 

JR 

LD 

LDIR 



DE,DENSITY 

HL,DEN 

A,'D' 

6,(IY+3) 

NZ S DUBDEN 

A,'S' 

(HL),A 

BC,4 

3,(IY+3) 

Z,DOLDIR 

HL S HARD 



;Ck density 



;4 chars to Xfer 
;Hard Drive ? 

;HL => "HARD" 
;Xfer string 



Drive logged in - Read in GAT 
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LIBRARY Fi 


les 


DIR - LS- 


■DOS 6.2 


Page 00004 


LBDIRA - Mai 


nline Program 
05290 ; 










24 AC CI 


05300 


POP 


BC 




;Recover Drive # 


24AD 21002E 


05310 


LD 


HL,GAT 




,HL => GAT buffer 


24B0 FD5609 


05320 


LO 


D,(IY+9) 




,D = Directory Cyl 


24B3 1E00 


05330 


LD 


E,0 




E = Gat Sector 


24B5 


05340 


@@RDSSC 




,Read Sector 


24B5 3E55 


00014 


LD 


A, 85 






24B7 EF 


00015 


RST 


40 






24B8 3E14 


05350 


LD 


A, 20 




Init "GAT Read Error" 


24BA C21E24 


05360 


JP 


NZ,IOERR 






24BD CD932A 


05370 
05380 ; 
05390 ; 


CALL 


CKPAWS 


5 


<BREAK> hit ? 




05400 ; 


Calcu 


late the FREE space 


on the disk 




05410 ; 












05420 ; 










24C0 110000 


05430 


LD 


DE,0 


S 


DE = Gran count 


24C3 2ECC 


05440 


LD 


L,0CCH 


s 


HL => GAT + X'CC 


24C5 7E 


05450 


LD 


A,(HL) 


! 


P/u excess cyl byte 


24C6 C623 


05460 


ADD 


A s 35 


J 


Cyl excess of 35 


24C8 47 


05470 


LD 


B,A 


3 


Set loop counter 


24C9 6A 


05480 


LD 


L 9 D 


1 


HL => GAT + X'00« 


24CA C5 


05490 
05500 ; 


PUSH 


BC 




Save cyl count in B 




05510 ; 


HL => 


GAT, B = # 


of cyls s 


DE = Gran count 




05520 ; 










24CB 7E 


05530 FS1 


LD 


A,(HL) 


s 


P/u a GAT byte & set 


24 CC 37 


05540 FS2 
05550 ; 


SCF 




9 


Carry so bit 7 stays 1 




05560 ; 


Is the granule in 


use ? 






05570 ; 










24CD IF 


05580 


RRA 




3 


Shift gran bit -> carry 


24CE 3801 


05590 
05600 ; 


JR 


C 9 FS3 


3 


Don't inc if in use 




05610 ; 


Free 


Granule - bump Free 


Granule Count 




05620 ; 










24 D0 13 


05630 


INC 


DE 


3 


Another spare gran 


24D1 FEFF 


05640 FS3 


CP 


0FFH 


9 


Fin with this GAT byte? 


24D3 20F7 


05650 
05660 ; 


JR 


NZ 9 FS2 


3 


Loop if not 




05670 ; 


Finis 


hed with GAT 


byte s advance to next 




05680 ; 










24 D5 2C 


05690 


INC 


L 


! 


Advance to next byte 


24D6 10F3 


05700 
05710 ; 


DJNZ 


FS1 


3 


B cylinders to check 




05720 ; 


DE = 


Free Grans s 


Calculate # Grans/cyl 




05730 ; 










24 D8 CI 


05740 


POP 


BC 


: 


B = # of cylinders 


24D9 FD7E08 


05750 


LD 


A s (IY+8) 


s 


P/u DCT+8 


24 DC 07 


05760 


RLCA 




» 


Move Grans/Cyl into 


24 DD 07 


05770 


RLCA 




! 


Bits 0-2 


24 DE 07 


05780 


RLCA 








24DF E607 


05790 


AND 


7 






24E1 3C 


05800 


INC 


A 


» 


A = Grans/Cylinder 


24E2 FDCB046E 05810 


BIT 


5,(IY+4) 


3 


Double-bit set ? 


24 E6 2801 


05820 


JR 


Z,NOTDUB 


> 


No - don't double 


24E8 87 


05830 
05840 ; 


ADD 


A S A 


3 


Double grans/cylinder 




05850 ; 


A = # 


Grans/Cyl s 


Calculat 


e Total # of Grans 
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05860 ; 



24E9 210000 


05870 NOTDUB 


LD HL 9 


;Init HL = 


24 EC D5 


05880 


PUSH DE 


;Save Free Grans 


24ED 54 


05890 


LD D S H 


;Set DE = # cyls 


24 EE 58 


05900 


LD E 9 B 




24 EF 47 


05910 
05920 ; 


LD B 9 A 


;B - Grans/Cyl 




05930 ; 


Multiply Grans/Cyl (B) 


x # Cyls (DE) 




05940 ; 






24F0 19 


05950 GPCLOOP ADD HL 9 DE 


9 Add cylinder count 


24F1 10FD 


05960 
05970 ; 


DJNZ GPCLOOP 


;Grans/cyl times 




05980 ; 


HL = # of grans/disk , I 


s this a hard drive ? 




05990 ; 






24F3 FDCB035E 06000 


BIT 3,(IY+3) 


;Hard Drive ? 


24F7 201E 


06010 
06020 ; 


JR NZ S SKIPLOC 


;Yes~don s t check lockout 




06030 ; 


Floppy disk - check for 


locked out cylinders 




06040 ; 






24F9 43 


06050 


LD B 9 E 


;B = cylinder count 


24FA EB 


06060 


EX DE 9 HL 


;Save total cnt in DE 


24FB 21602E 


06070 


LD HL 9 GAT+60H 


;HL => Lockout table 


24FE 0E00 


06080 


LD C s 


;C = Locked out cyl count 


2500 F5 


06090 
06100 ; 


PUSH AF 


;Save Grans/Cyl in A 




06110 ; 


Loop to count up Locked 


out cylinders in C 




06120 ; 






2501 3E01 


06130 LKLQOP 


LD A,l 


;Init cyl checker 


2503 A6 


06140 


AND (HL) 


;Locked out ? 


2504 2801 


06150 


JR Z 9 G00DCYL 


;No - good cylinder 


2506 0C 


06160 


INC C 


;Bump locked out count 


2507 2C 


06170 GOODCYL 


INC L 


;Bump ptr 


2508 10F7 


06180 
06190 ; 


DJNZ LKLOOP 


;B cylinders 




06200 ; 


Multiply Cylinders (BC) 


x Grans/Cyl 




06210 ; 






250A Fl 


06220 


POP AF 


;A = Grans/Cyl 


250B F5 


06230 


PUSH AF 


;Save it 


250C 60 


06240 


LD H 9 B 


;Init HL = 


250D 68 


06250 
06260 ; 


LD L 9 B 




250E 09 


06270 GTUSED 


ADD HL 9 BC 


;Add cylinder count 


250F 3D 


06280 


DEC A 


;Grans/cyl times 


2510 20FC 


06290 


JR NZ 9 GTUSED 




2512 Fl 


06300 
06310 ; 


POP AF 


;A = Grans/Cyl 




06320 ; 


Subtract # of Grans locked out from total 




06330 ; 






2513 B7 


06340 


OR A 


;Clear carry 


2514 EB 


06350 


EX DE 9 HL 




2515 ED52 


06360 


SBC HL 9 DE 


;HL = Grans possible 


2517 Dl 


06370 SKIPLOC 
06380 ; 


POP DE 


;Rcvr # of Free Grans 




06390 ; 


HL = # Grans possible. 


DE = # Grans Free 




06400 ; 






2518 E5 


06410 


PUSH HL 


;Save Grans used 


2519 21302C 


06420 


LD HL 9 KFREE 


;Convert Grans Free 


251C CDE829 


06430 


CALL CALCK 


; to ASCII K & stuff 


251F Dl 


06440 


POP DE 


; into string. 
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06450 










06460 


, Calcu 


late # of K used & 


stuff into header 




06470 








2520 213C2C 


06480 


LD 


HL.KPOSS 


;Pt to where to stuff 


2523 CDE829 


06490 
06500 


CALL 


CALCK 


Calculate K & stuff 




06510 


Transfer Diskette Name 


into string buffer 




06520 , 








2526 21D02E 


06530 


LD 


HL 9 GAT+0D0H 


;HL => Diskette Name 


2529 11112C 


06540 


LD 


DE 9 NAME 


;Move pack name -> header 


252C 0E08 


06550 


LD 


C,8 


;BC = 8 chars to xfer 


252E EDB0 


06560 
06570 


LDIR 




;Xfer into buff 




06580 , 


Clear 


out Date buffer 






06590 , 








2530 114D2C 


06600 


LD 


DE S DATBUF 


;DE => Start of buffer 


2533 3E20 


06610 


LD 


A,' ' 


; Space 


2535 0609 


06620 


LD 


B,9 


;9 chars to clear 


2537 12 


06630 ( 


;lrlp LD 


(DE),A 


; Stuff in space 


2538 13 


06640 


INC 


DE 


;Bump 


2539 10FC 


06650 
06660 s 


DJNZ 


CLRLP 






06670 , 


HL => 


Date in mm/dd/yy format - p/u month 




06680 , 








253B 7E 


06690 


LD 


A,(HL) 


;P/u month 


253C D630 


06700 


SUB 


■0' 


;Convert tens to binary 


253E 4F 


06710 
06720 ; 


LD 


C 9 A 


;Save in C 




06730 ; 


Multi 


ply first digit of 


month x 10 




06740 ; 








253F 87 


06750 


ADD 


A, A 


;X 2 


2540 87 


06760 


ADD 


A 9 A 


;X 4 


2541 81 


06770 


ADD 


A 9 C 


;X 5 


2542 87 


06780 


ADD 


r\ 3 A 


;X 10 


2543 4F 


06790 
06800 ; 


LD 


C,A 


; Stuff in C 




06810 ; 


Pick 


up second digit of 


month & add to 10 8 s 




06820 j 








2544 23 


06830 


INC 


HL 


;Bump to ones 


2545 7E 


06840 


LD 


A S (HL) 


;P/u ones of month 


2546 D630 


06850 


SUB 


'0' 


;Convert to binary 


2548 81 


06860 


ADD 


A 9 C 


;A = Month (1-12) 


2549 282E 


06870 


JR 


Z,ILLDATE 


;Abort if NO DATE 


254B FE0D 


06880 


CP 


13 


;Legal Month ? 


254D 302A 


06890 
06900 ; 


JR 


NC.ILLDATF. 


s No - illegal date 




06910 ; 


Legal 


Month - Mult x 3 < 


Si pt to month string 




06920 ; 








254F 4F 


06930 


LD 


1/ jn 


;Xfer month to C 


2550 87 


06940 


ADD 


A,A 


;X 2 


2551 81 


06950 


ADD 


A 9 C 


;X 3 


2552 4F 


06960 


LD 


C 9 A 


;BC = offset 


2553 E5 


06970 


PUSH 


HL 


;Save date pointer 


2554 21AB2D 


06980 


LD 


HL.MONTBL-3 


;HL => Month String table 


2557 09 


06990 
07000 ; 


ADD 


HL 9 BC 


;HL => Month String 




07010 ; 


HL => 


Month String, Stuff into Buffer 




07020 ; 








2558 11502C 


07030 


LD 


DE 9 DATBUF+3 


;DE => Destination 
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255B 0E03 


07040 


LD 


C,3 


;BC = 3 chars to xfer 


255D EDB0 


07050 
07060 ; 


LDIR 




;Xfer date to buffer 




07070 ; 


Transfer Day (00-31) into date buffer 




07080 ; 








255F El 


07090 


POP 


HL 


;Recover ptr 


2560 23 


07100 


INC 


HL 


;Bump 


2561 23 


07110 


INC 


HL 


;HL => Day of month 


2562 114D2C 


07120 


LD 


DE,DATBUF 


;DE -> date buffer 


2565 0E02 


07130 


LD 


C s 2 


;Xfer into buffer 


2567 EDB0 


07140 
07150 ; 


LDIR 








07160 ; 


Transfer Year into buff 


er 




07170 ; 








2569 23 


07180 


INC 


HL 


;HL => Year (80-87) 


256A 0E02 


07190 


LD 


C s 2 


;2 chars to xfer 


256C 11542C 


07200 


LD 


DE s DATBUF+7 


;DE => Destination 


256f EDB0 


07210 
07220 ; 


LDIR 




;Xfer into buffer 




07230 ; 


Stuff "■ 


-" after day & month 




07240 ; 








2571 3E2D 


07250 


LD 


A,'-' 


; Separator 


2573 324F2C 


07260 


LD 


(DATBUF+2),A 




2576 32532C 


07270 
07280 ; 


LD 


(DATBUF+6) 9 A 






07290 ; 


Display 


the files in the directory 




07300 ; 


Init DIR rec ptr = mem 


start, count = 




07310 ; 








2579 3C 


07320 ILLDATE 


INC 


A 


;Set flag 


257A 32D82D 


07330 


LD 


(FILFLAG) S A 


;Set file air disp flag 


257D 210030 


07340 


LD 


HL s MEMORY 


;Init DIRPTR to start 


2580 22D92D 


07350 


LD 


(DIRPTR) S HL 


; of available memory 


2583 AF 


07360 


XOR 


A 


;Set File display 


2584 ED62 


07370 


SBC 


HL,HL 


;Set HL = 


2586 22F725 


07380 


LD 


(TFILES+1) 9 HL 


;Totaf Files = 


2589 22D625 


07390 


LD 


(COUNT+l) s HL 


;Count = 


258C 220226 


07400 
07410 ; 


LD 


(T0TGRNS+1) 8 HL 


;Total Grans = 




07420 ; 


Read in 


the HIT of the 


disk 




07430 ; 








258F CI 


07440 


POP 


BC 


;Recover Drive # in C 


2590 FD5609 


07450 


LD 


D s (IY+9) 


;P/u directory cylinder 


2593 1E01 


07460 


LD 


E, 1 


;Pt to HIT sector 


2595 21002E 


07470 


LD 


HL S HIT 


;HL => I/O buffer 


2598 


07480 


(a@RDSSC 




;Read System Sector 


2598 3E55 


00016 


LD 


A, 85 




259A EF 


00017 


RST 


40 




259B 3E16 


07490 


LD 


A S 16H 


;"HIT read error"? 


259D C21E24 


07500 


JP 


NZ,I0ERR 


;Jump if read error 


25A0 CD932A 


07510 


CALL 


CKPAWS 


;<BREAK> hit ? 


25A3 C34526 


07520 $JP0 
07530 ; 


JP 


CKHIT5 


;Jump into middle of loop 




07540 ; 


Loop to 


Process HIT entries 




07550 ; 








25A6 El 


07560 CKHIT 


POP 


HL 




25A7 CI 


07570 CKHITl 
07580 ; 


POP 


BC 


;Recover HIT pointer lo 




07590 ; 


Point HL => Last HIT entry 




07600 ; 
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25A8 262E 


07610 


LD 


H,HIT<-8 ;Set H = hi byte of HIT 


25AA 68 


07620 
07630 ; 


LD 


L S B ;HL => Last HIT entry 




07640 ; 


Position to next entry of the Record 




07650 ; 






25AB 7D 


07660 CKHIT2 


LD 


A,L ;P/u current entry 


25AC C620 


07670 


ADD 


A,32 ;Add 32 (bytes/entry) 


25AE 6F 


07680 


LD 


L,A ;HL => Next entry 


25AF 30F2 


07690 
07700 ; 


JR 


NC,$JP0 ;Go to next record ? 




07710 ; 


Pos i t 


ion to entry zero of next record 




07720 ; 






25B1 2C 


07730 


INC 


L ;Posn to next record 


25B2 CB6D 


07740 


BIT 


5,L ;Done with drive ? 


25B4 28ED 


07750 
07760 ; 


JR 


Z s $JP0 ;No - process entry 




07770 ; 


Finished with drive - Sort data unless (0=N) 




07780 ; 






25B6 3AF926 


07790 


LD 


A 9 (S0RTPRM+1) ;If sort requested, 


25B9 B7 


07800 


OR 


A ; then need to output 


25BA C4DF2A 


07810 
07820 ; 


CALL 


NZ,S0RTIT ; the sorted data 




07830 ; 


Were 


there any files displayed ? 




07840 ; 






25BD 2AD625 


07850 


LD 


HL,(C0UNT+1) ;P/u displayed file count 


25C0 7C 


07860 


LD 


A 9 H ;Any entered ? 


25C1 B5 


07870 


OR 


L 


25C2 200B 


07880 
07890 ; 


JR 


NZ S FILES ;Yes - dsp under if (A) 




07900 ; 


Displ 


ay Title & line feed 




07910 ; 






25C4 21072C 


07920 


LD 


HL 9 DSTRING ;HL => Title 


25C7 CDB929 


07930 


CALL 


LINOUT ;Display title 


25CA CD652A 


07940 


CALL 


CKPAGE ;Check for scroll 


25CD 184A 


07950 
07960 ; 


JR 


NOTAP ;Get next drive 




07970 ; 


Get next drive # if the A parm was specified 




07980 ; 






25CF 3A0628 


07990 FILES 


LD 


A,(APARM+1) ; Don't display if A 


25D2 B7 


08000 


OR 


A 


25 D3 2844 


08010 
08020 ; 


JR 


Z s NOTAP ; Not A - Output C/R 




08030 ; 


Were 


there any files shown in directory ? 




08040 ; 






25 D5 210000 


08050 COUNT 


LD 


HL,$-$ ;P/u count 


25D8 7C 


08060 


LD 


A,H ;Any files shown ? 


25 D9 B5 


08070 


OR 


L 


25DA 284E 


08080 
08090 ; 


JR 


Z S TERMDRV ;No - get next drive 




08100 ; 


Displ 


ay Line of equal signs "=" 




08110 ; 






25 DC 064F 


08120 


LD 


B,79 ;0utput 79 "=" 


25DE 3E3D 


08130 D79EQ 


LD 


A,'-' 


25E0 CDCB29 


08140 


CALL 


BYTOUT ; Output "=" 


25E3 10F9 


08150 
08160 ; 


DJNZ 


D79EQ 




08170 ; 


End 1 


ine & check for scroll 




08180 ; 






25E5 3E0D 


08190 


LD 


A,CR ;End line with C/R 
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25E7 CDCB29 
25 EA CD652A 



25ED C5 
25EE 11E92C 
25F1 3E20 
25F3 CD382A 



25F6 210000 
25F9 11FA2C 
25FC 3E20 
25FE CD382A 



2601 110000 
2604 21102D 
2607 CDE829 
260A CI 



260B 21DE2C 
260E CDB929 
2611 CD652A 
2614 CD652A 
2617 1811 



2619 3AD82D 
261C B7 
261 D 200 B 



261F 3A0E28 
2622 FE04 
2624 C41928 
2627 CD1928 



262 A 3E00 
262C 0C 
262D B9 
262E D23324 
2631 C32924 



2634 CI 

2635 3E00 

2637 B7 

2638 210000 



LIBRARY Files 
nline Program 



DIR - LS-DOS 6.2 
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CALL 
CALL 



BYTOUT 
CKPAGE 



Stuff # of files used into footer string 



PUSH 
LD 
LD 
CALL 



BC 

DE,FDISP 
A ' ' 
CVD100 



08200 

08210 

08220 ; 

08230 ; 

08240 ; 

08250 

08260 

08270 

08280 

08290 ; 

08300 ; 

08310 ; 

08320 TFILES LD HL,$-$ ;P/u total files used 

08330 LD DE, FUSED ;DE => Destination 

08340 LD A, ' ' 

08350 CALL CVD100 ; Stuff in string 

08360 ; 

08370 ; P/u Total # of Grans & stuff into string 



Save Drive # 
DE => Destination 
Stuff # of files 
used in string. 



Pick up # of used files & stuff in string 



08390 TOTGRNS LD 
LD 



08410 
08420 
08430 
08440 
08450 



CALL 
POP 



DE,$-$ 
HL,SPUSED 
CALCK 
BC 



Display Footer String 



08470 



08490 
08500 
08510 ; 
08520 ; 
08530 ; 
08540 NOTAP 
08550 
08560 
08570 ; 
08580 ; 
08590 ; 



LD 

L/M L> L 

CALL 
CALL 
JR 



HL,FSTRING 

LINOUT 

CKPAGE 

CKPAGE 

TERMDRV 



;P/u total # of Grans 
;HL => Destination 
; Stuff into string 
;C = drive # 



;HL => Files disp string 
; Display line 
;Check for title 



;Get next drive 
A parm not spec 8 d s was a header displayed ? 

;Was a header displayed ? 

;No - get next drive 
Output a C/R if a full line wasn't displayed 

;Full line ? 



LD 
OR 
JR 



A,(FILFLAG) 

A 

NZ.TERMDRV 



LD A S (D0NAM9+1) 

CP 4 

CALL NZ,ENDLINE ;End line 

CALL ENDLINE :Do a blank line 



Position to next drive - or exit if finished 



08610 

08620 

08630 

08640 ; 

08650 ; 

08660 ; 

08670 TERMDRV LD A,$-$ ;P/u term drive 

08680 INC C ;Bump current drive # 

08690 CP C ;Done ? 

08700 JP NC.DIR4 ;Loop if in range 

08710 JP EXIT ;Exit if NZ 

08720 ; 

08730 ; Get next drive unless drivespec specified 

08740 ; 

08750 CKHIT4 POP BC ;Get drive # in C 

08760 SPECIF LD A,$-$ ;P/u specific flag 

08770 OR A 

08780 LD HL 9 ;Init in case exit 
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263B C8 



263C 3A2B26 
263F 0C 

2640 B9 

2641 D23324 
2644 C9 



2645 7E 

2646 B7 

2647 CAAB25 



26 4 A 45 
264B C5 
264C 7D 
264D E6E0 
264F 6F 



2650 A8 

2651 FEFF 
2653 2810 



2655 325226 
2658 

2658 3E57 
265A EF 
265B C21E24 
265E 7C 
265F 326626 
2662 328629 



2665 2600 
2667 CB66 
2669 CAA725 
266C CB7E 
266E C2A725 



2671 E5 

2672 2AF725 

2675 23 

2676 22F725 
2679 El 



LIBRARY Files 
nline Program 

RET 



DIR - LS-DOS 6.2 
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08790 
08800 



08820 
08830 



Bump Drive number 



08850 
08860 
08870 
08880 



LD 

INC 

CP 

JP 

RET 



A 9 (TERMDRV+1) 

C 

C 

NC S DIR4 



;Not globa' 



;P/u term drive # 
;Bump 

;Finished ? 
;Loop if more 
l else return 



Is the HIT entry in use ? 



08900 ; 

08910 CKHIT5 LD 



08920 
08930 
08940 
08950 
08960 
08970 
08980 
08990 
09000 
09010 



OR 
JP 



A 9 (HL) 

A 

Z S CKHIT2 



;P/u HIT entry 

;In use ? 

;No - get next entn 



HIT entry in use - Point HL to that entry 
B«L 



LD 

PUSH 

LD 

AND 

LD 



BC 
A 8 L 
0E0H 
L S A 



;Save DEC in B 
; & to stack 
; Point L to Entry 



09030 
09040 
09050 



Do we need to Read in another sector ? 



XOR 



09060 CKHIT6 CP 

09070 

09080 ; 



B ;Done with 8 entries ? 

0FFH 
JR Z S CKDIR1 ;No - check out entry 

Read in the next directory sector 



09100 ; 

09110 

09120 

00018 

00019 

09130 

09140 

09150 

09160 

09170 ; 

09180 ; 

09190 ; 

09200 CKDIR1 LD H,$-$ ;P/u high byte 



LD (CKHIT6*1) S A 

@@DIRRD 

LD A,87 

RST 40 

JP NZ s I0ERR 

LD A S H 

LD (CKDIR1+1) 9 A 

LD (SBUFFER+1) 9 A 



; Stuff in last entry posn 
; & read it into buffer 



;Jump on read error 
;P/u high byte 
; and save 
; for later 



Valid File (Alive & FPDE) ? 



09210 

09220 

09230 

09240 

09250 ; 

09260 ; 

09270 ; 

09280 

09290 

09300 

09310 

09320 

09330 ; 

09340 ; 

09350 ; 



BIT 4 S (HL) ;Alive ? 

JP Z 9 CKHIT1 ;No - get next entry 

BIT 7,(HL) ;FPDE ? 

JP NZ.CKHIT1 ;No - get next entry 

Alive FPDE - Bump Total File counter 



PUSH HL 

LD HL S (TFILES+1) 

INC HL 

LD (TFILES+1) 9 HL 

POP HL 

Is this a SYStem File ? 



;Save ptr 

;HL => Total Files 

;Bump total files 



Page 135 



The Source 


LIBRARY Fi 


les DIR - LS-DOS 6.2 Page 00011 


LBDIRA - Mai 


nline Program 




267A CB76 


09360 


BIT 6,(HL) ;SYS file ? 


267 C 280A 


09370 
09380 ; 


JR Z,CKDIR3 ;No - continue 




09390 ; 


SYS file - don't check unless S parm entered 




09400 ; 




267E 110000 


09410 SPARM 


LD DE,$-$ ;P/u S-parm 


2681 7A 


09420 


LD A,D Specified ? 


2682 B3 


09430 


OR E 


2683 CAA725 


09440 


JP Z.CKHIT1 ;No - don't check it 


2686 180C 


09450 
09460 ; 


JR CKMOD ;Skip INV check 




09470 ; 


Non-SYS file - Is the file Visible ? 




09480 ; 




2688 CB5E 


09490 CKDIR3 


BIT 3, (HL) ;Visible ? 


268A 2808 


09500 
09510 ; 


JR Z, CKMOD ;Yes - skip I check 




09520 ; 


File is invisible - was INV (I) specified ? 




09530 ; 




268C 110000 


09540 I PARM 


LD DE s $-$ ;I-parm 


268F 7A 


09550 


LD A,D ; Ignore if I-parm not 


2690 B3 


09560 


OR E ; entered as this file 


2691 CAA725 


09570 
09580 ; 


JP Z 9 CKHIT1 ; is invisible 




09590 ; 


Was the MOD parm entered ? 




09600 ; 




2694 110000 


09610 CKMOD 


LD DE s $-$ ;P/u mod parm 


2697 7A 


09620 


LD A S D ;Was it entered ? 


2698 B3 


09630 


OR E 


2699 2807 


09640 
09650 ; 


JR Z, CKNAM ;Go if MOD not entered 




09660 ; 


MOD parm entered - was this file modified ? 




09670 ; 




269B 2C 


09680 


INC L ;HL => DIR + 1 


269C CB76 


09690 


BIT 6,(HL) ;Was the file modified ? 


269E CAA725 


09700 


JP Z,CKHIT1 ;No - get next entry 


26A1 2D 


09710 
09720 ; 


DEC L ;Adjust back to start 




09730 ; 


Attributes match - check if filespec matches 




09740 ; 




26A2 E5 


09750 CKNAM 


PUSH HL ;Save ptr to record 


26A3 7D 


09760 


LD A,L ;Pt to filename in dir 


26A4 C605 


09770 


ADD A, 5 


26A6 6F 


09780 


LD L,A ;HL => DIR filename 


26A7 113A2D 


09790 


LD DE, BLANKS ;DE => Partspec input 


26AA 060B 


09800 
09810 ; 


LD B, 11 ;Ck name/ext (11-chars) 




09820 ; 


Loop to check if partspec matches dir name 




09830 ; 




26AC 1A 


09840 CKNAM1 


LD A,(DE) ;P/u partspec 


26AD FE24 


09850 


CP '$' ;Wild char? 


26AF 2807 


09860 
09870 ; 


JR Z.CKNAM2 ;Yes - match 




09880 ; 


Does Directory char match partspec char ? 




09890 ; 




26B1 BE 


09900 


CP (HL) ;Not global, char match? 


26B2 2804 


09910 
09920 ; 


JR Z.CKNAM2 ;Ck more if match 




09930 ; 


Chars don't match - Dir char a space ? 




09940 ; 
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26B4 FE20 


09950 


CP ' ' 


; Blank = end of ck 


26B6 200B 


09960 
09970 ; 


JR NZ,MFLG 


;If not blank, no match 




09980 ; 


Bump Dir ptr & Partspec ptr & continue loop 




09990 ; 






26B8 23 


10000 CKNAM2 


INC HL 


;Bump pointers 


26B9 13 


10010 


INC DE 




26BA 10F0 


10020 
10030 ; 


DJNZ CKNAM1 


;Loop for 11 chars 




10040 ; 


Entries Match - Was the "-" Exclude given ? 




10050 ; 






26BC 3AC426 


10060 


LD A.CPFLG+l) 


;P/u flag 


26BF FE2D 


10070 


CP 


; - exclude given ? 


26C1 1803 


10080 
10090 ; 


JR CK2HIT 


;Yes - get next entry 




10100 ; 


Entries Don't match - 


Was exclude given ? 




10110 ; 






26C3 3E00 


10120 MFLG 


LD A,$-$ 


;P/u Exclude flag 


26C5 B7 


10130 


OR A 


;If no exclude given 


26C6 CAA625 


10140 CK2HIT 
10150 ; 


JP Z 9 CKHIT 


; get next entry 




10160 ; 


Recover DIR+0 pointer 






10170 ; 






26C9 El 


10180 CKNAM2A POP HL 


;Rcvr ptr to DIR+0 


26CA E5 


10190 
10200 ; 


PUSH HL 


;Save 




10210 ; 


Unpack Date of Directory entry 




10220 ; 






26CB 23 


10230 


INC HL 


;HL => DIR+1 


26CC CD192A 


10240 
10250 ; 


CALL UNPACK 


; Unpack date 




10260 ; 


Use Dates before user 


-specified date ? 




10270 ; 






26CF 3AD72D 


10280 


LD A,(FTFLG) 


;P/u From/To flag 


26D2 07 


10290 


RLCA 


;Tst fm bit 


26D3 300F 


10300 
10310 ; 


JR NC,CKNAM2B 


;No - check to 




10320 ; 


"FROM" flag set - doe 


5 file have a date ? 




10330 ; 






26D5 7A 


10340 


LD A,D 


; Ignore if no date 


26 D6 B3 


10350 


OR E 


; in DIR for file 


26D7 CAA625 


10360 
10370 ; 


JP Z,CKHIT 


;No date - get next entry 




10380 ; 


Is the Specified date 


>= the file's date ? 




10390 ; 






26 DA 2ADD2D 


10400 


LD HL,(FMPAKD) 


;P/u user date entry 


26DD EB 


10410 


EX DE S HL 




26DE CD132A 


10420 


CALL CPHLDE 


;Compare HL to DE 


26E1 EB 


10430 


EX DE,HL 


;File date < User date ? 


26E2 3811 


10440 
10450 ; 


JR C,$JP1 


;Yes - get next entry 




10460 ; 


Use Dates after user- 


specified Date ? 




10470 ; 






26E4 3AD72D 


10480 CKNAM2B 


LD A,(FTFLG) 


;P/u FROM/TO flag 


26E7 0F 


10490 


RRCA 


;Test TO bit 


26 E8 300E 


10500 
10510 ; 


JR NC.SORTPRM 


;Go if no TOPARM 




10520 ; 


"TO" Flag set - Does 1 


File have a date ? 




10530 ; 
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26 EA 7 A 
26EB B3 
26 EC CAA625 



26 EF 2ADF2D 
26F2 CD132A 
26F5 DAA625 



26F8 11FFFF 
26FB El 
26FC 7A 
26FD B3 
26FE 282D 



2700 E5 

2701 CD5B29 
2704 El 



2705 E5 

2706 DDE1 
2708 DD7316 
270B DD7217 
270E DD7118 
2711 DD7019 



10870 

10880 

2714 ED5BD92D 10890 

2718 E5 10900 

2719 012000 10910 
271C EDB0 10920 
271E ED53D92D 10930 

10940 



10540 

10550 

10560 

10570 ; 

10580 ; 

10590 ; 

10600 

10610 

10620 $JP1 

10630 ; 

10640 ; 

10650 ; 

10660 SORTPRM LD 



A 9 D 

E 

Z« CKHIT 



;File have a valid date ? 
;No - get next entry 
File has a date - Is spec'd date less ? 



LD HL s (TOPAKD) ;P/u user's packed date 
CALL CPHLDE ;User date < File date ? 
JP C 9 CKHIT jYes - get next entry 

Was the Sort Parameter turned off ? 



10670 
10680 
10690 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10800 
10810 
10820 
10830 
10840 
10850 



POP 
LD 
OR 
JR 



DE.-l 

HL 

A 9 D 

E 

Z 9 D0DSP 



;P/u default parm 

;HL => DIR+0 

; Default to S0RT=0r 



;Go display if no sort 

SORT = ON — - Calculate allocation & extents 

PUSH HL ;Save DIR + ptr 

CALL ALL09A ;Calc alloc & extents 

POP HL ; Recover DIR+0 ptr 

Overwrite FPDE's 22-25 with # Grans & # exts 

PUSH HL ;Point IX = DIR+22 

POP IX 

LD (IX+22) S E ;Stuff in # Grans 

LD (IX+23) S D 

LD (IX+24) 9 C ; Stuff in # Extents 

LD (IX+25) 9 B 

Transfer Record into Memory For Sort 



LD 

PUSH 

LD 

LDIR 

LD 



DE 9 (DIRPTR) 

HL 

BC S 32 



;P/u last used mem addr 

;Save current DIR ptr 

;Move record to buffer 

;Xfer 

;Update the pointer 



(DIRPTR) 9 DE 
Is there an overflow of available memory ? 



2722 2ADB2D 
2725 ED52 
2727 D2A625 
272A C30D24 



272D CD3327 
2730 C3A725 
2733 



LD 
SBC 
JP 
JP 



HL 9 (MAXMEM) 
HL 9 DE 
NC, CKHIT 
NOMEM 



2733 



10950 ; 

10960 ; 

10970 

10980 

10990 

11000 

11010 ; 

11020 ; 

11030 ; 

11040 DODSP CALL 

11050 JP 

00290 *GET LBDIRB:3 

11060 ;LBDIRB/ASM - Display Filespec & attributes 

11070 SUBTTL «<LBDIRC - File Attribute Outputs 



Display A Filename 



MATCH 
CKHIT1 



;P/u approximate hi -mem 
;Did it overflow ? 
;No - get next entry 
;Insuf mem for sort buff 



; Display entry 

;Loop to next DIR entry 
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2733 


11080 
11090 ; 


PAGE 








11100 ; 


MATCh 


1 - 


Display a File's Name and Extension 




11110 ; 








2733 E5 


11120 MATCH 


PUSH 




HL ;Save HIT posn 


2734 21D625 


11130 


LD 




HL,COUNT+l ;Bump file count 


2737 34 


11140 
11150 ; 


INC 




(HL) 




11160 ; 


Was the 


Drive Header Displayed ? 




11170 ; 








2738 21D82D 


11180 


LD 




HL.FILFLAG 


,HL => File Header flag 


273B AF 


11190 


XOR 




A 


, If (HL) is Non-Zero 


273C BE 


11200 


CP 




(HL) 


, then the header has not 


273D 77 


11210 


LD 




(HL),A 


, printed. 


273E C4B12A 


11220 


CALL 




NZ,CKTITL 


.Display title if NZ 




11230 ; 










11240 ; 


Position HL to Directory Entry Filename 




11250 ; 








2741 El 


11260 ALRPRT 


POP 




HL ; Recover DEC 


2742 7D 


11270 


LD 




A,L ;P/u DEC 


2743 E6E0 


11280 


AND 




0E0H ;Posn to entry 


2745 C605 


11290 


ADD 




A, 5 ;Pt to start of filename 


2747 6F 


11300 
11310 ; 


LD 




L,A ;HL => Filename field 




11320 ; 


I nit 


B= 


8 chars for filename, C=19 to col 




11330 ; 








2748 0E13 


11340 


LD 




C s 19 ;Chars to next column 


274A 0608 


11350 
11360 ; 


LD 




B 9 8 ;Filename 




11370 ; 


Loop 


to 


Output the Filename 




11380 ; 








274C 7E 


11390 DONAM1 


LD 




A S (HL) ;P/u character 


274D 23 


11400 


INC 




HL ;Bump DIR ptr 


274E FE20 


11410 


CP 




' ' ; Space ? 


2750 2807 


11420 


JR 




Z 9 D0NAM2 ;Yes - done with filename 


2752 CDCA29 


11430 


CALL 




BYT0UT2 ;No - output char 


2755 10F5 


11440 


DJNZ 




D0NAM1 ;Field loop 


2757 1804 


11450 
11460 ; 


JR 




DONAM3 ; Bypass ext calculation 




11470 ; 


Filename has < 8 chars, Pt to extension 




11480 ; 








2759 7D 


11490 DONAM2 


LD 




A S L ;P/u low byte 


275A 80 


11500 


ADD 




A 9 B ;Add # of chars left 


275B 3D 


11510 


DEC 




A ;Back one 


275C 6F 


11520 
11530 ; 


LD 




L 9 A ;HL => Extension 




11540 ; 


Does 


this file have an extension ? 




11550 ; 








275D 7E 


11560 D0NAM3 


LD 




A 9 (HL) ;P/u first char 


275E FE20 


11570 


CP 




' ' ;Blank 


2760 2812 


11580 
11590 ; 


JR 




Z 9 D0NAM5 ;Yes - no extension 




11600 ; 


Outpu 


t 


a "/" & Set up for Extension loop 




11610 ; 








2762 3E2F 


11620 


LD 




A, '/' ;Display slash 


2764 CDCA29 


11630 


CALL 




BYT0UT2 


2767 0603 


11640 
11650 ; 


LD 




B 9 3 ;3 chars max for EXT 




11660 ; 


Loop 


to 


output the extension 




11670 ; 
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2769 7E 


11680 


D0NAM4 


LD 


A,(HL) 


;P/u char 


276A 23 


11690 




INC 


HL 


;Bump ptr 


276B FE20 


11700 




CP 


• i 


; Space ? 


276D 2805 


11710 




JR 


Z,DONAM5 


;Exit on 1st blank 


276F CDCA29 


11720 




CALL 


BYT0UT2 


;Else display the char 


2772 10F5 


11730 
11740 


» 


DJNZ 


D0NAM4 


;Loop 3 chars 




11750 


s 


Was the 


(A) parameter specified ? 




11760 


9 








2774 3A0628 


11770 


DONAM5 


LD 


A S (APARM+1) 


;A parm specified ? 


2777 B7 


11780 




OR 


A 




2778 2813 


11790 
11800 


» 


JR 


Z.DONAM5A 


;No - continue 




11810 


» 


(A) parameter specified 


- Tab to column 14 




11820 


» 








277A 79 


11830 




LD 


A,C 


;P/u chars left to col 20 


277B D606 


11840 




SUB 


6 


;Adjust to column 14 


277D 47 


11850 




LD 


B S A 


; Stuff into B for DJNZ 


277E CDE029 


11860 
11870 


i 


CALL 


OUTS PC 


;Output B spaces 




11880 


» 


Output 


mod flag (if mod 


ified) & tab to 19 




11890 


» 








2781 7D 


11900 




LD 


A,L 


;Pt HL => DIR+0 


2782 E6E0 


11910 




AND 


0E0H 




2784 6F 


11920 




LD 


L,A 




2785 CD3729 


11930 




CALL 


OUTMOD 


;Output "+" if mod 


2788 0603 


11940 




LD 


B 9 3 


;Output 3 spaces 


278A CDE029 


11950 
11960 


9 


CALL 


OUTS PC 


;Output B spaces 




11970 


9 


Display 


the File's Attributes 




11980 


9 








278 D 0601 


11990 


DONAM5A 


LD 


B,l 


;Set B=l space 


278F CDE029 


12000 
12010 


9 


CALL 


OUTS PC 


;After filespec. 




12020 


9 


Point HL => DIR+0 (Attributes) 




12030 


9 








2792 7D 


12040 




LD 


Hj L 


;Pt to 1st byte of 


2793 E6E0 


12050 




AND 


0E0H 


; Directory record 


2795 6F 


12060 
12070 


9 


LD 


L,A 






12080 


9 


Display 


"?" if File OPEN bit set 




12090 


9 








2796 3E3F 


12100 




LD 


A,'?' 


;"?" character 


2798 23 


12110 




INC 


HL 


;HL => DIR + 1 


2799 CB6E 


12120 




BIT 


5,(HL) 


;File Open ? 


279B 2B 


12130 




DEC 


HL 


;HL => DIR + 


279C C4CA29 


12140 
12150 


9 


CALL 


NZ,BYTOUT2 


;Yes - output byte 




12160 


9 


Display 


an "*" if this 


is a PDS file 




12170 


9 








279F 46 


12180 




LD 


B S (HL) 


;P/u attributes byte 


27A0 3E2A 


12190 




LD 


A,'*' 


; Ini t for PDS display 


27A2 CB68 


12200 




BIT 


5,B 




27A4 C4CA29 


12210 
12220 


9 


CALL 


NZ s BYTOUT2 


;Display if PDS 




12230 


9 


Display 


an "S" if file 


is a SYS file 




12240 


9 








27A7 CB70 


12250 




BIT 


6 S B 


;Is it a SYS file? 


27A9 3E53 


12260 




LD 


A.'S' 
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27B7 C610 
27B9 6F 



27BA 5E 
27BB 2C 
27BC 56 



27BD E5 
27BE 219642 
27C1 ED52 
27C3 El 
27C4 2814 



27 C6 78 
27C7 E607 
27C9 3E50 
27CB 200F 



27CD 2C 
27CE 5E 
27CF 2C 
27D0 56 



27D1 219642 
27D4 ED52 
27D6 3E50 
27D8 2002 
27 DA 3E20 



27DC 322728 
27DF FE20 
27E1 C4CA29 
27E4 El 



LIBRARY Files 
Attribute Output 

CALL 



DIR - LS-DOS 6.2 
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12270 

12280 ; 

12290 ; 

12300 ; 

12310 

12320 

12330 

12340 ; 

12350 ; 

12360 ; 

12370 

12380 

12390 

12400 

12410 ; 

12420 ; 

12430 ; 

12440 

12450 

12460 

12470 ; 

12480 ; 

12490 ; 

12500 

12510 

12520 

12530 

12540 

12550 ; 

12560 ; 

12570 ; 

12580 

12590 

12600 

12610 

12620 ; 

12630 ; 

12640 ; 

12650 

12660 

12670 

12680 

12690 ; 

12700 ; 

12710 ; 

12720 

12730 

12740 

12750 



NZ,BYTOUT2 ;Display S if so 
Display an "I" if file is invisible 

;Is it an INV file? 

; Display I if so 
Point HL => Password Hash (DIR+16) 



BIT 

LD 

CALL 



3,B 

A ' I' 

NZ,BYT0UT2 



PUSH 
LD 
ADD 
LD 



HL 
A,L 
A, 16 



Pick up Password in DE 



LD 

INC 

LD 



E,(HL) 

L 

D S (HL) 



;Save ptr to 1st dir byte 
;Pt to owner password 

;HL => DIR+16 



;P/u in password in DE 



Is this a password protected File ? 



PUSH 

LD 

SBC 

POP 

JR 



HL 

HL S BLKHASH 

HL 9 DE 

HL 

Z,DONAM6 



;Save ptr to user psw 
; Ini t to blanks hash 
;Is password blanks? 



;Blanks - no "P"assword 

Password - Display "P" if access <> ALL 

LD A S B ;P/u attributes byte 

AND 7 ;Get protection level 

LD A,'P' ;Init for protected 

JR NZ S D0NAM7 ; Stuff the *P* if prot 

Access = ALL S Pick up USER password in DE 



INC 
LD 
INC 
LD 



L 

E,(HL) 
L 
D,(HL) 



;HL => User Password 
;P/u in DE 



Set A = "P" is User Password <> blank 

; Ini t to blanks hash 



LD 
SBC 
LD 
JR 



HL,BLKHASH 
HL,DE 
A ' P' 
NZ,D0NAM7 

A,' ' 



; Ini t to Protected 

; Stuff 'P' if accOblank 

; else stuff a blank 



12760 D0NAM6 LD 

12770 ; 

12780 ; Set Password flag if protected & display "P" 

12790 ; 

12800 D0NAM7 LD (ALL02+1),A ; Stuff 'P* or blank 

12810 CP ' ' ; Space ? 

12820 CALL NZ,BYT0UT2 ;Display char if needed 

12830 POP HL ;HL => DIR+0 

12840 ; 

12850 ; Display a "C" if the file was Created 
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12860 ; 






27E5 23 


12870 


INC 


HL ;HL => DIR+1 


27E6 7E 


12880 


LD 


A, (HI) ;P/u attributes 


27E7 2B 


12890 


DEC 


HL ;HL => DIR+0 


27E8 07 


12900 


RLCA 


;Created ? 


27E9 3E43 


12910 


LD 


A,'C ;"C"reate character 


27 EB DCCA29 


12920 
12930 ; 


CALL 


CBYT0UT2 ;Yes - output byte 




12940 ; 


Display 


' Mod flag here if (A) not specified 




12950 ; 






27EE 3A0628 


12960 


LD 


A,(APARM+1) ;P/u A-parm 


27F1 B7 


12970 


OR 


A 


27F2 F5 


12980 


PUSH 


AF ;Save condition 


27F3 CC3729 


12990 


CALL 


Z,OUTMOD ;Output mod flag if -A 


27F6 Fl 


13000 
13010 ; 


POP 


AF ;NZ - (A) parm 




13020 ; 


If (A) 


parameter given - then tab to col 26 




13030 ; 






27F7 2804 


13040 


JR 


Z,D0NAM8 ; Not A - go to 20 


27F9 3E06 


13050 


LD 


A, 6 ;Add 6 to column # 


27FB 81 


13060 


ADD 


A,C 


27FC 4F 


13070 
13080 ; 


LD 


C S A ;C = # of spaces 




13090 ; 


Position to Next designated column 




13100 ; 






27FD 3E20 


13110 D0NAM8 


LD 


A, ' ' ; Write a space 


27FF CDCB29 


13120 


CALL 


BYTOUT ;0utput byte 


2802 0D 


13130 


DEC 


C ;Dec column counter 


2803 20F8 


13140 
13150 ; 


JR 


NZ,D0NAM8 ; Display trailing spaces 




13160 ; 


Display 


' other things if (A) parm set 




13170 ; 






2805 IIFFFF 


13180 APARM 


LD 


DE.-l ;P/u (A) parm 


2808 7A 


13190 


LD 


A,D ;Specified ? 


2809 B3 


13200 


OR 


E 


280A C42528 


13210 
13220 ; 


CALL 


NZ S ALL01 ;Full info if A-parm 




13230 ; 


Check for end of line 




13240 ; 






280D 3E00 


13250 D0NAM9 


LD 


A,0 ;Count down 4-across 


280F 3D 


13260 


DEC 


A 


2810 320E28 


13270 


LD 


(D0NAM9+1) 9 A ;Update count 


2813 C0 


13280 


RET 


NZ ;Loop if more to go 


2814 3E04 


13290 


LD 


A 9 4 ; else re-init to 4/line 


2816 320E28 


13300 
13310 ; 


LD 


(D0NAM9+1) 9 A 




13320 ; 


Finished with one line - end with C/R 




13330 ; 






2819 3E0D 


13340 ENDLINE 


LD 


A,CR ;End line 


281B CDCB29 


13350 


CALL 


BYTOUT 


281E CD652A 


13360 


CALL 


CKPAGE ;Check for page pause 


2821 CD932A 


13370 


CALL 


CKPAWS ;Scan pause or break 


2824 C9 


13380 
13390 ; 


RET 


;Loop 




13400 ; 


ALL01 - 


Display Full Allocation of a file 




13410 ; 






2825 E5 


13420 ALL01 


PUSH 


HL ;Save pointer to 1st byte 


2826 3E00 


13430 ALL02 


LD 


A,0 ;Bypass if not 


2828 D620 


13440 


SUB 


20H ; password protected 
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282A 2803 


13450 


JR 


Z 9 ALL03 




282C 7E 


13460 


LD 


A 9 (HL) 


;Get prot level & 


282D E607 


13470 


AND 


7 


; multiply by 4 


282F 07 


13480 ALL03 


RLCA 




; to index string array 


2830 07 


13490 


RLCA 






2831 4F 


13500 


LD 


U jfl 




2832 0600 


13510 


LD 


B 9 




2834 21462D 


13520 


LD 


HL s PROTS$ 


;Pt to 4-char abbrevs 


2837 09 


13530 


ADD 


HL S BC 


;Pt to proper one 


2838 11A72C 


13540 


LD 


DE S PLEVEL 


;Move into output line 


283B 0E04 


13550 


LD 


C 9 4 




283D EDB0 


13560 


LDIR 






283F El 


13570 


POP 


HL 


;Recover pointer to 


2840 E5 


13580 


PUSH 


HL 


; 1st byte of dir recon 


2841 2C 


13590 


INC 


L 




2842 2C 


13600 


INC 


L 




2843 2C 


13610 
13620 ; 


INC 


L 






13630 ; 


Pick up 


EOF offset byt 


:e & Stuff for later 




13640 ; 








2844 7E 


13650 


LD 


A,(HL) 


;P/u EOF offset byte 


2845 329628 


13660 
13670 ; 


LD 


(EOFBYTE+l) s A 


; Stuff into LD DE s $-$ 




13680 ; 


calculate EOF record c 


iccordinq to the formula: 




13690 ; 


EOFREC= 


((ERN-1)*256+E0F+LRL-1)/LRL if ERNO0 




13700 ; 


EOFREC= 


if ERN=0 






13710 ; 








2848 7E 


13720 


LD 


A S (HL) 


;P/u EOF offset byte 


2849 F5 


13730 


PUSH 


AF 


; & save it 


284A 2C 


13740 


INC 


L 


, P t to LR L 


284B 7E 


13750 


LD 


A 9 (HL) 


;P/u LRL 


284C 326A28 


13760 
13770 ; 


LD 


(ALL04+1) S A 


; & stuff it 




13780 ; 


get LRL 


into message 






13790 ; 








284F E5 


13800 


PUSH 


HL 


;Save ptr 


2850 6F 


13810 


LD 


L 9 A 


;Transfer LRL to HL 


2851 2600 


13820 


LD 


H,0 




2853 B7 


13830 


OR 


A 


;Test for <> 256 


2854 2001 


13840 


JR 


NZ,$+3 




2856 24 


13850 


INC 


H 


;Show 256 


2857 11AE2C 


13860 


LD 


DE 9 LRL 


;DE => LRL destination 


285A 3E20 


13870 


LD 


A 9 » • 


;Init the ASCII byte 


285C CD382A 


13880 


CALL 


CVD100 


;Cvrt to msg field 


285F El 


13890 
13900 ; 


POP 


HL 






13910 ; 


continue to calculate 


EOF 




13920 ; 








2860 7D 


13930 


LD 


r\ 3 L 


;Pt to ERN 


2861 C610 


13940 


ADD 


A 9 16 




2863 6F 


13950 


LD 


L 9 A 




2864 5E 


13960 


LD 


E 9 (HL) 


;P/u into reg DE 


2865 2C 


13970 


INC 


L 




2866 56 


13980 


LD 


D 9 (HL) 




2867 CI 


13990 


POP 


BC 


;Rcvr EOF byte in reg B 


2868 EB 


14000 


EX 


DE S HL 


;Xfer EOFREC -> reg HL 


2869 3E00 


14010 ALL04 


LD 


A,0 


;P/u LRL 


286B B7 


14020 


OR 


A 




286C 2818 


14030 


JR 


Z.TSTSIZ 


;Go use ERN if LRL=0 
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286E 5F 


14040 




LD 


E,A 


;Xfer LRL to reg E 


286F 04 


14050 




INC 


B 


;Test EOF 


2870 05 


14060 




DEC 


B 




2871 2801 


14070 




JR 


Z, DONTDEC 


; Don't dec ERN if EOF=0 


2873 2B 


14080 




DEC 


HL 


;Reduce ERN for offset 


2874 CD3029 


14090 


DONTDEC 


CALL 


DIVIDE 




2877 4D 


14100 




LD 


C,L 




2878 54 


14110 




LD 


D,H 




2879 67 


14120 




LD 


H,A 




287A 68 


14130 




LD 


L,B 


;P/u EOF 


287B 7B 


14140 




LD 


A,E 




287C CD3029 


14150 




CALL 


DIVIDE 




287F 61 


14160 




LD 


H,C 




2880 B7 


14170 




OR 


A 




2881 2801 


14180 




JR 


Z,DONTINC 




2883 23 


14190 




INC 


HL 


;Round up partial record 


2884 7A 


14200 


DO NT INC 


LD 


A,D 


;Ck if overflow 


2885 B7 


14210 




OR 


A 




2886 280D 


14220 TSTSIZ 


JR 


Z,EOFBYTE 


;Use calc'd ERN if not 




14230 


s 










14240 


s 


Overf 1 


ow in # of Records - use "*****" 




14250 


s 








2888 21D22D 


14260 




LD 


HL, STARS 




288B 11B32C 


14270 




LD 


DE, RECORDS 


;DE => Destination 


288E 010500 


14280 




LD 


BC,5 




2891 EDB0 


14290 




LDIR 






2893 181B 


14300 




JR 


DIR_0 






14310 


» 










14320 


9 


If # F 


Records = then set EOF = 




14330 


9 








2895 110000 


14340 


EOF BYTE 


LD 


DE,00 


;P/u EOF offset byte 


2898 7C 


14350 




LD 


A,H 


;# Records = ? 


2899 B5 


14360 




OR 


L 




289A 2002 


14370 




JR 


NZ, KEEPEOF 


;No - keep EOF 


289C 1E01 


14380 




LD 


E,l 


;Set EOF=l (gets DECed) 


289E E5 


14390 KEEPEOF 


PUSH 


HL 


;Save # Records 


289F 21BB2C 


14400 




LD 


HL, OFFSET 


;HL => Destination 


28A2 ID 


14410 




DEC 


E 


;DE = EOF byte 


28A3 EB 


14420 




EX 


DE S HL 


;Swap for conversion 


28A4 3E20 


14430 




LD 


A,' ' 


;Init 


28A6 CD382A 


14440 
14450 


5 


CALL 


CVD100 


;Convert 




14460 


9 


Stuff 


# of Records 


used into string 




14470 


9 








28A9 El 


14480 




POP 


HL 


;Recover # of Records 


28 AA 11B32C 


14490 




LD 


DE, RECORDS 


;DE => Destination 


28AD CD2A2A 


14500 
14510 


9 


CALL 


CVDDEC 


; & stuff into message 




14520 


» 


Get # 


of extents & 


Granules used 




14530 


9 








28B0 El 


14540 


DIR_0 


POP 


HL 


;Rcvr ptr to 1st byte 


28B1 E5 


14550 




PUSH 


HL 




28B2 CD4529 


14560 




CALL 


ALL09 


;Get total grans in use 


28B5 D5 


14570 




PUSH 


DE 




28B6 69 


14580 




LD 


L,C 


;Xfer # extents 


28B7 60 


14590 




LD 


H,B 




28B8 llCD2C 


14600 




LD 


DE, EXTENTS 




28BB 3E20 


14610 




LD 


A,' ' 




28BD CD3E2A 


14620 




CALL 


CVD10 


;Cvrt to decimal & stuff 
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28C0 Dl 


14630 
14640 ; 


POP 


DE 






14650 ; 


DE = 


# Grans used - Add 


to Grans Counter 




14660 ; 








28C1 2A0226 


14670 


LD 


HL,(TOTGRNS+l) 


;P/u total grans 


28C4 19 


14680 


ADD 


HL,DE 


;Add this file's count 


28C5 220226 


14690 
14700 ; 


LD 


(TOTGRNS+l),HL 


; & stuff into counter. 


28C8 21C02C 


14710 


LD 


HL.KSIZE 


;Pt to where to stuff 


28CB CDE829 


14720 


CALL 


CALCK 


;Cvrt to K 


28CE 21D32C 


14730 


LD 


HL.DATEFLD-1 


; Blank out day-mo-yr 


28 Dl 11D42C 


14740 


LD 


DE,DATEFLD 




28 D4 010900 


14750 


LD 


BC,9 




28 D7 EDB0 


14760 


LDIR 






28D9 El 


14770 


POP 


HL 


;Rcvr ptr to DIR+0 


28DA 11D42C 


14780 


LD 


DE,DATEFLD 




28 DD 23 


14790 


INC 


HL 




28 DE 23 


14800 


INC 


HL 


;Advance to date field 


28DF 7E 


14810 


LD 


A,(HL) 




28E0 B7 


14820 


OR 


A 




28E1 2841 


14830 


JR 


Z,ALL08 


; Ignore if no date saved 


28E3 0F 


14840 


RRCA 




;Has date, get day 


28E4 0F 


14850 


RRCA 






28 E5 0F 


14860 


RRCA 






28E6 E61F 


14870 


AND 


1FH 




28E8 062F 


14880 


LD 


B,2FH 


;Convert day to decimal 


28 EA 04 


14890 ALL06 


INC 


B 


;By counting # of 10' s 


28EB D60A 


14900 


SUB 


10 


;Sub 10 from day # 


28ED 30FB 


14910 


JR 


NC.ALL06 




28EF C63A 


14920 


ADD 


A, 3 AH 


;Cvrt lo order to ASCII 


28F1 F5 


14930 


PUSH 


AF 


;Save day low order 


28F2 78 


14940 


LD 


A,B 


; Stuff day hi order 


28F3 12 


14950 


LD 


(DE) S A 




28F4 13 


14960 


INC 


DE 


;Bump 


28F5 Fl 


14970 


POP 


AF 


;Rcvr lo order day # 


28F6 12 


14980 


LD 


(DE),A 


; Stuff low order 


28F7 13 


14990 


INC 


DE 


;Bump pointer to msg 


28F8 13 


15000 


INC 


DE 


; to pt to month field 


28F9 E5 


15010 


PUSH 


HL 


;Save DIR ptr 


28FA 2B 


15020 


DEC 


HL 


;Pt to DIR+1 (month+) 


28FB 7E 


15030 


LD 


A,(HL) 


;P/u month etc 


28FC E60F 


15040 


AND 


0FH 


; Strip off flags 


28FE 3D 


15050 


DEC 


A 


;(mon-l)*3 to index 


28FF 4F 


15060 


LD 


C,A 


;String conversion table 


2900 07 


15070 


RLCA 






2901 81 


15080 


ADD 


A,C 




2902 4F 


15090 


LD 


C,A 




2903 0600 


15100 


LD 


B,0 




2905 21AE2D 


15110 


LD 


HL,MONTBL 




2908 09 


15120 


ADD 


HL,BC 


;Add offset to table 


2909 0E03 


15130 


LD 


C,3 




290B EDB0 


15140 


LDIR 




;Move 3-char month 


290D 13 


15150 


INC 


DE 


;Advance to year field 


290E 3E38 


15160 


LD 


A, '8' 


; Stuff 8 of 1980 


2910 12 


15170 


LD 


(DE),A 




2911 13 


15180 


INC 


DE 


;Bump msg ptr 


2912 El 


15190 


POP 


HL 


;Rcvr DIR+2 


2913 E5 


15200 


PUSH 


HL 




2914 7E 


15210 


LD 


A,(HL) 


;P/u year field 



Page 145 



The Source 


LIBRARY Fi 


les 


DIR - LS-DOS 6 


.2 Page 00021 


LBDIRC - File 


Attribute Output 






2915 E607 


15220 


AND 


7 


;Remove day 


2917 C630 


15230 


ADD 


A,'0' 


;Cvrt to ASCII 


2919 12 


15240 


LD 


(DE) 9 A 


; Stuff -> msg 


291A El' 


15250 


POP 


HL 


;Rcvr DIR+2 


291B 2B 


15250 


DEC 


HL 


;B/u to DIR+1 


291C 3E2D 


15270 


LD 


A,'-' 


;Else change to not cur 


291E 32D62C 


15280 


LD 


(DATEFLD+2) 9 A 


; Stuff indicator 


2921 32DA2C 


15290 


LD 


(DATEFLD+6) 9 A 


; between mo&day 9 day&yr 


2924 21A72C 


15300 ALL08 


LD 


HL.PLEVEL 


;Pt to start of message 


2927 CDB929 


15310 


CALL 


LINOLIT 


; & output entire string 


292A 3E01 


15320 


LD 


r\ s I 


;Show only one entry 


292C 320E28 


15330 


LD 


(D0NAM9+1) 9 A 


; per line if A-parm 


292F C9 


15340 
15350 ; 


RET 








15360 ; 


DIVIDE 


- Divide HL by 


A 




15370 ; 








2930 C5 


15380 DIVIDE 


PUSH 


BC 


;Save BC 


2931 4F 


15390 


LD 


C S A 


;Xfer Divisor in C 


2932 


15400 


(30DIV16 




;Divide HL / C 


l jjc. <jl.DC 


00020 


LD 


A 9 94 




2934 EF 


00021 


RST 


40 




2935 CI 


15410 


POP 


BC 


;Restore BC 


2936 C9 


15420 
15430 ; 


RET 








15440 ; 


OUTMOD 


- Output a "+" 


if file has been modified 




15450 ; 








2937 23 


15460 OUTMOD 


INC 


HL 


;HL => DIR+1 


2938 3E20 


15470 


LD 


A,' ' 


; Default to no mod 


293A CB75 


15480 


BIT 


6 9 (HL) 


;Test MOD flag 


293C 2802 


15490 


JR 


Z, OUTCHR 


;0utput space 


293E 3E2B 


15500 


LD 


A,' + ' 


;Mod flag char 


2940 CDCA29 


15510 OUTCHR 


CALL 


BYT0UT2 


; Display' '+• if MOD 


2943 2B 


15520 


DEC 


HL 


;Repoint to 1st byte 


2944 C9 


15530 
15540 ; 
15550 ; 


RET 




;Done 




15560 ; 


routine calculates total # of grans in use 




15570 ; 








2945 3AF926 


15580 ALL09 


LD 


A 9 (S0RTPRM+1) 


;If sorted, then data 


2948 B7 


15590 


OR 


A 


; already calculated 


2949 2810 


15600 


JR 


Z 9 ALL09A 


;Go if not sorted 


294B E5 


15610 


PUSH 


HL 




294C DDE1 


15620 


POP 


IX 


;P/u the saved data 


294E DD5E16 


15630 


LD 


E 9 (IX+22) 




2951 DD5617 


15640 


LD 


D s (IX+23) 


;P/u Space used 


2954 DD4E18 


15650 


LD 


C 9 (IX+24) 




2957 DD4619 


15660 


LD 


B 9 (IX+25) 


;P/u # of extents 


295A C9 


15670 
15680 ; 


RET 








15690 ; 


ALL09A 


- Calculate space allocated to a file 




15700 ; 


HL => DIR+0 of an FPDE 






15710 ; 


BC <= # 


of Extents in 


the file 




15720 ; 


DE <= # 


of Grans alloc 


ated to the file 




15730 ; 








295B 110000 


15740 ALL09A 


LD 


DE s 


; Ini t gran counter to 


295E 43 


15750 


LD 


B 9 E 


;Init extent ctr to 


295F 4B 


15760 
15770 ; 


LD 


C,E 






15780 ; 


Point to First Extent 


of a directory entry 
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15790 ; 








2960 7D 


15800 ALL10 


LD 


A,L 


;P/u low byte 


2961 C616 


15810 ALL11 


ADD 


A, 22 




2963 6F 


15820 
15830 ; 


LD 


L,A 


;HL => DIR + 22 




15840 ; 


Is the 


Extent Field in 


Use ? 




15850 ; 








2964 7E 


15860 ALL14 


LD 


A,(HL) 


;P/u cylinder 


2965 2C 


15870 


INC 


L 


;Bump to alloc info 


2966 FEFE 


15880 


CP 


0FEH 


;Another extent or done ? 


2968 300 D 


15890 
15900 ; 


JR 


NC.ALL15 


;Either X'FE' or X'FF* 




15910 ; 


Extent 


Field is in use 


- Get allocation info 




15920 ; 








296A 03 


15930 


INC 


BC 


;Bump extent counter 


296B 7E 


15940 


LD 


A,(HL) 


;P/u alloc info 


296C 2C 


15950 


INC 


L 


;Bump ptr to next extent 


296D E61F 


15960 


AND 


1FH 


;Keep # of grans 


296F 3C 


15970 
15980 ; 


INC 


A 


;Adj for zero offset 




15990 ; 


A = # 


of contig grans, 


add to gran counter 




16000 ; 








2970 83 


16010 


ADD 


Hjt 


Accumulate # of grans 


2971 5F 


16020 


LD 


E 9 A 




2972 30F0 


16030 


JR 


NC,ALL14 


;Forget hi if no carry 


2974 14 


16040 


INC 


D 


;Bump hi 


2975 18ED 


16050 
16060 ; 


JR 


ALL14 


;Get next extent field 




16070 ; 


P/u DEC if (X'FE') or f 


*ET if done (X'FF 1 ) 




16080 ; 








2977 C0 


16090 ALL15 


RET 


NZ 


;Ret if not extended 


2978 7E 


16100 
16110 ; 


LD 


A S (HL) 


;P/u DEC of FXDE 




16120 ; 


Poi nt 


HL => Extended D 


irectory Entry posn 




16130 ; 








2979 E61F 


16140 


AND 


1FH 


;Get dir sector of DEC 


297B F5 


16150 


PUSH 


AF 


;Save it 


297C AE 


16160 


XOR 


(HL) 


;Get dir record of FXDE 


297D 6F 


16170 


LD 


L 9 A 


;Save dir record position 


297E Fl 


16180 
16190 ; 


POP 


AF 


;Recover DEC of FXDE 




16200 ; 


Is the 


Dir Sector with 


FXDE already in mem ? 




16210 ; 








297F E5 


16220 


PUSH 


HL 


;Save ptr to 1st extent 


2980 215226 


16230 


LD 


HL S CKHIT6+1 


;Do we have this dir 


2983 BE 


16240 


CP 


(HL) 


; sector in core? 


2984 El 


16250 


POP 


HL 


;Restore ptr 


2985 2600 


16260 SBUFFER 


LD 


H,00 


; Buffer hi order 


2987 28 D7 


16270 
16280 ; 


JR 


Z 9 ALL10 


;Jump if we have it 




16290 ; 


Dir Sector not res - I: 


s Ext buf resident ? 




16300 ; 








2989 FE00 


16310 ALL16 


CP 





;Sarne as extended area? 


298B 262F 


16320 


LD 


H 9 BUF2<-8 


;Pt to extended buf area 


298 D 28 Dl 


16330 


JR 


Z 9 ALL10 


;Jump if we have it there 


298F 328A29 


16340 
16350 ; 


LD 


(ALL16+1) 9 A 


; else upd the test byte 




16360 ; 


Set B ■■ 


= Directory Entry Code of FXDE 




16370 ; 
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2992 C5 


16380 


PUSH 


BC 


;Save Gran counter 


2993 D5 


16390 


PUSH 


DE 


; & Extent counter 


2994 B5 


16400 


OR 


L 


; Combine sector & record 


2995 47 


16410 
16420 ; 


LD 


B,A 


; pointers to retrieve DEC 




16430 ; 


Set C = 


Logical Drive #, 


D = Directory Cyl 




16440 ; 








2996 3A0E2C 


16450 


LD 


A, (DRIVE) 


;P/u ASCII drive # 


2999 D630 


16460 


SUB 


'0' 


; Adjust to binary 


299B 4F 


16470 


LD 


C,A 


;Save in C 


299C FD5609 


16480 
16490 ; 


LD 


D s (IY+9) 


;P/u Directory cyl in D 




16500 ; 


Set E = 


FXDE's Dir Sector, HL => I/O buffer 




16510 ; 








299F 78 


16520 


LD 


A,B 


;P/u DEC 


29A0 E61F 


16530 


AND 


1FH 


;Get sector # 


29A2 C602 


16540 


ADD 


A, 2 


;Adj for GAT & HIT 


29A4 5F 


16550 


LD 


E,A 


; Stuff in E 


29A5 21002F 


16560 
16570 ; 


LD 


HL,BUF2 


;HL => I/O Buffer 




16580 ; 


Read in 


the FXDE's Dired 


tory Sector 




16590 ; 








29A8 


16600 


@(s>RDSEC 




;Read a sector 


29A8 3E31 


00022 


LD 


A, 49 




29AA EF 


00023 


RST 


40 




29AB FE06 


16610 


CP 


6 


; Expecting Error #6 


29AD 3E11 


16620 


LD 


A,11H 


;Read error? 


29AF C21E24 


16630 
16640 ; 


JP 


NZ s IOERR 


;Jump if got error 




16650 ; 


Set A = 


offset into Sector of entry 




16660 ; 








29 B2 78 


16670 


LD 


A S B 


;P/u FXDE DEC 


29B3 E6E0 


16680 


AND 


0E0H 


;Pt to dir record 


29B5 Dl 


16690 


POP 


DE 


;Restore counters 


29B6 CI 


16700 


POP 


BC 




29 B7 18A8 


16710 
16720 ; 


JR 


ALL11 


;Loop through extents 




16730 ; 


LINOUT 


- Output line to " 


*DO/*PR 




16740 ; 


HL => Buffer to output 






16750 ; 








29 B9 


16760 LINOUT 


@@DSPLY 




;0utput line to *D0 




00024 


IFEQ 


00H,1 






00025 


LD 


HL, 






00026 


ENDIF 






29 B9 3E0A 


00027 


LD 


A, 10 




29 BB EF 


00028 


RST 


40 




29 BC 2008 


16770 


JR 


NZ,IOERl 


;NZ - Abort 


29 BE 3AD329 


16780 


LD 


A,(PPARM+1) 


;Ck P-parm 


29C1 B7 


16790 


OR 


A 




29C2 C8 


16800 


RET 


Z 


;Not spec'd - don't print 


29C3 


16810 


(SPRINT 




;0utput line to *PR 




00029 


IFEQ 


00H,1 






00030 


LD 


HL, 






00031 


ENDIF 






29C3 3E0E 


00032 


LD 


A, 14 




29C5 EF 


00033 


RST 


40 




29C6 C21E24 


16820 IOER1 


JP 


NZ,IOERR 


;NZ - Abort 


29C9 C9 


16830 
16840 ; 


RET 
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16850 




BYTOUT 


- Output a 


byte 


to *DO/*PR 




16860 




A = Character to 


output 






16870 












29CA 0D 


16880 


BYTOUT2 


DEC 


C 




; Decrement col # 


29CB C5 


16890 BYTOUT 


PUSH 


BC 




;Save BC 


29CC 4F 


16900 




LD 


C,A 




;Save char in C 


29CD 


16910 




@(?DSP 






;Display char 


29CD 3E02 


00034 




LD 


A,2 






29CF EF 


00035 




RST 


40 






29D0 20F4 


16920 




JR 


NZ,IOERl 




;NZ - Abort 


29 D2 110000 


16930 


PPARM 


LD 


DE,0 




;P/u P-parm 


29D5 1C 


16940 




INC 


E 




; Specified ? 


29 D6 2006 


16950 




JR 


NZ, NOPRT 




;No - don't print 


29 D8 


16960 




@@PRT 






;Output byte 


29 D8 3E06 


00036 




LD 


A, 6 






29 DA EF 


00037 




RST 


40 






29DB 20E9 


16970 




JR 


NZ,IOERl 




;NZ - Abort 


29 DD 79 


16980 




LD 


A,C 




;Get back char 


29DE CI 


16990 


NOPRT 


POP 


BC 




;Restore BC 


29DF C9 


17000 
17010 


3 


RET 






;And return 




17020 


J 


OUTSPC 


- Output B 


spaces 




17030 


J 










29E0 3E20 


17040 OUTSPC 


LD 


A,' ' 




; Space char 


29E2 CDCA29 


17050 




CALL 


BYT0UT2 




;Output space 


29E5 10F9 


17060 




DJNZ 


OUTSPC 






29E7 C9 


17070 




RET 






;RETurn 


29E8 


00300 


*GET LBDIRC :3 










17080 


;LBDIRC/ASM - DIR math, strings 


, & buffers 


29E8 


17090 




SUBTTL 


'<LBDIRC 


- Math 


Routines>' 
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29E8 


17100 
17110 ; 


PAGE 








17120 ; 


CALCK 


- Calculate the # 


of K given # of Grans 




17130 ; 


DE => 


# of Granules 






17140 ; 


HL => 


Destination of #K 


ASCII string 




17150 ; 








29E8 22FD29 


17160 CALCK 
17170 ; 


LD 


(CALCK2+1) S HL 


;Stuff dest address 




17180 ; 


Calc # of Free Sects (S> 


ectors/Gran x Grans) 




17190 ; 








29EB EB 


17200 


EX 


DE,HL 


;HL = # of Free Grans 


29EC 0E00 


17210 CALCK1 


LD 


C« 3>-$ 


;C = Sectors/Gran 


29EE 


17220 


@@MUL16 


;Mult HL x C 


29EE 3E5B 


00038 


LD 


A, 91 




29F0 EF 


00039 
17230 ; 


RST 


40 






17240 ; 


LA = Total # of Sectors 


- Divide by 4 for K 




17250 ; 








29F1 F5 


17260 


PUSH 


AF 


;Save offset 


29F2 65 


17270 


LD 


H,L 


;Set HL = LA 


29F3 6F 


17280 


LD 


L,A 




29F4 CB3C 


17290 


SRL 


H 


;Divide HL / 4 


29F6 CB1D 


17300 


RR 


L 




29F8 CB3C 


17310 


SRL 


H 




29FA CB1D 


17320 
17330 ; 


RR 


L 






17340 ; 


P/u dest address & stuff in # of FULL K 




17350 ; 








29 FC 110000 


17360 CALCK2 


LD 


DE 9 $-$ 


;P/u destination address 


29FF CD2A2A 


17370 


CALL 


CVDDEC 


; Stuff in message 


2A02 13 


17380 
17390 ; 


INC 


DE 


;DE => Hundredths 




17400 ; 


Stuff 


hundredths value 


into string 




17410 ; 








2A03 Fl 


17420 


POP 


AF 


;Rcvr offset to 


2A04 E603 


17430 


AND 


3 


;Get offset 


2A06 87 


17440 


ADD 


A,A 




2A07 0600 


17450 


LD 


B 9 




2A09 4F 


17460 


LD 


C 9 A 


;BC = offset 


2A0A 21722D 


17470 


LD 


HL 9 HUNDTAB 


;HL => Hundredths table 


2A0D 09 


17480 


ADD 


HL 9 BC 


;HL => Hundredths offset 


2A0E 0E02 


17490 


LD 


C s 2 


;BC = 2 characters 


2A10 EDB0 


17500 


LDIR 




;Transfer to DE 


2A12 C9 


17510 
17520 ; 


RET 








17530 ; 


CPHLDE 


'. - Compare HL to 1 


DE 




17540 ; 








2A13 7C 


17550 CPHLDE 


LD 


A 9 H 


;P/u high byte 


2A14 BA 


17560 


CP 


D 


;Same ? 


2A15 C0 


17570 


RET 


NZ 


;No - Return C or NC 


2A16 7D 


17580 


LD 


A S L 


;P/u low byte 


2A17 BB 


17590 


CP 


E 


;Less than or greater ? 


2A18 C9 


17600 
17610 ; 


RET 




;Return - C, NC 9 or Z 




17620 ; 


UNPACK 


; - Unpack the Dat< 


2 from a directory entry 




17630 ; 


HL => 


DIR+1 






17640 ; 


DE <= 


Date in DATES format 




17650 ; 








2A19 7E 


17660 UNPACK 


LD 


A 9 (HL) 


;P/u DIR+1 


2A1A E60F 


17670 


AND 


0FH 


;Bits 3-0 contain month 
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2A1C 57 


17680 
17690 ; 


LD 


D 9 A 


;Save month in D 




17700 ; 


D = Month (1-12) 






17710 ; 








2A1D 23 


17720 


INC 


HL 


;HL => DIR+2 


2A1E 7E 


17730 


LD 


A S (HL) 


;P/u Day/ Year byte 


2A1F E6F8 


17740 


AND 


0F8H 


;Mask off the year 


2A21 5F 


17750 


LD 


E 9 A 


;Save day in E 


2A22 7E 


17760 


LD 


A S (HL) 


;P/u Day/ Year byte 


2A23 AB 


17770 


XOR 


E 


; Strip off day 


2A24 0F 


17780 


RRCA 




;Year to bits 5-7 


2A25 0F 


17790 


RRCA 






2A26 0F 


17800 


RRCA 






2A27 B2 


17810 


OR 


D 


; and merge with month 


2A28 57 


17820 


LD 


D 9 A 




2A29 C9 


17830 
17840 ; 


RET 








17850 ; 


conversion of grans 


to decimal 




17860 ; 








2A2A 3E20 


17870 CVDDEC 


LD 


A 9 ! ' 




2A2C 011027 


17880 


LD 


BC , 10000 


;Init 1st power or 10 


2A2F CD4A2A 


17890 


CALL 


CVD0 


;Make ASCII 


2A32 01E803 


17900 


LD 


BC.1000 


;Continue until Is 


2A35 CD4A2A 


17910 


CALL 


CVD0 




2A38 016400 


17920 CVD100 


LD 


BC , 100 




2A3B CD4A2A 


17930 


CALL 


CVD0 




2A3E 010A00 


17940 CVD10 


LD 


BC 9 10 




2A41 CD4A2A 


17950 


CALL 


CVD0 




2A44 7D 


17960 


LD 


A,L 




2A45 C630 


17970 


ADD 


A 9 30H 




2A47 12 


17980 


LD 


(DE),A 




2A48 13 


17990 


INC 


DE 




2A49 C9 


18000 


RET 






2A4A D5 


18010 CVD0 


PUSH 


DE 




2A4B 5F 


18020 


LD 


E,A 


;Fill character 


2A4C 16 FF 


18030 


LD 


D.0FFH 


; Init to 


2A4E AF 


18040 


XOR 


A 




2A4F 14 


18050 CVD1 


INC 


D 


;Inc digit counter 


2A50 ED42 


18060 


SBC 


HL 9 BC 




2A52 30FB 


18070 


JR 


NC 9 CVD1 


;Sub power/10 til carry 


2A54 09 


18080 


ADD 


HL 9 BC 


;Add back the carry 


2A55 7B 


18090 


LD 


A 9 E 




2A56 42 


18100 


LD 


B,D 


;Get count this power 


2A57 Dl 


18110 


POP 


DE 




2A58 12 


18120 


LD 


(DE) 9 A 


; Default char to buffer 


2A59 04 


18130 


INC 


B 




2A5A 05 


18140 


DEC 


B 


;Was count = 0? 


2A5B 2806 


18150 


JR 


Z 9 CVD2 


;6o if so 


2A5D 78 


18160 


LD 


A S B 




2A5E C630 


18170 


ADD 


A 9 30H 


; else make count ASCII 


2A60 12 


18180 


LD 


(DE),A 


; and store in buffer 


2A61 3E30 


18190 


LD 


A 9 30H 




2A63 13 


18200 CVD2 


INC 


DE 


;Advance buffer 


2A64 C9 


18210 
18220 ; 


RET 








18230 ; 


CKPAGE 


- Check for 


Page Pause 




18240 ; 








2A65 3E00 


18250 CKPAGE 


LD 


A 9 $-$ 


;Ck for display pause 


2A67 3D 


18260 


DEC 


A 


;Count down 
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2A68 32662A 


18270 




LD (CKPAGE+1),A ;Update 


2A6B C0 


18280 




RET NZ ;Ret if not yet full 




18290 


> 






18300 


s 


Displayed a full page - Reset Counter 




18310 


9 




2A6C 3E16 


18320 




LD A, 22 ;Reset to max lines/pag 


2A6E 32662A 


18330 
18340 




LD (CKPAGE+1),A 




18350 




Don't pause if NOPAUSE (N) parm entered 




18360 






2A71 110000 


18370 


NPARM 


LD DE,0 ;P/u NOPAUSE parm 


2A74 7B 


18380 




LD A S E Specified ? 


2A75 B2 


18390 




OR D 


2A76 C0 


18400 




RET NZ ; Nonstop if non-zero 




18410 


9 






18420 


S 


Non-Stop if <D0> in effect 




18430 


» 




2A77 3E00 


18440 


SFLAG 


LD A,$-$ ;P/u SFLAG$ 


2A79 E620 


18450 




AND 20H ; Strip all but <D0> bit 


2A7B C0 


18460 




RET NZ ;Return if do in effect 




18470 


s 






18480 


s 


There isn't a <D0> in effect - Wait for key 




18490 


s 




2A7C 


18500 




@@KEY ;Wait for key entry 


2A7C 3E01 


00040 




LD A,l 


2A7E EF 


00041 




RST 40 


2A7F C21E24 


18510 


I0ERR5 


JP NZ s I0ERR 




18520 


3 






18530 


S 


Clear Screen 




18540 


S 




2A82 


18550 




@@CLS ;Clear Screen 


2A82 3E69 


00042 




LD A, 105 


2A84 EF 


00043 




RST 40 


2A85 20F8 


18560 




JR NZ 9 I0ERR5 




18570 


s 






18580 


> 


If the NOTITLE flag is set - don't display 




18590 


s 




2A87 3E00 


18600 


NOTITLE 


LD A,$-$ ;P/u flag 


2A89 B7 


18610 




OR A ;No title ? 


2A8A C0 


18620 




RET NZ ;Then RETurn 




18630 


9 






18640 


3 


Display a title if there were matching files 




18650 


s 




2A8B 3AD82D 


18660 




LD A,(FILFLAG) ;Was a matching file 


2A8E B7 


18670 




OR A ; displayed ? 


2A8F C4B12A 


18680 




CALL NZ,CKTITL ;Yes - display title 


2A92 C9 


18690 




RET ;Return 




18700 


s 






18710 


9 


CKPAWS - Check for <SHIFT><@> or <BREAK> 




18720 


9 






18730 


CKPAWS 






18740 


5 






18750 


» 


Was the <BREAK> key hit ? 




18760 


9 




2A93 3A0000 


18770 KFLAG 


LD A,($-$) ;P/u KFLAG$ 


2A96 0F 


18780 




RRCA ;<BREAK> hit ? 


2A97 DA1724 


18790 




JP C, ABORT ;Yes - cease DIR 




18800 


9 






18810 


S 


Is the <PAUSE> bit set ? 
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2A9A 0F 


18830 


RRCA 




;<PAUSE> bit set ? 


2A9B D0 


18840 
18850 ; 


RET 


NC 


;Ret if not pause 




18860 ; 


The <PAUSE> bit is set 


- Wait for Char 




18870 ; 








2A9C 


18880 CKPAW1 


(a@KEY 




;Scan keyboard 


2A9C 3E01 


00044 


LD 


A,l 




2A9E EF 


00045 
18890 ; 


RST 


40 






18900 ; 


Character entered - Ignore it if <SHIFT><@> 




18910 ; 








2A9F FE60 


18920 CKPAW2 


CP 


60H 


;<SHIFTX(a> ? 


2AA1 28F9 


18930 


JR 


Z,CKPAW1 


;Yes - get another char 


2AA3 FE80 


18940 


CP 


BREAK 




2AA5 CA1724 


18950 
18960 ; 


JP 


Z, ABORT 






18970 ; 


Reset <PAUSE> & <ENTER> 


bits 




18980 ; 








2AA8 3A0000 


18990 RESKFL 


LD 


A,($-$) 


;P/u KFLAG$ 


2AAB E6F9 


19000 


AND 


0F9H 


;Reset <PAUSE> & <ENTER> 


2AAD 320000 


19010 KFLAG1 


LD 


($-$),A 


; Stuff into KFLAG$ 


2AB0 C9 


19020 
19030 ; 


RET 




; & RETurn 




19040 ; 


CKTITL 


- Display Title 






19050 ; 










19060 ; 


Display 


Disk type Header 




19070 ; 








2AB1 21072C 


19080 CKTITL 


LD 


HL 5 DSTRING 


;HL => Heading 


2AB4 CDB929 


19090 


CALL 


LINOUT 


;0utput line 


2AB7 CD652A 


19100 


CALL 


CKPAGE 


;Bump line count 


2ABA CD652A 


19110 
19120 ; 


CALL 


CKPAGE 


; twice. 




19130 ; 


Display 


Attributes header if A parm spec'd 




19140 ; 








2ABD 3A0628 


19150 


LD 


A,(APARM+1) 


;Was the A parm spec'd 


2AC0 B7 


19160 


OR 


A 




2AC1 3E0D 


19170 


LD 


A,CR 


;Output a CR if A 


2AC3 CACB29 


19180 
19190 ; 


JP 


Z, BYTOUT 


; not specified. 


2AC6 21572C 


19200 


LD 


HL, HEADING 


;HL => Attr heading 


2AC9 CDB929 


19210 
19220 ; 


CALL 


LINOUT 


;0utput line 




19230 ; 


Display 


Underline 






19240 ; 








2ACC C5 


19250 


PUSH 


BC 


;Save BC 


2ACD 064F 


19260 


LD 


B,79 


;Display underline 


2ACF 3E2D 


19270 D79L 


LD 


A,'-' 




2AD1 CDCB29 


19280 


CALL 


BYTOUT 


;0utput byte 


2AD4 10F9 


19290 


DJNZ 


D79L 


; 79 times 


2AD6 CI 


19300 


POP 


BC 


;Restore BC 


2AD7 3E0D 


19310 


LD 


A S CR 


;One CR between 


2AD9 CDCB29 


19320 


CALL 


BYTOUT 




2ADC C3652A 


19330 
19340 ; 


JP 


CKPAGE 


;Check page pause & RET 


2ADF 


19350 
19360 ; 


SUBTTL 


'<LBDIRC - Sort 


Code>' 




19370 ; 


SORT IT 


- Set up Directory Records for Shell Sort 




19380 ; 
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2ADF 2AD92D 
2AE2 110030 
2AE5 73 
2AE6 23 
2AE7 72 
2AE8 2B 
2AE9 AF 
2AEA ED52 
2AEC C8 



2AED 0605 
2AEF CB3C 
2AF1 CB1D 
2AF3 10FA 



2AF5 45 
2AF6 C5 
2AF7 22332B 



2AFA 
2AFB 
2AFC 
2AFE 
2AFF 



2B03 



2B06 
2B09 
2B0C 
2B0F 
2B10 
2B11 
2B12 
2B13 
2B14 
2B16 
2B17 
2B19 
2B1A 
2B1C 
2B1F 
2B20 
2B23 
2B24 
2B25 
2B26 
2B27 
2B28 
2B29 
2B2A 
2B2D 
2B2E 



7C 

B5 

2821 

29 

EB 

2ADB2D 

AF 

ED52 

DA0D24 

2AD92D 

110030 

73 

23 

72 

23 

7B 

C620 

5F 

3001 

14 

10F3 

CD322B 

CI 

2AD92D 

5E 

23 

56 

23 

E5 

C5 

EB 

CD3327 

CI 

El 



LD 
SRL 
RR 
DJNZ 



19390 SORTIT LD 

19400 LD 

19410 LD 

19420 INC 

19430 LD 

19440 DEC 

19450 XOR 

19460 SBC 

19470 RET 
19480 ; 
19490 ; 
19500 ; 
19510 

19520 SORT1 
19530 
19540 
19550 ; 
19560 ; 
19570 ; 

19580 LD 

19590 PUSH 

19600 LD 
19610 ; 
19620 ; 
19630 ; 

19640 LD 

19650 OR 

19660 JR 

19670 ADD 

19680 EX 

19690 LD 

19700 XOR 

19710 SBC 

19720 JP 

19730 LD 

19740 LD 
19750 S0RT2 LD 

19760 INC 

19770 LD 

19780 INC 

19790 LD 

19800 ADD 

19810 LD 

19820 JR 

19830 INC 

19840 DJNZ 

19850 CALL 
19860 S0RT2A POP 

19870 LD 
19880 S0RT3 LD 

19890 INC 

19900 LD 

19910 INC 

19920 PUSH 

19930 PUSH 

19940 EX 

19950 CALL 

19960 POP 

19970 POP 



HL S (DIRPTR) Calculate # of records 

DE 9 MEM0RY ;Point to buf start 

(HL) 9 E ;Prime the 1st index 

HL ; in case there is 

(HL) 9 D ; only one record 

HL ; to sort 

A 

HL 9 DE ;PTREND - PTRBGN 

Z ;Ret if nothing 



Set HL = # of directory entries 



B 9 5 
H 
L 
SORT1 



; Divide by 

; 32 bytes/record 



Set B = # of entries & init count 



BC 
(COUNTMl),HL 



;Set loop counter 
;Save it for printing 
;Init the count 



Skip sort if # of entries = 



A 9 H 

L 

Z s SORT2A 

HL 9 HL 

DE 9 HL 

HL 9 (MAXMEM) 

A 

HL S DE 

C.NOMEM 

HL 9 (DIRPTR) 

DE 9 MEMORY 

(HL),E 

HL 

(HL) S D 

HL 

A 9 E 

A, 32 

E,A 

NC 9 $+3 

D 

S0RT2 

SHELL 

BC 

HL S (DIRPTR) 

E 9 (HL) 

HL 

D 9 (HL) 

HL 

HL 

BC 

DE 9 HL 

MATCH 

BC 

HL 



;If length = 

; then no need to sort 

;Make sure enuff room 



;Set up the index array 
;Starting record pointer 
; Place record pointers 
; into index array 



; Increment pointer by 32 



;6o if no overflow 
; else bump high order 
;Loop for all records 
;Sort the dir records 
;Recover loop counter 
;P/u starting record 
:Grab its address 



;Save index pointer 
;Save loop counter 
;Record address -> HL 
; Display the record 
;Rcvr loop counter 
;Rcvr index pointer 



Page 154 



The Source LIBRARY Files 

LBDIRC - Sort Code 



DIR - LS-DOS 6.2 



Page 00030 



2B2F 10F2 


19980 


DJNZ 


SORT3 






2B31 C9 


19990 
20000 ; 


RET 










20010 ; 


SHELL 


- Shell Sort Rout 


ine 




20020 ; 










2B32 210000 


20030 SHELL 


LD 


HL,$-$ 




;P/u count minus 1 


2B33 


20040 COUNTM1 


EQU 


$-2 






2B35 22392B 


20050 
20060 ; 


LD 


(STORM), 


,HL 






20070 ; 


Start 


Select & ( 


Compare 






20080 ; 










2B38 110000 


20090 CYCLE 


LD 


DE s 




;M = M / 2 


2B39 


20100 STORM 


EQU 


$-2 






2B3B CB3A 


20110 


SRL 


D 






2B3D CB1B 


20120 


RR 


E 






2B3F 7A 


20130 


LD 


A 9 D 




; Return when M=0 


2B40 B3 


20140 


OR 


E 






2B41 C8 


20150 


RET 


Z 






2B42 ED53392B 20160 


LD 


(STORM) 


9 DE 




2B46 2A332B 


20170 


LD 


HL s (COUNTMl) 


;K = N - M 


2B49 ED52 


20180 


SBC 


HL,DE 






2B4B 22BA2B 


20190 


LD 


(STORK) 


9 HL 




2B4E 210000 


20200 


LD 


HL,0 




;J = 


2B51 22552B 


20210 


LD 


(STORJ) 


S HL 




2B54 210000 


20220 AGAIN 


LD 


HL 9 $-$ 




;I = J 


2B55 


20230 STORJ 


EQU 


$-2 






2B57 225B2B 


20240 


LD 


(STORI) 


9 HL 




2B5A 210000 


20250 REPEAT 


LD 


HL,$-$ 




;L = I + M 


2B5B 


20260 STORI 


EQU 


$-2 






2B5D ED5B392B 20270 


LD 


DE 9 (STORM) 




2B61 19 


20280 


ADD 


HL 9 DE 






2B62 29 


20290 


ADD 


HL 9 HL 




;L * 2 -> regHL 


2B63 E5 


20300 


PUSH 


HL 




;Save L 


2B64 2A5B2B 


20310 


LD 


HL 9 (STORI) 


;I * 2 -> regHL 


2B67 29 


20320 


ADD 


HL 9 HL 






2B68 ED4BD92D 20330 


LD 


BC.(DIRPTR) 


;P/u string parm ptr 


2B6C 09 


20340 


ADD 


HL,BC 




;Pt to A$(I) parm 


2B6D EB 


20350 


EX 


DE 9 HL 




;Ptr -> DE 


2B6E El 


20360 


POP 


HL 




;Pt to A$(L) parm 


2B6F 09 


20370 


ADD 


HL , BC 




;Ptr -> HL 


2B70 E5 


20380 


PUSH 


HL 




;Save ptr to A$(L) 


2B71 D5 


20390 


PUSH 


DE 




;Save ptr to A$(I) 


2B72 060B 


20400 


LD 


B.ll. 




;Set compare length 


2B74 C5 


20410 


PUSH 


BC 




;Save cpr Ten & flag 


2B75 7E 


20420 


LD 


A 9 (HL) 




;P/u string2 ptr 


2B76 23 


20430 


INC 


HL 






2B77 66 


20440 


LD 


H 9 (HL) 






2B78 6F 


20450 


LD 


L,A 






2B79 010500 


20460 


LD 


BC,5 




;Key is 5 bytes in 


2B7C 09 


20470 


ADD 


HL 9 BC 






2B7D EB 


20480 


EX 


DE,HL 




;String2 ptr -> rDE 


2B7E 7E 


20490 


LD 


A S (HL) 




;P/u stringl ptr 


2B7F 23 


20500 


INC 


HL 






2B80 66 


20510 


LD 


H 9 (HL) 






2B81 6F 


20520 


LD 


LjM 






2B82 09 


20530 


ADD 


HL 9 BC 




;Key is 5 bytes in 


2B83 CI 


20540 


POP 


BC 




;Rcvr Ten & flag 


2B84 1A 


20550 BACK 


LD 


A 9 (DE) 




;Go swap if strl>str 


2B85 96 


20560 


SUB 


(HL) 







Page 155 



The Source LIBRARY Files DIR - LS-DOS 6.2 

LBDIRC - Sort Code 



Page 00031 



2B86 3808 


20570 




JR 


C,POP 




2B88 2025 


20580 




JR 


NZ, FINIS 


;Next str if str2>strl 


2B8A 13 


20590 




INC 


DE 


;Loop if this matches 


2B8B 23 


20600 




INC 


HL 




2B8C 10F6 


20610 




DJNZ 


BACK 




2B8E 181F 


20620 




JR 


FINIS 


;None really should match 


2B90 Dl 


20630 


POP 


POP 


DE 


;Else swap 


2B91 El 


20640 




POP 


HL 




2B92 0602 


20650 




LD 


B s 2 


;Swap 2 -byte 


2B94 4E 


20660 


SWAP 


LD 


C,(HL) 


; String pointer 


2B95 EB 


20670 




EX 


DE,HL 




2B96 7E 


20680 




LD 


A,(HL) 




2B97 71 


20690 




LD 


(HL),C 




2B98 EB 


20700 




EX 


DE,HL 




2B99 77 


20710 




LD 


(HL),A 




2B9A 23 


20720 




INC 


HL 




2B9B 13 


20730 




INC 


DE 




2B9C 10F6 


20740 




DJNZ 


SWAP 




2B9E 2A392B 


20750 




LD 


HL, (STORM) 


;P/u M 


2BA1 EB 


20760 




EX 


DE S HL 




2BA2 2A5B2B 


20770 




LD 


HL s (STORI) 


;P/u I 


2BA5 AF 


20780 




XOR 


A 




2BA6 ED52 


20790 




SBC 


HL,DE 




2BA8 225B2B 


20800 




LD 


(STORI) s HL 


;I = I - M 


2BAB 30AD 


20810 




JR 


NC .REPEAT 


;Repeat if I => 


2BAD 1802 


20820 




JR 


EXITSRT 


;Else exit the loop 


2BAF Dl 


20830 FINIS 


POP 


DE 




2BB0 El 


20840 




POP 


HL 




2BB1 2A552B 


20850 


EXITSRT 


LD 


HL,(STORJ) 




2BB4 23 


20860 




INC 


HL 


;J = J + 1 


2BB5 22552B 


20870 




LD 


(STORJ) 9 HL 




2BB8 AF 


20880 




XOR 


A 




2BB9 110000 


20890 




LD 


DE 9 $-$ 




2BBA 


20900 


STORK 


EQU 


$-2 




2BBC ED52 


20910 




SBC 


HL,DE 


;J - K 


2BBE D2382B 


20920 




JP 


NC, CYCLE 


;Cycle if J => K * 


2BC1 C3542B 


20930 
20940 


9 


JP 


AGAIN 


;Else again 


2BC4 


20950 




SUBTTL 


'<LBDIRC - Data>' 




20960 


S 








2BC4 80 


20970 


PRMTBL$ DB 


80 H 


;6.x parameters 




20980 


» 










20990 


s 


A - Fla 


ig input only 






21000 


i 








2BC5 41 


21010 




DB 


FLAGil 




2BC6 41 


21020 




DB 


'A' 




2BC7 00 


21030 




DB 







2BC8 0628 


21040 
21050 


» 


DW 


APARM+1 






21060 


s 


INV (I] 


i - Flag input 


only 




21070 


s 








2BCA 53 


21080 




DB 


FLAG! ABB !3 




2BCB 49 


21090 




DB 


'INV 




4E 56 












2BCE 00 


21100 




DB 







2BCF 8D26 


21110 
21120 


» 


DW 


IPARM+1 






21130 


» 


P - Flag input only 






21140 


s 
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2BD1 41 




21150 




DB 


FLAG11 


2BD2 50 




21160 




DB 


.p. 


2BD3 00 




21170 




DB 





2BD4 D329 




21180 
21190 




DW 


PPARM+1 






21200 




SYS 


(S) - Flag input only 






21210 








2BD6 53 




21220 




DB 


FLAG! ABB! 3 


2BD7 53 




21230 




DB 


'SYS' 


59 53 












2BDA 00 




21240 




DB 





2BDB 7F26 




21250 
21260 




DW 


SPARM+1 






21270 




N - 


Flag input only 






21280 








2BDD 41 




21290 




DB 


FLAG!1 


2BDE 4E 




21300 




DB 


'IT 


2BDF 00 




21310 




DB 





2BE0 722A 




21320 
21330 


» 


DW 


NPARM+1 






21340 


i 


DATE 


(D) - Flag or String 






21350 


9 






2BE2 74 




21360 




DB 


FLAG!STR!ABB!4 


2BE3 44 




21370 




DB 


' DATE ' 


41 54 


45 










2BE7 00 




21380 


DRESP 


DB 





2BE8 982E 




21390 
21400 


» 


DW 


DATPRM+1 






21410 


» 


MOD 


(M) - Flag input only 






21420 


9 






2BEA 53 




21430 




DB 


FLAG! ABB !3 


2BEB 4D 




21440 




DB 


'MOD' 


4F 44 












2BEE 00 




21450 




DB 





2BEF 9526 




21460 
21470 


s 


DW 


CKMOD+1 






21480 


9 


SORT 


(0) - Flag input onl. 






21490 


S 






2BF1 44 




21500 




DB 


FLAG!4 


2BF2 53 




21510 




DB 


'SORT' 


4F 52 


54 










2BF6 00 




21520 




DB 





2BF7 F926 




21530 
21540 


s 


DW 


SORTPRM+l 


2BF9 41 




21550 




DB 


FLAG!1 


2BFA 4F 




21560 




DB 


'0' 


2BFB 00 




21570 




DB 





2BFC F926 




21580 
21590 
21600 


9 

» 


DW 


SORTPRM+l 


2BFE 00 




21610 
21620 


s 


DB 





2BFF 78 




21630 


DEN 


DB 


'xDEN' 


44 45 


4E 










2C03 48 




21640 


HARD 


DB 


'Hard' 


61 72 


64 


21650 


9 






2C07 44 




21660 


DSTRING 


DB 


'Drive :' 


72 69 


76 


65 20 


3A 
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2C0E 64 
20 

2C11 64 
69 
20 

2C1B 20 
20 

2C24 6E 
44 
65 

2C30 20 
20 
20 

2C3C 20 
20 
2C 

2C4D 64 
64 
0D 

2C57 46 
69 
20 
20 
50 
52 

2C7A 20 
20 
20 
6C 
20 
20 

2CA1 44 
61 

2CA7 50 

72 
2CAE 20 

20 
2CB3 20 

20 
2CBB 20 

20 
2CC0 20 

20 

20 
2CCD 20 

20 
2CD4 64 

64 



21670 DRIVE DB 
20 

21680 NAME DB 
73 6B 6E 61 6D 65 20 



21690 
20 20 43 79 

21700 
45 4E 2C 20 
20 3D 

21710 
20 20 20 2E 
2F 20 

21720 
20 20 20 2E 
20 20 44 61 

21730 
2D 6D 6D 6D 



CYLCNT DB 
6C 2C 20 
DENSITY DB 
46 72 65 

KFREE DB 
20 20 4B 

KPOSS DB 
20 20 4B 
74 65 20 
DATBUF DB 
2D 79 79 



6C 65 
20 20 
41 74 
72 6F 
4C 

23 52 
45 4F 
65 20 
20 45 
20 4D 

74 65 



6F 74 

20 20 

20 20 

20 20 

20 20 
20 20 

20 20 

2D 6D 



21740 ; 

21750 HEADING DB 

73 70 65 63 20 
4D 4F 44 20 20 

74 72 20 20 20 
74 20 20 20 4C 



21760 
65 63 
46 20 
53 69 
78 74 
6F 64 
21770 
20 0D 
21780 
21790 
20 20 
21800 
20 

21810 
20 20 
21820 
20 

21830 
20 2E 
20 

21840 
20 20 
21850 
6D 6D 



DB 



73 20 20 
20 46 69 
7A 65 20 
20 20 20 
20 



DB 



PLEVEL DB 

20 

LRL DB 

RECORDS DB 
20 20 
OFFSET DB 

KSIZE DB 
20 20 4B 

EXTENTS DB 
20 

DATEFLD DB 
2D 79 79 



21860 ; 

2CDE 20 21870 FSTRING DB 

20 20 20 20 20 20 20 20 

20 20 

2CE9 20 21880 FDISP DB 

20 20 20 66 69 6C 65 73 

20 6F 75 74 20 6F 66 20 

2CFA 20 21890 FUSED DB 



d ' 

disk name ' 

Cyl, ' 
nDEN, Free =' 

. K / ' 

. K, Date ' 

dd-mmm-yy' 9 CR 

Filespec MOD Attr Prot LRL' 



#Recs EOF File Size Ext Mod 



Date ' S CR 
Prot ' 



l-mmm-yy 1 9 ETX 



files out of ' 
selected, Space 
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2D10 

2D1B 
2D22 

2D31 
2D3A 

2D46 

2D66 

2D72 
2D7A 



2D9E 



2 DAE 



2DD2 

2DD7 
2DD8 
2DD9 
2DDB 
2DDD 
2DDF 
2DE1 



2E00 
2E00 
2F00 
3000 



20 20 
74 65 
63 65 
20 

20 20 
0A 0D 

44 

72 69 
6E 

20 20 
69 73 

6D 

6D 2F 
20 

20 20 
20 20 
46 

55 4C 
41 4D 
50 44 
58 45 
IF 

1C IF 
IF IE 
30 

30 32 
49 

6E 73 
65 6E 
72 79 
4F 52 

65 72 
42 

61 64 

66 6F 
4A 

61 6E 
41 70 
6E 4A 
65 70 
44 65 
2A 

2A 2A 
00 



20 73 65 
64 2C 20 
20 3D 20 
21900 
20 20 2E 

21910 

21920 
76 65 20 

21930 
5B 4E 6F 
6B 5D 0A 

21940 

21950 
64 64 2F 

21960 
20 20 20 
20 

21970 
4C 52 45 

45 57 52 
54 52 45 
43 4E 4F 

21980 
IE IF IE 
IF 

21990 
35 35 30 

22000 
75 66 66 

74 20 6D 
20 66 6F 
54 20 62 
0D 

22010 
20 64 61 
72 6D 61 

22020 

46 65 62 
72 4D 61 

75 6C 41 
4F 63 74 
63 

22030 
2A 2A 
22040 
22050 
22060 
22070 
22080 
22090 
22100 
22110 
22120 
22130 
22140 
22150 
22160 
22170 



6C 65 63 
53 70 61 

SPUSED DB 
20 20 4B 



NODISK DB 

3A 

NDRIVE DB 

20 20 44 

0D 

TDATE DB 
79 79 22 
BLANKS DB 
20 20 20 

PROTS$ DB 
4D 56 4E 
49 54 55 
41 44 45 
20 20 

MAXDAYS DB 
IF IF IE 

HUNDTAB DB 
37 35 

NOMEM$ DB 
69 63 69 
65 6D 6F 
72 20 53 
75 66 66 

BADFMT$ DB 
74 65 20 

74 0D 
MONTBL DB 
4D 61 72 
79 4A 75 

75 67 53 
4E 6F 76 

STARS DB 

FTFLG DB 
FILFLAG DB 
DIRPTR EQU 
MAXMEM 
FMPAKD 
TOPAKD 



EQU 
EQU 
EQU 
LILBUF$ EQU 



. K' S LF S CR 

Drive :' 

n [No Disk]',LF,CR 

mm/dd/yy"< 
FULLREMVNAMEWRITUPDTREADEXECNO 



31, 28, 31, 3d, 31, 30, 31, 31, 30, 31, 30, 31 

'00255075' 

'Insufficient memory for SORT buffer \CF 



Bad date format ' ,CR 



JanFebMarAprMayJunJulAugSepOctNovDec 



***** ' 





$ 

DIRPTR+2 

MAXMEM+2 

FMPAKD+2 

TOPAKD+2 



GAT EQU 

HIT EQU 

BUF2 EQU 

MEMORY EQU 



LILBUF$+3<-8+l<+8 

GAT 

GAT+256 

GAT+512 
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2DD9 


22200 


PAGE 










22210 












22220 


; DIR Ent 


ry Point - Initialization code 




22230 












22240 I 


DIR 








2DD9 


22250 


@@CKBRKC 


;Check for break 


2DD9 3E6A 


00046 


LD 




A, 106 




2DDB EF 


00047 


RST 




40 




2DDC 2804 


22260 


JR 




Z,DIRA 


;If not go 


2DDE 21FFFF 


22270 


LD 




HL.-l 


; else abort 


2DE1 C9 


22280 
22290 
22300 [ 


RET 
)IRA 








2DE2 ED732D24 22310 


LD 




(SAVESP+1),SP 


;Save SP address 


2DE6 E5 


22320 
22330 


PUSH 




HL 


;Save command ptr 




22340 


; Pick 


up 


Flag Table base 


Address 




22350 










2DE7 


22360 


00FLAGS 




;IY => System Flag table 


2DE7 3E65 


00048 


LD 




A, 101 




2DE9 EF 


00049 


RST 




40 




2DEA FDE5 


22370 


PUSH 




IY 


;Xfer to DE too 


2DEC Dl 


22380 
22390 s 


POP 




DE 






22400 


, Calci 


late KFLAG$ addres 


s & stuff away 




22410 , 










2DED 210A00 


22420 


LD 




HL,KFLAG$ 


;KFLAG$ offset 


2DF0 19 


22430 


ADD 




HL,DE 


;HL => KFLAG$ 


2DF1 22942 A 


22440 


LD 




(KFLAG+1),HL 


;Save for later testing 


2DF4 22A92A 


22450 


LD 




(RESKFL+1),HL 




2DF7 22AE2A 


22460 
22470 , 


LD 




(KFLAG1+D.HL 




2DFA CDA82A 


22480 


CALL 




RESKFL 


;Reset bits 0-2 of KFLAG$ 


2DFD El 


22490 
22500 


POP 




HL 


;Rvr command ptr 




22510 


Pick 


up 


SFLAG 






22520 s 










2DFE FD7E12 


22530 


LD 




A.dY+'S'-'A') 


;Get SFLAG 


2E01 32782A 


22540 
22550 s 


LD 




(SFLAG+1),A 


;Save for later testing 




22560 , 


Find 


parameter entry if 


existent 




22570 , 










2E04 E5 


22580 


PUSH 




HL 


;Save command ptr 


2E05 7E 


22590 F 


"PLP LD 




A,(HL) 


;P/u character 


2E06 FE28 


22600 


CP 




'(' 


; Parameter (s) ? 


2E08 2807 


22610 


JR 




Z.GETPRM 


;Yes - go get 'em 


2E0A FE0D 


22620 


CP 




CR 


;End of line ? 


2E0C 2809 


22630 


JR 




Z.RESTPTR 


;Yes - restore ptr 


2E0E 23 


22640 


INC 




HL 


;No - bump til end 


2E0F 18F4 


22650 
22660 ; 


JR 




FPLP 


;Do til eol or "(" 




22670 ; 


Process 


any parameters 


entered 




22680 s 










2E11 11C42B 


22690 C 


JETPRM LD 




DE,PRMTBL$ 


;DE => Parameter table 


2E14 


22700 


(apPARAM 




;(s»PARAM 


2E14 3E11 


00050 


LD 




A, 17 




2E16 EF 


00051 


RST 




40 




2E17 El 


22710 F 


IESTPTR POP 




HL 


;Recover ptr 


2E18 C21E24 


22720 
22730 ; 


JP 




NZ,IOERR 


;NZ - "Parameter Error" 
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22740 


s 


If first character is 


a "8" or "9" abort 




22750 


9 








2E1B 7E 


22760 




LD 


A S (HL) 


;Is this a "8" or "9" ? 


2E1C FE0D 


22770 




CP 


CR 


;If CR, then global 


2E1E 2834 


22780 




JR 


Z 9 DIR2 




2E20 FE38 


22790 




CP 


. 8 i 


;If so - Illegal drive # 


2E22 2804 


22800 




JR 


Z, ILLDRV 




2E24 FE39 


22810 




CP 


■ 9" 




2E26 2003 


22820 
22830 


9 


JR 


NZ S CKITOUT 


;Must be a partspec 




22840 


9 


Illega 


il Drive Number 






22850 


$ 








2E28 C31C24 


22860 
22870 


ILLDRV 

9 


JP 


ERR32 


;Go to I/O error handler 




22880 


9 


Pick u 


ip Drive # Range 


field if any 




22890 


9 








2E2B E5 


22900 CKITOUT 


PUSH 


HL 


;Save source ptr 


2E2C CDE72E 


22910 




w"L L, 


CKDSPEC 


; Legal Drive range ? 


2E2F Dl 


22920 




POP 


DE 


;Save source ptr in DE 


2E30 2832 


22930 
22940 


9 


JR 


Z 9 DIR3 


;Legal - use HL 




22950 


9 


Point 


DE => Partspec \ 


match field 9 B=8 chars 




22960 


9 








2E32 EB 


22970 




EX 


DE S HL 


; Illegal - use DE 


2E33 7E 


22980 




LD 


A S (HL) 


;P/u first char 


2E34 23 


22990 




INC 


HL 


; and bump to next 


2E35 113A2D 


23000 


DIR0 


LD 


DE S BLANKS 


;DE => Partspec area 


2E38 0608 


23010 
23020 


9 


LD 


B s 8 


;B = 8 chars/fi lename 




23030 


9 


Was the NOT switch en 


tered ? 




23040 


8 








2E3A FE2D 


23050 




CP 


i _ i 


;N0T ? 


2E3C 2005 


23060 
23070 


9 


JR 


NZ,DIR1 


;No - continue 




23080 


9 


NOT !1 - 


•" entered - set 


flag & bump cmd ptr 




23090 


9 








2E3E 32C426 


23100 




LD 


(f^FLG+l) 9 A 


; Stuff "-" in flag 


2E41 7E 


23110 




LD 


A 9 (HL) 


;P/u next char & bump 


2E42 23 


23120 
23130 


9 


INC 


HL 


; command ptr 




23140 


9 


Transf 


r er Filename to ! 


Filespec buffer 




23150 


9 








2E43 CD2A2F 


23160 


DIR1 


CALL 


PRSPC 


; Parse 8 chars 


2E46 FE2F 


23170 




CP 


7' 


; Extension ? 


2E48 200A 


23180 
23190 


9 


JR 


NZ S DIR2 


;No - don't check 




23200 


9 


Transf 


r er Extension to 


Filespec buffer 




23210 


9 








2E4A 11422D 


23220 




LD 


DE.BLANKS+8 


;DE => Extension field 


2E4D 0603 


23230 




LD 


B s 3 


;Max 3 chars 


2E4F 7E 


23240 




LD 


A,(HL) 


;P/u next character 


2E50 23 


23250 




INC 


HL 


;Bump 


2E51 CD2A2F 


23260 
23270 


9 


CALL 


PRSPC 


;Xfer extension 




23280 


9 


Was a 


drivespec entered ? 




23290 


9 








2E54 FF.3A 


23300 


DIR2 


CP 


i . i 


; Drive entered? 


2E56 010700 


23310 




LD 


BC,7 


;St = 0, terminating = 7 


2E59 2009 


23320 




JR 


NZ S DIR3 


;No - use drive 
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2E5B CDE72E 
2E5E 20C8 
2E60 FE08 
2E62 28C4 



2E64 78 
2E65 32DE2E 
2E68 91 
2E69 323626 
2E6C 79 
2E6D 322B26 



23330 
23340 
23350 
23360 
23370 
23380 
23390 
23400 
23410 
23420 

23430 DIR3 
23440 
23450 
23460 
23470 
23480 
23490 ; 
23500 ; 
23510 ; 
2E70 FDCB024E 23520 
2E74 210000 23530 



Check if char following is a legal drive # 



CALL 
JR 
CP 
JR 



CKDSPEC 
NZ,ILLDRV 
8 
Z,ILLDRV 



;Legal Drive field ? 
; Illegal - abort 
;Trap DIR :8 



B = Start drv #, C = Term drv # - save 'em 

;Save starting drive 
;Set Specific Drive flag 
;Save term drive 



LD 

LD 

SUB 

LD 

LD 

LD 



A,B 

(DIR3A+D.A 

C 

(SPECIF+1),A 

A C 

(TERMDRV+1),A 



Command line parsed - check available mem 



2E77 2803 



2E79 22F926 



2E7C 45 
2E7D 

2E7D 3E64 
2E7F EF 
2E80 11DFFF 
2E83 19 
2E84 22DB2D 



2E87 2AD329 
2E8A 7C 
2E8B B5 
2E8C 2803 
2E8E 22722A 



2E91 3AE72B 
2E94 B7 
2E95 2846 



2E97 210000 
2E9A CB77 
2E9C 280C 



23540 
23550 
23560 
23570 
23580 
23590 ; 
23600 ; 
23610 ; 
23620 GETHI 
23630 



BIT 1,(IY+CFLAG$) 
LD HL,0 
JR Z, GETHI 



; Called from GCMNDR? 
;Set SORT (0) parm = 
;No - fine 



Executing from GCMNDR - Turn off SORT 
LD (S0RTPRM+1),HL 

Pick up Current HIGH$ 9 & set max mem to use 

;B=0 



LD B,L 

@@HIGH$ 

LD A, 100 

RST 40 

LD DE,-33 

ADD HL 9 DE 

LD (MAXMEM),HL 



; Subtract 33 from it 
; Stuff in maximum memory 
Turn on N parm if P parm specified 



LD 
LD 
OR 
JR 
LD 



HL,(PPARM+1) 

A,H 

L 

Z,GTDATE 

(NPARM+1) S HL 



;P/u P-parm 
Specified ? 

;No - don't change N 
;Turn on N-parm 



00052 

00053 

23640 

23650 

23660 

23670 

23680 

23690 

23700 

23710 

23720 

23730 

23740 

23750 

23760 

23770 

23780 GTDATE LD A S (DRESP) ;Check out response 

23790 OR A ;Any response ? 

23800 JR Z,DIR3A ;None entered - no date 

23810 ; 

23820 ; Something was specified - Check type 

23830 ; 

23840 DATPRM LD HL,$-$ ;P/u date 

23850 BIT 6,A ;Flag input ? 

23860 JR Z,CHKSTR ;No - must be string 

23870 ; 

23880 ; Flag input - if YES, then use today's date 

23890 ; 



Was the DATE parameter specified ? 
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2E9E 7C 
2E9F B5 
2EA0 283B 



LD 
OR 
JR 



2EA2 21312D 
2EA5 E5 
2EA6 

2EA6 3E12 
2EA8 EF 
2EA9 El 



2EAA 7E 
2EAB FE2D 
2EAD 2815 



23900 
23910 
23920 
23930 
23940 
23950 
23960 
23970 
23980 
00054 
00055 
23990 
24000 
24010 
24020 
24030 CHKSTR LD 



A,H 

L 

Z,DIR3A 



LD HL,TDATE 

PUSH HL 

@@DATE 

LD A, 18 

RST 40 

POP HL 



;HL => Todays Date 
;Save position 
;Get today's date 



;HL => Today's Date 
Display dates before "-mm/dd/yy" ? 
A,(HL) 



24040 
24050 
24060 
24070 
24080 
24090 
24100 
24110 
24120 
24130 
2EB4 CD492F 24140 
2EB7 ED43DD2D 24150 
24160 



2EAF 3E80 
2EB1 32D72D 



2EBB 7E 
2EBC FE22 
2EBE 2811 



2EC0 FE2D 
2EC2 2019 



2EC4 23 
2EC5 7E 
2EC6 FE22 
2EC8 2813 

2ECA FE0D 
2ECC 280F 



2ECE CD492F 



2ED1 3AD72D 
2ED4 F601 
2ED6 32D72D 



24170 

24180 

24190 

24200 

24210 

24220 

24230 

24240 

24250 

24260 

24270 ; 

24280 ; 

24290 ; 

24300 CKTO 

24310 

24320 

24330 

24340 ; 

24350 

24360 

24370 

24380 

24390 

24400 

24410 

24420 

24430 

24440 FRCTO 

24450 

24460 



;P/u first char 
CP '-' ;"to-" ? 

JR Z,CKTO ;Yes - do it 



Not before - set flag accordingly 



LD 
LD 



A,80H 
(FTFLG) S A 



Pack Date entry 



CALL 
LD 



PAKDAT 
(FMPAKD),BC 



;Set from bit 
;Note from entered 



;Pack the date entry 
; Stuff away date 



End of first date ? 

A,(HL) 
■ ii i 

Z, FRCTO 
Is there a to "-" symbol following date ? 



LD 
CP 
JR 



;P/u terminator 

;End of date ? 

;Yes - use spec'd date 



CP 
JR 



NZ,DIR3A 
Is there a date following ? 



;Check for "-to" 
;No - check if legal 



INC 
LD 
CP 
JR 

CP 
JR 



HL 

A,(HL) 
i H i 

Z.DIR3A 

CR 
Z.DIR3A 



; Bypass the '-' 
;P/u next char 
;End of parm ? 
;Yes - use that date 

;End of parm ? 

;Yes - use that date 



Something following - parse date 
CALL PAKDAT ;Pack Date 
Stuff in "TO" packed date & set TO flag 



LD 
OR 
LD 



A.(FTFLG) 

1 

(FTFLG),A 



;P/u From-To Flag 
;Set TO bit 
; Stuff in flag 
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2ED9 ED43DF2D 


24470 
24480 ; 


LD 


(TOPAKD),BC ; Stuff for later 




24490 ; 


P/u starting drive #, & init page counter 




24500 ; 






2EDD 0E00 


24510 DIR3A LD 


C,$-$ ;P/u starting drive 


2EDF 3E16 


24520 


LD 


A, 22 ;Max lines to dsply 


2EE1 32662A 


24530 


LD 


(CKPAGE+1),A ; Stuff in counter 


2EE4 C33324 


24540 
24550 ; 


JP 


DIR4 ; Directory Start 




24560 ; 


CKDSPEC - Check if a drive spec field is legal 




24570 ; 


HL => 


Drive specification Field 




24580 : 


Z - Set if Drive spec Field is Legal 




24590 ; 


B <= 


Starting Drive # (0-7) 




24600 s 


C <= 


Terminating Drive # (0-7) 




24610 ; 






2EE7 7E 


24620 C 


XDSPEC LD 


A,(HL) ;P/u first character 


2EE8 FE2D 


24630 


CP 


;"T0" or "NOT" ? 


2EEA 200C 


24640 
24650 


JR 


NZ,NOTDASH ;No - check if drive # 




24660 . 


Char 


is a "-" Could be "TO" or "NOT" 




24670 , 






2EEC CD222F 


24680 


CALL 


LEGDRV ; Legal Drive Number ? 


2EEF D8 


24690 


RET 


C ;No - RETurn NZ 




24700 


» 






24710 


; Legal 


Drive # - Next char must be a term 




24720 


> 




2EF0 4F 


24730 


LD 


C,A ; 


C = Terminating Drive 


2EF1 23 


24740 


INC 


HL ; 


HL => Following char 


2EF2 CD0B2F 


24750 


CALL 


TERM j 


Does a term follow ? 


2EF5 0600 


24760 


LD 


B,0 


B default start 


2EF7 C9 


24770 


RET 




,RETurn Z or NZ 




24780 


> 






24790 


; Is the First character a legal drive # ? 




24800 


i 




2EF8 CD232F 


24810 


VJOTDASH CALL 


LE6DRV1 ;Legal drive (0-7) ? 


2EFB D8 


24820 


RET 


C ;No - RETurn NZ (ex 8) 


2EFC 47 


24830 


LD 


B,A ;Set B = Starting Drive 


2EFD 4F 


24840 


LD 


C,A ;Set C = Terminator 




24850 


» 






24860 


; Legal 


Drive - a "-" or term MUST follow 




24870 


> 




2EFE 23 


24880 


INC 


HL 


;Bump to next char 


2EFF 7E 


24890 


LD 


A,(HL) 


, If next char is not a 


2F00 FE2D 


24900 


CP 


i _ i 


, "-", RETurn Z or NZ 


2F02 2811 


24910 


JR 


Z,CKTDRIV 


, depending on next char 


2F04 CD0B2F 


24920 


CALL 


TERM 


; Legal terminator ? 


2F07 C2282E 


24930 


JP 


NZ,ILLDRV 


;No - Illegal Drive # 


2F0A C9 


24940 


RET 




;Yes - Return 




24950 








24960 


; Is the character a terminator ? 




24970 






2F0B 7E 


24980 


TERM LD 


A,(HL) ;P/u char 


2F0C FE20 


24990 


CP 


1 ' ; Space is legal 


2F0E C8 


25000 


RET 


Z ;RETurn Z if space 


2F0F FE0D 


25010 


CP 


CR ;CR is legal 


2F11 C8 


25020 


RET 


Z ;RETurn Z if CR 


2F12 FE28 


25030 


CP 


• (' ;Paren is legal 


2F14 C9 


25040 


RET 


;RETurn w/ condition 




25050 


> 
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25060 ; 


Next 


char must be a valid drive # or term 




25070 ; 






2F15 CD222F 


25080 CKTDRIV CALL 


LEGDRV ; Legal Drive # ? 


2F18 0E07 


25090 


LD 


C s 7 ;C = Default term drive 7 


2F1A 38EF 


25100 
25110 ; 


JR 


C,TERM ;Not drv # - ck for term 




25120 ; 


Make 


sure Term Drive # > or = Start Drive # 




25130 ; 






2F1C 4F 


25140 


LD 


C,A ;Set C = Term drive # 


2F1D B8 


25150 


CP 


B ;> or = start drive # ? 


2F1E D8 


25160 
25170 ; 


RET 


C ; Less - Return 




25180 ; 


Drive 


span range good - make sure term legal 




25190 ; 






2F1F 23 


25200 


INC 


HL ;Bump ptr 


2F20 18E9 


25210 


JR 


TERM ;RETurn Z or NZ 



2F22 23 
2F23 7E 
2F24 D630 
2F26 FE08 
2F28 3F 
2F29 C9 



2F2A FE24 
2F2C 2814 
2F2E FE41 
2F30 3006 



2F32 FE3A 
2F34 D0 
2F35 FE30 
2F37 D8 



2F38 FE61 
2F3A 3806 
2F3C FE7B 
2F3E 3002 
2F40 CBAF 



2F42 12 
2F43 13 



25220 

25230 

25240 

25250 

25260 

25270 

25280 

25290 LEGDRV INC 

25300 LEGDRV1 LD 



LEGDRV - Is a character a legal drive # 

HL => One before Character to check 

HL <= Character in question 

A <= Drive Number (0-7) 

CF <= Set if Character is not a legal drive # 



25310 
25320 
25330 
25340 
25350 ; 
25360 ; 
25370 ; 
25380 ; 
25390 ; 
25400 ; 
25410 PRSPC 
25420 
25430 
25440 
25450 ; 
25460 ; 
25470 ; 
25480 
25490 
25500 
25510 
25520 ; 
25530 ; 
25540 ; 
25550 PS1 
25560 
25570 
25580 
25590 
25600 ; 
25610 ; 
25620 ; 
25630 PS2 
25640 PS3 



SUB 
CP 
CCF 
RET 



HL 

A,(HL) 

'0' 

7+1 



;Bump to next 

;P/u char 

; Convert to binary 

;Greater than "7" ? 

;C - Illegal 

;RETurn with condition 



PRSPC - Parse a line and stuff in buffer 
HL => Source Buffer 
DE => Destination of converted field 
B = # of characters to parse 



CP 
JR 

CP 
JR 



Z S PS2 

•A' 

NC,PS1 



;Wild character? 
;Yes - stuff in buff 
Alphabetic ? 
;Maybe - convert to U/C 



Is the character a numeric value (0-9) ? 



CP 

RET 

CP 

RET 



'9'+l 

NC 



;Greater than "9" ? 
;Yes - return 
;Less than "0" ? 
;Yes - return 



Convert character to Upper Case 



CP 
JR 
CP 
JR 
RES 



'a' 

C,PS2 

■z'+l 

NC 9 PS2 
5,A 



; Lower case alpha ? 
;No - stuff in buffer 



;Convert to U/C 
Put char in buffer, & bump cmd & buffer ptrs 



LD 
INC 



(DE) S A 
DE 



; Stuff in buffer 
;Bump 
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2F44 7E 
2F45 23 
2F46 10E2 
2F48 C9 



2F49 7E 
2F4A 0E2F 



2F4C CD8E2F 
2F4F C21124 



2F52 EB 
2F53 3AE12D 
2F56 E603 
2F58 21672D 
2F5B 2001 
2F5D 34 



2F5E 3AE32D 
2F61 3D 
2F62 FE0C 
2F64 D21124 



2F67 2B 
2F68 85 
2F69 6F 
2F6A 3001 
2F6C 24 



2F6D 3AE22D 
2F70 3D 
2F71 BE 
2F72 D21124 



2F75 21E32D 
2F78 7E 
2F79 47 



2F7A 2B 
2F7B 7E 
2F7C 2B 



25650 
25660 
25670 
25680 
25690 ; 
25700 ; 
25710 ; 
25720 ; 
25730 ; 
25740 PAKDAT 
25750 
25760 ; 
25770 ; 
25780 ; 
25790 
25800 
25810 ; 
25820 ; 
25830 ; 
25840 
25850 
25860 
25870 
25880 
25890 
25900 ; 
25910 ; 
25920 ; 
25930 NOTLEAP 
25940 
25950 
25960 
25970 ; 
25980 ; 
25990 ; 
26000 
26010 
26020 
26030 
26040 
26050 ; 
26060 ; 
26070 ; 
26080 NO INC 
26090 
26100 
26110 
26120 ; 
26130 ; 
26140 ; 
26150 
26160 
26170 
26180 ; 
26190 ; 
26200 ; 
26210 
26220 
26230 



LD A,(HL) 

INC HL 

DJNZ PRSPC 
RET 



;P/u command buff char 

;Bump 

; B times 



PAKDAT - Pack Date & Stuff into buffer 
HL => Buffer containing Date string 
BC <= Packed Date in lsb s msb format 



LD 
LD 



A S (HL) 
C 9 7' 



;P/u character 
; Init separator 



Is the date a valid entry ? 

CALL PARSDAT ; Parse entry 

JP NZ 9 BADFMT ;Abort on format error 

If year = 1980 or 84 then set FEB = 29 days 



EX DE S HL 

LD A S (LILBUF$) 

AND 3 

LD HL 9 MAXDAYS+1 

JR NZ 9 NOTLEAP 

INC (HL) 



;Save command ptr 

;P/u year (80-87) 

;Mask off bits 7-2 

;Set Feb to have 29 days 

;No - don't inc it 

;Leap year - inc max days 



Check Range of month - must be 1-12 

LD A 9 (LILBUF$+2) ;P/u month 

DEC A ;Set month = 1-11 

CP 12 ; Valid month ? 

JP NC S BADFMT ; Abort if or >12 

Valid month - point HL to max days/month 



DEC HL 

ADD A 9 L 

LD L 9 A 

JR NC 9 N0INC 

INC H 



; Point before JAN entry 
;Add the month 
;HL => max days for month 
;Bump H if C set 



Check if day entry is valid 

LD A 9 (LILBUF$+1) ;P/u day entry 

DEC A ;Reduce for test (0->FF) 

CP (HL) ;More than max days ? 

JP NC.BADFMT ;Go if too large (or 0) 



Pick up month from buffer 



LD 
LD 
LD 



HL 9 LILBUF$+2 

A 9 (HL) 

B 9 A 



;HL => Month 
;P/u month 
;Save month 



Transfer Day to Bit positions 3-7 



DEC 

LD 

DEC 



HL 

A 9 (HL) 

HL 



;HL => Day 
;P/u day 
;HL => Year 
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2F7D 07 


26240 


RLCA 


; Shi ft day to 3-7 


2F7E 07 


26250 


RLCA 




2F7F 07 


26260 


RLCA 




2F80 4F 


26270 
26280 ; 


LD 


C,A ;Save in C 




26290 ; 


Pick i 


jp year & convert to binary (0-7) 




26300 ; 






2F81 7E 


26310 


LD 


A,(HL) ;P/u year 


2F82 D650 


26320 


SUB 


80 ; Adjust for offset 


2F84 3001 


26330 


JR 


NC, GDATE ;If entry < 1980, 


2F86 AF 


26340 
26350 ; 


XOR 


A ; then use 1980 




26360 ; 


Shift 


year into positions 7-5 




26370 ; 






2F87 0F 


26380 GDATE RRCA 


;Shift into bits 7-5 


2F88 0F 


26390 


RRCA 




2F89 0F 


26400 
26410 ; 


RRCA 






26420 ; 


Merge 


with month & Return 




26430 ; 






2F8A B0 


26440 


OR 


B ; & merge with month 


2F8B 47 


26450 


LD 


B,A ; Stuff in B 


2F8C EB 


26460 


EX 


DE,HL ;HL => Buffer 


2F8D C9 


26470 
26480 ; 


RET 


;RETurn 




26490 ; 


PARSDAT - Parse TIME/DATE string entry 




26500 ; 


HL => 


Buffer containing string to parse 




26510 ; 


C => 


Delimiter ("/" = DATE, ":" = TIME) 




26520 ; 


LILBUF$-LILBUF$+2 <= Data in compressed format 




26530 ; 


Z - 


Set if successful 




26540 ; 






2F8E 11E32D 


26550 PARSDAT LD 


DE,LILBUF$+2 ;Point to buf end 


2F91 0603 


26560 
26570 , 


LD 


B,3 ;Process 3 fields 




26580 , 


Parse 


a field - Return NZ if bad 




26590 , 






2F93 D5 


26600 f 


>RS1 PUSH 


DE ;Save pointer 


2F94 CDA32F 


26610 


CALL 


PRS2 ;Get a digit pair 


2F97 Dl 


26620 


POP 


DE ;Recover pointer 


2F98 C0 


26630 
26640 


RET 


NZ ;Ret if bad digit pair 




26650 


Good 


field - Stuff in buff, dec ptr, & count 




26660 






2F99 12 


26670 


LD 


(DE),A ; else stuff the value 


2F9A IB 


26680 


DEC 


DE ;Backup the pointer 


2F9B 05 


26690 


DEC 


B ;Loop countdown 


2F9C C8 


26700 
26710 


RET 


Z ;Do for 3 fields 




26720 


; Parsed a field - is the separator valid ? 




26730 






2F9D 7E 


26740 


LD 


A,(HL) ;P/u separator 


2F9E 23 


26750 


INC 


HL ;Bump pointer 


2F9F B9 


26760 


CP 


C ;Correct ? 


2FA0 28F1 


26770 


JR 


Z,PRS1 ;Yes - continue 


2FA2 C9 


26780 
26790 


RET 


;No - RET NZ 




26800 


; PRS2 


- Parse a digit pair at HL 




26810 






2FA3 CDB92F 


26820 


3RS2 CALL 


PRS4 ;Get a digit 
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2FA6 300F 


26830 
26840 




JR 


NC.PRS3 


jlllegal - clr stc & RET 




26850 




Legal 


Digit - Multipl 


y by 10 




26860 










2FA8 5F 


26870 




LD 


E,A 


;Multiply by ten 


2FA9 07 


26880 




RLCA 




;X 2 


2 FA A 07 


26890 




RLCA 




;X 4 


2FAB 83 


26900 




ADD 


A,E 


;X 5 


2FAC 07 


26910 




RLCA 




;X 10 


2FAD 5F 


26920 
26930 




LD 


E.A 


; Stuff in E 




26940 




Get another digit 






26950 










2FAE CDB92F 


26960 




CALL 


PRS4 


;Get ones digit 


2FB1 3004 


26970 
26980 




JR 


NC.PRS3 


;Bad - return NZ 




26990 




Legal 


digit - Add to 


tens digit & set Z flag 




27000 










2FB3 83 


27010 




ADD 


A,E 


Accumulate new digit 


2FB4 5F 


27020 




LD 


E,A 


;Save 2-digit value 


2FB5 BF 


27030 




CP 


A 


;Clear flags 


2FB6 C9 


27040 
27050 


» 


RET 




;Return Z 




27060 


» 


Force 


NZ & Return 






27070 


» 








2FB7 B7 


27080 


PRS3 


OR 


A 


;Set NZ 


2FB8 C9 


27090 
27100 




RET 




;RETurn 




27110 




Pick i 


jp a digit and 


:onvert to binary 




27120 










2FB9 7E 


27130 


PRS4 


LD 


A,(HL) 


;P/u a digit & 


2FBA 23 


27140 




INC 


HL 


; bump ptr 


2FBB D630 


27150 




SUB 


'0' 


;Convert to binary 


2FBD FE0A 


27160 




CP 


10 


;Legal ? 


2FBF C9 


27170 
27180 


» 


RET 




;C - legal, NC - illegal 


2FC0 


27190 
00310 


ENDMEM 


EQU 


$ 






00320 




Bytes 


Free = 






00330 










0040 


00340 FREES 


EQU 


3000H-ENDMEM 






00350 


» 










00360 




IFGT 


$,2FFFH 






00370 




ERR 


'LIB memory 


region overflow 




00380 




ENDIF 








00390 


» 








2FC0 


00400 




SUBTTL <> 




2400 


00410 




END 


ENTRY 
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$JP0 
@@2 
@M0D2 
ABORT 
ALL 01 



25 A3 



ALL09 

ALL11 

ALL 16 

APARM 

BADFMT$ 

BREAK 

BYTOUT 

CALCK1 

CFLAG$ 

CKDIR1 

CKHIT 

CKHIT4 

CKITOUT 

CKNAH1 

CKNAM2B 

CKPAW2 

CKTITL 

COUNT 

CR 

CVD10 

CVDDEC 

D79EQ 

DATEFLD 

DENSITY 

DIR0 

DIR3 

DIRA 

DIVIDE 

DO NAM 1 

DONAM4 

DONAM6 

DONAM9 

DRESP 

DUBDEN 

ENTRY 

ETX 

EXTENTS 

FILFLAG 

FMPAKD 

FREES 

FS3 

FUSED 

GDCKDRV 

GOODCYL 

GTUSED 

HIT 

ILLDRV 

IOERR5 

KFLAG 

KFREE 

LEGDRV 

LILBUF$ 



2417 
2825 
2869 
2945 
2961 
2989 
2805 
2D9E 
0080 
29CB 

Cm .7 CO 

0002 
2665 
25A6 
2634 
2E2B 
26 AC 
26E4 
2A9F 
2AB1 
25D5 



2A3E 
2A2A 
25 DE 
2CD4 
2C24 
2E35 
2E64 
2DE2 
2930 
274C 
2769 
27 DA 
280D 
2BE7 
249D 
2400 
0003 
2CCD 
2DD8 
2DDD 



24 Dl 
2CFA 
2475 
2507 
250E 
2E00 
2E28 
2A7F 
2A93 
2C30 
2F22 
2DE1 



$JP1 

(9(33 

0MOD4 

ABORT3 

ALL02 

ALL06 

ALL09A 

ALL14 

ALRPRT 

BACK 

BLANKS 

BS 

BYT0UT2 

CALCK2 

CHKSTR 

CKDIR3 

CKHIT1 

CKHIT5 

CKMOD 

CKNAM2 

CKPAGE 

CKPAWS 

CKTO 

COUNTM1 

CVD0 

CVD100 

CYCLE 

D79L 

DATPRM 

DFLAG$ 

DIR1 

DIR3A 

DIRPTR 

DODSP 

D0NAM2 

DONAM5 

DONAM7 

DONTDEC 

DRIVE 

ENDLINE 

EOF BYTE 

EXIT 

FDISP 

FINIS 

FPLP 

FS1 

F STRING 

GAT 

GETHI 

GPCLOOP 

HARD 

HUNDTAB 

IOER1 

IPARM 

KFLAG$ 

KPOSS 

LEGDRV1 

LINOUT 



26F5 


m\ 


0000 (?(34 


FFFF 


ABB 


242 F 


AGAIN 


2826 ALL03 


28EA ALL08 


295B ALL10 


2964 


ALL15 


2741 


AP 


2B84 


BADFMT 


2D3A 


BLKHASH 


0008 


BUF2 


29CA 


CALCK 


29FC 


CATBGN 


2EAA 


CK2HIT 


2688 


CKDSPEC 


25A7 


CKHIT2 


2645 


CKHIT6 


2694 


CKNAM 


26B8 


CKNAM2A 


2A65 


CKPAW1 


2A93 


CKTDRIV 


2EC4 


CLRLP 


2B33 


CPHLDE 


2A4A CVD1 


2A38 


CVD2 


2B38 


CYLCNT 


2ACF 


DATBUF 


2E97 


DEN 


0003 


DIR 


2E43 


DIR2 


2EDD 


DIR4 


2DD9 


DIR 


272D 


DOLDIR 


2759 


DONAM3 


2774 


DONAM5A 


27 DC 


D0NAM8 


2874 


DO NT INC 


2C0E 


DSTRING 


2819 


ENDMEM 


2895 


ERR32 


2429 


EXITSRT 


2CE9 FILES 


2BAF 


FLAG 


2E05 


FRCTO 


24CB 


FS2 


2CDE 


FTFLG 


2E00 GDATE 


2E7C 


GETPRM 


24F0 GTDATE 


2C03 


HEADING 


2D72 


ILLDATE 


29C6 


IOERR 


268C 


KEEPEOF 


000 A KFLAG1 


2C3C 


KSIZE 


2F23 


LF 


29 B9 


LKLOOP 



2B54 
282F 
2924 
2960 
2977 
0027 
2411 
4296 
2F00 
29E8 
2403 
26C6 
2EE7 
25 AB 
2651 
26A2 
26C9 
2A9C 
2F15 
2537 
2A13 
2A4F 
2A63 
2C1B 
2C4D 
2BFF 
2DD9 
2E54 
2433 
28B0 
24 AA 
275D 
278D 
27FD 
2884 
2C07 
2FC0 
241C 
2BB1 
25CF 



2ED1 
24CC 
2DD7 
2F87 
2E11 
2E91 
2C57 
2579 
241E 
289E 
2AAD 
2CC0 
000A 
2501 
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LRL 


2CAE MATCH 


2733 MAXDAYS 


2D66 


MAXMEM 


2DDB MEMORY 


3000 MFLG 


26C3 


MONTBL 


2DAE NAME 


2C11 NDRIVE 


2D22 


NEXTDRV 


2472 NODISK 


2D1B NOINC 


2F6D 


NOMEM 


240D NOMEM$ 


2D7A NOPRT 


29 DE 


NOTAP 


2619 NOTDASH 


2EF8 NOTDUB 


24E9 


NOTITLE 


2A87 NOTLEAP 


2F5E NO DISK 


245F 


NPARM 


2A71 NUM 


0080 OFFSET 


2CBB 


OUTCHR 


2940 OUTMOD 


2937 OUTSPC 


29E0 


PAKDAT 


2F49 PARSDAT 


2F8E PAR ERR 


002 C 


PLEVEL 


2CA7 POP 


2B90 PPARM 


29 D2 


PRMTBL$ 


2BC4 PROTS$ 


2D46 PRS1 


2F93 


PRS2 


2FA3 PRS3 


2FB7 PRS4 


2FB9 


PRSPC 


2F2A PS1 


2F38 PS2 


2F42 


PS 3 


2F43 RECORDS 


2CB3 REPEAT 


2B5A 


RESKFL 


2AA8 RESTPTR 


2E17 SAVESP 


242 C 


SBUFFER 


2985 SFLAG 


2A77 SFLAG$ 


0012 


SHELL 


2B32 SKIPLOC 


2517 SORT1 


2AEF 


S0RT2 


2B0F S0RT2A 


2B1F SORT3 


2B23 


SORT IT 


2ADF SORTPRM 


26F8 SPARM 


267E 


SPECIF 


2635 SPUSED 


2D10 STARS 


2DD2 


STORI 


2B5B STORJ 


2B55 STORK 


2BBA 


STORM 


2B39 STR 


0020 SWAP 


2B94 


TAB 


0009 TDATE 


2D31 TERM 


2F0B 


TERMDRV 


262 A TFILES 


25F6 TOPAKD 


2DDF 


TOTGRNS 


2601 TSTSIZ 


2886 UNPACK 


2A19 


VFLAG$ 


0015 (30ABORT 


6E3D <a@ADTSK 


6ED0 


@@BANK 


73E8 @@BKSP 


70C8 (£>@BREAK 


73FE 


00CHNIO 


6E28 (a@CKBRKC 


744C @@CKDRV 


6F24 


0GCKEOF 


70DD 00CKTSK 


6EBB (JKPCLOSE 


70 B3 


(a@CLS 


7436 (30CMNDI 


6E67 @@CMNDR 


6E7C 


00CTL 


6C8C @@DATE 


6DFE 00DCSTAT 


6F63 


@@DEBUG 


6EA6 <a@DECHEX 


7368 (a^DIRRD 


72 D5 


@@DIRWR 


72EA @@DIV16 


7353 (a@DIV8 


733E 


(30DODIR 


6F39 (a@DSP 


6C50 @<s>DSPLY 


6CF0 


TERROR 


6E91 @@EXIT 


6E52 @@FEXT 


7242 


@@FLAGS 


73D2 (90FNAME 


7257 @(aFSPEC 


722D 


0I3GATRD 


72 C0 00GATWR 


72FF @@GET 


6C64 


@@GTDCB 


7281 (a@GTDCT 


726C @@GTMOD 


7296 


00HDFMT 


700 B @@HEX16 


73A7 &HEX8 


7392 


@@HEXDEC 


737D @@HIGH$ 


73BC miHU 


7089 


(9(3 KB D 


6CC8 @@KEY 


6C3C @@KEYIN 


6CDC 


@(3KLTSK 


6F0F @@LOAD 


7203 @@LOC 


70F2 


00LOF 


7107 @@LOGER 


6D27 (a@LOGOT 


6D3C 


@@MSG 


6D73 @@MUL16 


7329 @@MUL8 


7314 


00OPEN 


709E @@PARAM 


6DE9 @@PA;KF 


6DD4 


@@PEOF 


711C 00POSN 


7131 @@PR1NT 


6D88 


(3@PRT 


6CA0 @@PUT 


6C78 @@RAMDIR 


6F4E 


00RDSEC 


6FE1 00RDSSC 


72AB (JH3READ 


7146 


@@REMOV 


7074 GGRENAM 


705F @@REW 


715B 


@(3RMTSK 


6EE5 <3@RPTSK 


6EFA @(3RREAD 


7170 


@@RSLCT 


6FCC @@RSTOR 


6F8D @(3RUN 


7218 


@@RWRIT 


7185 @(3SEEK 


6FB7 @@SEEKSC 


719A 


(<>(? SKIP 


71AF GGSLCT 


6F78 @@STEPI 


6FA2 


00TIME 


6E13 @@VDCTL 


6DBF @@VER 


71C4 


@@VRSEC 


6FF6 (a@WEOF 


71D9 @(s>WHERE 


6CB4 


(30WRITE 
(30WRTRK 


71 EE @@WRSEC 
704A 


7020 @@WRSSC 


7035 


2400 is the 


transfer address 
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DO - LS-DOS 6.2 


Page 00001 




00100 


;LBDO/ASM - Library 'DO' commanc 


i 


0000 


00110 




TITLE 


<DO - LS-DOS 6.2> 




00120 


» 








00C0 


00130 JFCB$ 


EQU 


0C0H 


;Low core EQU* 




00140 


» 










00150 


S 








0000 


00160 


SMALL 


EQU 







000 D 


00170 


CR 


EQU 


13 




0000 


00180 


*GET 


SVCMAC: 


3 


;SVC Macro equivalents 




00010 


;SVCMAC/ASM - LS-DOS Version VI 






00020 


*LIST 


OFF 








03900 


*LIST 


ON 








00190 


s 








2400 


00200 
00210 


* 


ORG 


2400H 




2400 


00220 
00230 


DO 


EQU 


$ 






00240 


> 


Note: The first 80 bytes 


; (until PARSINP) are 




00250 


i 


Used as 


a line buffer di 


iring processing. 




00260 


a 








2400 


00270 JCLBUF2 


EQU 


$ 




2400 ED737929 


' 00280 
00290 


» 


LD 


(SPSAV+1) S SP 


;Save stack pointer 




00300 




IF 


SMALL 






00310 




JR 


NOCPLS 


;No compile if Small 




00320 




ENDIF 






2404 226D24 


00330 
00340 


» 


LD 


(INB.UF+D.HL 


;Save start of command 




00350 


*LIST 


OFF 








00370 


*LIST 


ON 






2407 


00380 




@(9FLAGS 




;Get flag table pointer 


2407 3E65 


00001 




LD 


A, 101 




2409 EF 


00002 




RST 


40 




240A 7E 


00390 




LD 


A S (HL) 




240B FE2A 


00400 




CP 


■ *■ 


;Execute last DO file? 


240D CAF024 


00410 




JP 


Z,NOCPL2 




2410 FE3D 


00420 




CP 


i _ i 


;Execute without compile? 


2412 CAD924 


00430 




JP 


Z,NOCPL 




2415 FE24 


00440 




CP 


'$' 


;Compile only? 


2417 200 A 


00450 




JR 


NZ, GETSPEC 




2419 32B424 


00460 




LD 


(NOEXEC?+l),A 




241C 23 


00470 




INC 


HL 




241D 7E 


00480 




LD 


A,(HL) 




241E FE20 


00490 




CP 


1 ' 


;Bypass space separator 


2420 2001 


00500 




JR 


NZ S GETSPEC 


; if present 


2422 23 


00510 




INC 


HL 




2423 117C29 


00520 GETSPEC 


LD 


DE 9 D0FCB 


;Get DO filespec 


2426 


00530 




(a(i>FSPEC 






2426 3E4E 


00003 




LD 


A, 78 




2428 EF 


00004 




RST 


40 




2429 C24829 


00540 




JP 


NZ,SPCREQ 


;Go if bad/missing filesp 


242C E5 


00550 




PUSH 


HL 


;Save INBUF$ pointer 


242D 21D729 


00560 




LD 


HL,SYSJCL+7 


; Default ext to "/JCL" 


2430 


00570 




(30FEXT 






2430 3E4F 


00005 




LD 


A 9 79 




2432 EF 


00006 




RST 


40 




2433 21002C 


00580 




LD 


HL, INPBUF 


;Open DO file 


2436 45 


00590 




LD 


B,L 


;LRL=256 


2437 FDCB12C6 


, 00600 




SET 


9 (IY+'S'-'A' ) 


; Inhibit file open bit 


243B 


00610 




00 OPEN 






243B 3E3B 


00007 




LD 


A, 59 
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243D EF 


00008 


RST 


40 




243E C23D29 


00620 


JP 


NZ,IOERR 


;Jump on open error 


2441 CDF524 


00630 


CALL 


MOVFCB 


;Move SYSTEM/ JCL into FCB 


2444 11C000 


00640 


LD 


DE,JFCB$ 


;Init FCB pointer 


2447 21002D 


00650 


LD 


HL,OUTBUF 




244A 


00660 


@@INIT 






244A 3E3A 


00009 


LD 


A, 58 




244C EF 


00010 


RST 


40 




244D C25C29 


00670 


JP 


NZ,DSKFUL 


;Jump on error 


2450 El 


00680 
00690 ; 


POP 


HL 


;Rcvr pointer to INBUF$ 




00700 ; 


Routine 


to parse a command line 




00710 ; 








2451 7E 


00720 PARSINP 


LD 


A, (HL) 


;P/u line char 


2452 FE0D 


00730 


CP 


CR 


;End of line? 


2454 CA4825 


00740 


JP 


Z,TSTLBL 




2457 23 


00750 


INC 


HL 


;Bump pointer 


2458 CD2D29 


00760 


CALL 


CKSPCOM 


; Ignore spaces & commas 


245B 28F4 


00770 


JR 


Z, PARSINP 




245D FE28 


00780 


CP 


'(' 


;Beginning of parms? 


245F CA0125 


00790 


JP 


Z,PARAM 




2462 FE3B 


00800 


CP 


5 


;Line continuation? 


2464 C26029 


00810 


JP 


NZ,PRMERR 




2467 0E3F 


00820 


LD 


C '? ' 


;Prompt for line continue 


2469 


00830 


@@DSP 






2469 3E02 


00011 


LD 


A, 2 




246B EF 


00012 


RST 


40 




246C 210000 


00840 INBUF 


LD 


HL , $-$ 


;Input continuation line 


246F 2D 


00850 


DEC 


L 


; Backup to start 


2470 2D 


00860 


DEC 


L 




2471 01004F 


00870 


LD 


BC,79<8 


;Max 79 chars input 


2474 


00880 


@@KEYIN 






2474 3E09 


00013 


LD 


A,9 




2476 EF 


00014 


RST 


40 




2477 DA6029 


00890 


JP 


C.PRMERR 


;Jump if break 


247A 


00900 


@@LOGER 




;Log the line 


247A 3E0B 


00015 


LD 


A, 11 




247C EF 


00016 


RST 


40 




247D 18D2 


00910 
00920 ; 


JR 


PARSINP 


;Go parse it 




00930 ; 


Routine 


to move to higher level nest 




00940 ; 








247F 2ABA2A 


00950 UNNEST 


LD 


HL,(NESTPTR) 


.Shift the last nest's 


2482 2B 


00960 


DEC 


HL 


; FCB into FCB area 


2483 119B29 


00970 


LD 


DE 5 D0FCB+31 




2486 012000 


00980 


LD 


BC $ 32 




2489 EDB8 


00990 


LDDR 






248B 23 


01000 


INC 


HL 




248C 22BA2A 


01010 


LD 


(NESTPTR),HL 


.Reset current FCB ptr 


248F 117C29 


01020 


LD 


DE,DOFCB 


.Reread last sector of 


2492 


01030 


@@RREAD 




; nested FCB 


2492 3E45 


00017 


LD 


A, 69 




2494 EF 


00018 


RST 


40 




2495 C23D29 


01040 


JP 


NZ,IOERR 




2498 C9 


01050 
01060 ; 


RET 






2499 2ABA2A 


01070 CKNEST 


LD 


HL,(NESTPTR) 


,P/u current FCB pointer 


249C 11BC2A 


01080 


LD 


DE,NESTFCB 


Is it the first nest? 


249F AF 


01090 


XOR 


A 




24A0 ED52 


01100 


SBC 


HL,DE 




24A2 2806 


01110 


JR 


Z,CPLFIN 


;Jump if so & exit 
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24A4 CD7F24 


01120 




CALL 


UNNEST 


; processing 


24A7 C37E25 


01130 
01140 


9 


JP 


CPLJCL 






01150 


9 


Finished compilation 


- Close 'er up 




01160 


9 








24 AA 11 C$00 


01170 CPLFIN 


LD 


DE 9 JFCB$ 


;Close SYSTEM/JCL file 


24AD 


01180 




(3@CLOSE 






24AD 3E3C 


00019 




LD 


A s 60 




24AF EF 


00020 




RST 


40 




24B0 C23D29 


01190 




JP 


NZ s IOERR 




24B3 3E00 


01200 


NOEXEC? 


LD 


A,0 


;Set to non-zero on 


24B5 B7 


01210 




OR 


A 


; compile only 


24B6 210000 


01220 




LD 


HL s 




24B9 C0 


01230 
01240 




RET 
ENDIF 


NZ 


;Exit on compile only 




01250 *LIST 


ON 








01260 


s 








24 BA 11C000 


01270 CPLFIN1 


LD 


DE 9 JFCB$ 


; Point to SYSTEM/JCL FCB 


24BD 210000 


01280 




LD 


HL,0 


; Correct bufptr later 


24 C0 45 


01290 




LD 


B,L 


;LRL=256 


24C1 FDCB12C6 01300 




SET 


s (IY+'S , -'A 1 


) ; Inhi bi t file open bit 


24C5 


01310 




(3(9 OP EN 




;Open it up 


24C5 3E3B 


00021 




LD 


A s 59 




24C7 EF 


00022 




RST 


40 




24C8 C23D29 


01320 




JP 


NZ s IOERR 


;Jump on error 


24CB ED4BC600 01330 




LD 


BC s (JFCB$+6) 


;Get SBUFF$ 


24 CF 


01340 




GXaDIRRD 






24CF 3E57 


00023 




LD 


A s 87 




24 Dl EF 


00024 




RST 


40 




24D2 7C 


01350 




LD 


A,H 


;Stuff high order to 


24 D3 32C400 


01360 




LD 


(JFCB$+4) 9 A 


; use for JFCB$ buffer 


24D6 3E9D 


01370 




LD 


A S 9DH 


;Call SYS11, entry 1 


24 D8 EF 


01380 
01390 


9 


RST 


28 H 






01400 


9 


Process 


execution without compilation 




01410 


S 








24D9 23 


01420 


NOCPL 


INC 


HL 




24DA 7E 


01430 


NOCPLS 


LD 


A,(HL) 


; Bypass space separator 


24 DB FE20 


01440 




CP 


i i 


; if present 


24 DD 28FA 


01450 




JR 


Z s NOCPL 




24DF 11C000 


01460 


NOCPL1 


LD 


DE,JFCB$ 


;Fetch DO filespec 


24E2 


01470 




@@FSPEC 






24E2 3E4E 


00025 




LD 


A, 78 




24 E4 EF 


00026 




RST 


40 




24E5 C24829 


01480 




JP 


NZ 9 SPCREQ 


;Jump on error 


24E8 21D729 


01490 




LD 


HL 9 SYSJCL+7 


;Default to /JCL 


24 EB 


01500 




GXBFEXT 






24EB 3E4F 


00027 




LD 


A, 79 




24ED EF 


00028 




RST 


40 




24EE 18CA 


01510 
01520 


9 


JR 


CPLFIN1 


;Go execute file 




01530 


*LIST 


OFF 








01550 


*LIST 


ON 






24F0 CDF524 


01560 


N0CPL2 


CALL 


MOVFCB 


;Execute SYSTEM/JCL 


24F3 18C5 


01570 
01580 


9 


JR 


CPLFIN1 


; file 


24F5 21D029 


01590 MOVFCB 


LD 


HL.SYSJCL 


;Move SYSTEM/JCL into 


24F8 11C000 


01600 




LD 


DE,JFCB$ 


; FCB area 


24FB 012000 


01610 




LD 


BC 9 32 




24FE EDB0 


01620 




LDIR 






2500 C9 


01630 




RET 
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01640 












01650 




Found a 


parm entered 






01660 










2501 CDE727 


01670 


PARAM 


CALL 


PARSNAM 


; Parse symbol -> current 


2504 2014 


01680 




JR 


NZ,PARAM1 


;Jump if bad symbol 


2506 F5 


01690 




PUSH 


AF 


;Save separator char 


2507 3E00 


01700 FNDLBL 


LD 


A,0 


;Test if a label 


2509 B7 


01710 




OR 


A 


; was found 


250A 2029 


01720 




JR 


NZ, MOVLBL 




250C CDB128 


01730 




CALL 


FINDSYM 


; Search symbol table 


250F CA6429 


01740 




JP 


Z,MULDEF 


;Multiply defined if in 


2512 CD9428 


01750 




CALL 


MOV NAME 


;Add symbol to table 


2515 Fl 


01760 




POP 


AF 


;Recover separator 


2516 FE3D 


01770 




CP 


i _ i 


Assignment? 


2518 2811 


01780 




JR 


Z, PARAM2 




251A CD2D29 


01790 


PARAM1 


CALL 


CKSPCOM 


;Ck space or comma 


251D 28E2 


01800 




JR 


Z, PARAM 




251F FE29 


01810 




CP 


')' 


;Exit parm scan on 


2521 CA5124 


01820 




JP 


Z,PARSINP 


; closing paren 


2524 FE0D 


01830 




CP 


CR 


;Also accept closing CR 


2526 2820 


01840 




JR 


ZjTSTLBL 




2528 C36029 


01850 
01860 


» 


JP 


PRMERR 


;Else parm error 


252B CDF227 


01870 


PARAM2 


CALL 


PARSVAL 


; Parse value into buf 


252E F5 


01880 




PUSH 


AF 


;Save separator char 


252F CDA628 


01890 




CALL 


MOVALUE 


; Symbol value into table 


2532 Fl 


01900 GETSEP 


POP 


AF 


;Recover separator 


2533 18E5 


01910 
01920 


» 


JR 


PARAM1 


;Loop 


2535 E5 


01930 MOVLBL 


PUSH 


HL 




2536 219C29 


01940 




LD 


HL 9 CURSYM 


;Pt to current sym buf 


2539 11C529 


01950 




LD 


DE,LBLSAV 


; & save label for 


253C 010800 


01960 




LD 


BC s 8 


; later testing 


253F EDB0 


01970 




LDIR 






2541 AF 


01980 




XOR 


A 


;Turn off "found label" 


2542 320825 


01990 




LD 


(FNDLBL+1) 9 A 




2545 El 


02000 




POP 


HL 


;Rcvr line ptr 


2546 18EA 


02010 
02020 


9 


JR 


GETSEP 


;Back for more 




02030 


9 


Got to 


end of JCL command line 




02040 


9 








2548 3A5528 


02050 TSTLBL 


LD 


A s (GOTLBL+l) 


;Was GLABEL a parm? 


254B B7 


02060 




OR 


A 




254C 2830 


02070 
02080 


9 


JR 


Z,CPLJCL 


;If not, don't look 




02090 


9 


Find the procedure bl 


ock named @LABEL 




02100 


9 








254E CD6126 


02110 


FINDLBL 


CALL 


RDJCL 


;Read JCL line 


2551 2811 


02120 




JR 


Z, GOTLIN 


;Go if line read 


2553 2ABA2A 


02130 




LD 


HL S (NESTPTR) 


;See if nested 


2556 11BC2A 


02140 




LD 


DE S NESTFCB 


; in an Include fi le 


2559 AF 


02150 




XOR 


A 




255A ED52 


02160 




SBC 


HL,DE 




255C CA5429 


02170 




JP 


Z s NOFIND 


;If not, lable not found 


255F CD7F24 


02180 




CALL 


UNNEST 


; else continue search 


2562 18EA 


02190 
02200 


9 


JR 


FINDLBL 




2564 218C2B 


02210 


GOTLIN 


LD 


HL,JCLBUF1 


;Pt to start 


2567 7E 


02220 




LD 


A, (HL) 


;Is 1st char a label 


2568 FE40 


02230 




CP 


'(a- 


; indicator? 


256A 20E2 


02240 




JR 


NZ, FINDLBL 


;Back for more if not 
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256C 23 
256D EB 
256E 21C529 
2571 010808 
2574 CDDD28 
2577 20D5 
2579 1803 



257B 
257E 
2581 
2584 
2587 
258A 
258B 
258C 
258E 
2591 
2593 
2595 
2596 



2599 
259B 
259D 
259F 
25A1 
25A4 
25A6 
25A7 
25A9 
25AC 
25AD 
25 AE 
25AF 
25B0 
25B1 
25B2 
25B5 
25B6 
25B8 
25 B9 
25BA 
25 BC 
25 BE 
25 BF 
25C0 
25C2 
25C5 
25C7 
25C8 
25 CA 
25CB 
25CC 
25CD 



CD9226 

CD6126 

C29924 

218C2B 

110024 

7E 

23 

FE40 

CA9924 

FE2F 

2004 

BE 

CA3326 



FE23 

2825 

FE25 

2017 

CDA625 

1818 

BE 

2821 

CDCE25 

23 

07 

07 

07 

07 

4F 

CDCE25 

Bl 

1812 

12 

13 

FE0D 

28BD 

7E 

23 

18 D7 

CDC725 

18F7 

BE 

2015 

23 

12 

13 

C9 



02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 
02830 
02840 
02850 



Found a label - is it the one needed? 



INC 

EX 

LD 

LD 

CALL 

JR 

JR 

CONDCPL CALL 
CPLJCL CALL 
JP 
LD 
LD 
LD 
INC 
CP 
JP 
CP 
JR 
CP 
JP 
CPLJCL1 



HL 

DE,HL 

HL,LBLSAV 

BC,808H 

FNDPRM 

NZ.FINDLBL 

CPLJCL 

TSTCOND 

RDJCL 

NZ,CKNEST 

HL,JCLBUF1 

DE,JCLBUF2 

A,(HL) 

HL 

■@' 

Z,CKNEST 

7' 

NZ,CPLJCL1 

(HL) 

Z s MACRO 



Modification for HEX 



CPLJCL7 



CPLJCL2 

CPLJCL3 

CPLJCL4 
CPLJCL5 
CPLJCL6 



CP 

JR 

CP 

JR 

CALL 

JR 

CP 

JR 

CALL 

INC 

RLCA 

RLCA 

RLCA 

RLCA 

LD 

CALL 

OR 

JR 

LD 

INC 

CP 

JR 

LD 

INC 

JR 

CALL 

JR 

CP 

JR 

INC 

LD 

INC 

RET 



'#' 

Z,CPLJCL4 

'%' 

NZ,CPLJCL2 

CPLJCL7 

CPLJCL3 

(HL) 

Z,CPLJCL6 

CVRTHEX 

HL 



C A 

CVRTHEX 

C 

CPLJCL6 

(DE),A 

DE 

CR 

Z.CONDCPL 

A,(HL) 

HL 

CPLJCL1 

CPLJCL5 

CPLJCL3 

(HL) 

NZ,SUBSYM 

HL 

(DE),A 

DE 



;Pt to 1st char 
;Ptr to DE 

;Symbol & field len =8 
;A match? 

;No match? look for next 
; else you're the one 



;Read line from JCL file 
;Exit on end of file 
;Parse the line just read 



;End procedure if found 
; another label 
;Slash? 

;Double slash? 

;Jump on double slash 



parsing 

;Substitution? 

;Hex value? 

;Back to take char if not 

;Go test double % 

;Double %? 

;Convert digit 
;Bump to next char 



;Rotate into left nybble 
;Save for now 
;Convert 2nd digit 
;Merge left nybble 

; Nothing special s xfer 



;Exit on end of line 
;Grab next input char 

; & loop 

Ck on double '#' 

Substitute if not ## 

Double #? 

Jump to substitute if 
only single # 
else xfer the char 
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The Source 


LIBRARY Fi 


les 


DO - LS-DOS 


6.2 Page 00006 




02860 


» 








25CE 7E 


02870 


CVRTHEX 


LD 


A,(HL) 


;P/u the digit 


25CF D630 


02880 




SUB 


30 H 


;Start conversion 


25 Dl 380A 


02890 




JR 


CCVRTHE1 


;Error if < 


25 D3 FE0A 


02900 




CP 


10 




25 D5 D8 


02910 




RET 


C 


;Go if 0-9 


25 D6 CBAF 


02920 




RES 


5, A 


;In case 1/c 


25 D8 D607 


02930 




SUB 


7 


;Adjust A-F -> 10-15 


25 DA FE10 


02940 




CP 


16 




25 DC D8 


02950 




RET 


C 


;6o if 10-15 


25DD 183F 


02960 CVRTHE1 


JR 


BADHDR 






02970 


» 










02980 


» 


Symbol 


substitution 


routine 




02990 


» 








25 DF E5 


03000 


SUBSYM 


PUSH 


HL 




25 E0 D5 


03010 




PUSH 


DE 




25E1 CDE727 


03020 




CALL 


PARSNAM 


; Parse symbol 


25E4 FE23 


03030 




CP 


'#' 


;Must have closing # 


25E6 2036 


03040 




JR 


NZ, BADHDR 


;Bad JCL format if not 


25E8 E3 


03050 




EX 


(SP),HL 


;Put new posn on stack 


25E9 E5 


03060 




PUSH 


HL 


; and get HL=start posn 


25EA CDB128 


03070 




CALL 


FINDSYM 


;Get symbol value 


25 ED 200F 


03080 




JR 


NZ.SUBSYM1 


; Bypass if not in table 


25 EF 1A 


03090 




LD 


A,(DE) 


;Get symbol length 


25F0 B7 


03100 




OR 


A 




25F1 280B 


03110 




JR 


Z,SUBSYM1 


;Bypass if zero length 


25F3 0600 


03120 




LD 


B,0 




25F5 4F 


03130 




LD 


C,A 




25F6 13 


03140 




INC 


DE 


;Point to 1st symbol char 


25F7 El 


03150 




POP 


HL 


;Rcvr where we need to 


25F8 EB 


03160 




EX 


DE,HL 


; substitute then move 


25F9 EDB0 


03170 




LDIR 




; symbol value into pos 


25FB El 


03180 




POP 


HL 




25FC Fl 


03190 




POP 


AF 




25FD C9 


03200 
03210 


» 


RET 






25FE Dl 


03220 


SUBSYM1 


POP 


DE 


;Symbol not in table, so 


25FF Fl 


03230 




POP 


AF 


; leave as is in the DO 


2600 El 


03240 




POP 


HL 


; file. 


2601 3E23 


03250 




LD 


A,'#' 


; Starting # 


2603 12 


03260 


SUBSYM2 


LD 


(DE),A 




2604 13 


03270 




INC 


DE 


;Inc buffer 


2605 7E 


03280 




LD 


A S (HL) 


;Get a char from line 


2606 23 


03290 




INC 


HL 




2607 FE0D 


03300 




CP 


CR 


;If a CR before closing # 


2609 2813 


03310 




JR 


Z, BADHDR 


; abort 


260B FE23 


03320 




CP 


'#' 


;End of substitution? 


260D 20F4 


03330 




JR 


NZ,SUBSYM2 


;Get more if not 


260F 12 


03340 




LD 


(DE),A 




2610 13 


03350 




INC 


DE 




2611 C9 


03360 
03370 


» 


RET 








03380 


t 


Check 


if conditional 


is at top level 




03390 


» 








2612 ED5B5C2B 


03400 CKCOND 


LD 


DE,(CONDPTR) 


;P/u conditional pointer 


2616 215E2B 


03410 




LD 


HL,CONDFLG 


;Test if still on 1st one 


2619 AF 


03420 




XOR 


A 




261A ED52 


03430 




SBC 


HL,DE 




261C EB 


03440 




EX 


DE,HL 


; Pointer back to HL 


261D C0 


03450 
03460 


> 


RET 


NZ 


;0k if nested else error 
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The Source 


LIBRARY Fi 


les 


DO - LS-DOS 6 


.2 Page 00007 




03470 ; 


Output 


invalid JCL format message 




03480 ; 








261E 11832B 


03490 BADHDR 


LD 


DE, BADHDR $+5 


;Show bad JCL line found 


2621 2ACE29 


03500 


LD 


HL,(LINENO) 


;Put decimal line # 


2624 


03510 


(a@HEXDEC 


; into message 


2624 3E61 


00029 


LD 


A, 97 




2626 EF 


00030 


RST 


40 




2627 217E2B 


03520 


LD 


HL,BADHDR$ 


; Display bad line # 


262A 


03530 


00LOGOT 








00031 


IFEQ 


00H,1 






00032 


LD 


HL, 






00033 


ENDIF 






262A 3E0C 


00034 


LD 


A, 12 




262C EF 


00035 


RST 


40 




262D 217A2A 


03540 BADH1 


LD 


HL,BADJCL$ 


; and abort message 


2630 C36729 


03550 
03560 ; 


JP 


EXTERR 






03570 ; 


Compile 


"//" line 






03580 ; 








2633 23 


03590 MACRO 


INC 


HL 




2634 CDE727 


03600 


CALL 


PARS NAM 


;Get symbol name 


2637 2015 


03610 


JR 


NZ,MACR02 


;Go if not JCL macro 


2639 CDC228 


03620 


CALL 


CK4C0ND 


;Ck for IF, ELSE, END 


263C D5 


03630 


PUSH 


DE 


;Stack the routine entry 


263D C8 


03640 


RET 


Z 


; & branch if found 


263E Dl 


03650 
03660 ; 


POP 


DE 


; else remove RET &.. . 




03670 ; 


Test the conditional 


logic state 




03680 ; 








263F ED5B5C2B 


03690 


LD 


DE,(CQNDPTR) 


;P/u conditional pointer 


2643 1A 


03700 


LD 


A,(DE) 


; & conditional state 


2644 B7 


03710 


OR 


A 




2645 C27E25 


03720 


JP 


NZ,CPLJCL 


;Jump if logic FALSE 


2648 CDCB28 


03730 
03740 


CALL 


CK4ASSN 


;Test for SET, RESET, 
; ASSIGN, INCLUDE, QUIT 


264B D5 


03750 


PUSH 


DE 


;Stack the routine entry 


264C C8 


03760 


RET 


Z 


; & branch if found 


264D Dl 


03770 


POP 


DE 




264E 118C2B 


03780 MACR02 


LD 


DE,JCLBUF1 


; Point to where we left 


2651 AF 


03790 


XOR 


A 


; off and continue to 


2652 ED52 


03800 


SBC 


HL S DE 


; parse the input line 


2654 44 


03810 


LD 


B,H 


; from the JCL file 


2655 4D 


03820 


LD 


C,L 




2656 218C2B 


03830 


LD 


HL,JCLBUF1 




2659 110024 


03840 


LD 


DE,JCLBUF2 




255C EDB0 


03850 


LDIR 






265E C3BE25 


03860 
03870 ; 


JP 


CPLJCL3 






03880 ; 


Read a 


line from the 


JCL file 




03890 ; 








2661 2ACE29 


03900 RDJCL 


LD 


HL.(LINENO) 


;Bump line counter 


2664 23 


03910 


INC 


HL 




2665 22CE29 


03920 


LD 


(LINENO).HL 




2668 218C2B 


03930 


LD 


HL,JCLBUF1 


; Point to line buffer 


266B 117C29 


03940 


LD 


DE s DOFCB 


;Point to FCB 


266E 0650 


03950 


LD 


B 9 80 


; Permit only 80 chars 


2670 


03960 RDJCL1 


(P0GET 




;Get a char 


2670 3E03 


00036 


LD 


A 9 3 




2672 EF 


00037 


RST 


40 




2673 2014 


03970 


JR 


NZ,RDJCL2 


;Jump on error 


2675 B7 


03980 


OR 


A 
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The Source 


LIBRARY Fi 


iles 


DO - LS-DOS 6. 


2 Page 00008 


2676 2816 


03990 


JR 


Z 9 RDJCL3 


; Bypass on null byte 


2678 77 


04000 


LD 


(HL) 9 A 


;Xfer byte to line buf 


2679 23 


04010 


INC 


HL 




267A FE0D 


04020 


CP 


CR 


;End of line? 


267C C8 


04030 


RET 


Z 




267D 10F1 


04040 
04050 ; 


DJNZ 


RDJCL1 


;Loop if not 




04060 ; 


If fall 


Is through, line 


too long 




04070 ; 








267F 360D 


04080 


LD 


(HL) $ CR 


; Stuff CR & provide 


2681 21EE29 


04090 


LD 


HL 9 LINLNG$ 


; error log message 


2684 222E26 


04100 


LD 


(BADHl+lhHL 




2687 1895 


04110 
04120 ; 


JR 


BADHDR 




2689 FE1C 


04130 RDJCL2 


CP 


1CH 


;EOF? 


268B C23D29 


04140 


JP 


NZ 9 I0ERR 


;Jurnp on any other error 


268E 3E1C 


04150 RDJCL3 


LD 


A 9 1CH 




2690 B7 


04160 


OR 


A 




2691 C9 


04170 
04180 ; 


RET 








04190 ; 


Act on 


JCL line if con 


ditional state = TRUE 




04200 ; 








2692 2A5C2B 


04210 TSTCONC 


i LD 


HL,(CONDPTR) 


;Grab conditional pointer 


2695 7E 


04220 


LD 


A S (HL) 


;Grab conditional state 


2696 B7 


04230 


OR 


A 




2697 C0 


04240 


RET 


NZ 


;Return if logic FALSE 


2698 210024 


04250 


LD 


HL 9 JCLBUF2 


;Point to processed line 


269B 11C000 


04260 


LD 


DE 9 JFCB$ 


;SYSTEM/JCL FCB 


269E 7E 


04270 


LD 


A 9 (HL) 


;Ck on double / 


269F FE2F 


04280 


CP 


,/. 




26A1 2010 


04290 


JR 


NZ.WRCPLD 


;Done if not / 


26A3 23 


04300 


INC 


HL 




26A4 BE 


04310 


CP 


(HL) 


;Check for double / 


26A5 2B 


04320 


DEC 


HL 




26A6 200B 


04330 


JR 


NZ 9 WRCPLD 


;Jump if not // 


26A8 3A0224 


04340 


LD 


A 9 (JCLBUF2+2) 


;Ck on comment 


26AB FE2E 


04350 


CP 


■ t 


;//. ? 


26AD 2004 


04360 


JR 


NZ 9 WRCPLD 


; Bypass if not comment 


26AF 


04370 


@@DSPLY 




;Else display the comment 




00038 


IFEQ 


00H,1 






00039 


LD 


HL 9 






00040 


ENDIF 






26AF 3E0A 


00041 


LD 


A 9 10 




26B1 EF 


00042 


RST 


40 




26B2 C9 


04380 
04390 ; 


RET 








04400 ; 


Write c 


ompiled line to 


SYSTEM/JCL 




04410 ; 








26B3 4E 


04420 WRCPLD 


LD 


C 9 (HL) 


;P/u a char 


26 B4 


04430 


GGPUT 




;Put it out 


26B4 3E04 


00043 


LD 


A,4 




26B6 EF 


00044 


RST 


40 




26B7 C23D29 


04440 


JP 


NZ 9 IOERR 


;Jump on error 


26BA 7E 


04450 


LD 


A 9 (HL) 


;Grab again to test 


26BB 23 


04460 


INC 


HL 


;Bump pointer 


26BC FE0D 


04470 


CP 


CR 


;End of line? 


26BE 20F3 


04480 


JR 


NZ,WRCPLD 


;Loop if not 


26C0 C9 


04490 
04500 ; 


RET 








04510 ; 


Parameter tables 






04520 ; 
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The Source 




LIBRARY Fi 


les 


DO - LS-DOS 6.2 


Page 00009 


26C1 49 




04530 CONDTBL 


DB 


'IF 




46 20 


20 20 










26C6 0A27 




04540 




DW 


IF 01 




26C8 45 




04550 




DB 


'ELSE ' 




4C 53 


45 


20 










26CD 3327 




04560 




DW 


ELSE1 




26CF 45 




04570 




DB 


'END ' 




4E 44 


20 20 










26D4 3E27 




04580 




DW 


END1 




26D6*00 




04590 




NOP 






26 D7 53 




04600 ASSNTBL 


DB 


'SET 




45 54 20 20 20 


20 20 








26 DF 6D27 




04610 




DW 


SET1 




26E1 52 




04620 




DB 


'RESET 




45 53 


45 


54 20 


20 20 








26E9 7C27 




04630 




DW 


RESET1 




26EB 41 




04640 




DB 


'ASSIGN ' 




53 53 


49 


47 4E 


20 20 








26F3 8E27 




04650 




DW 


ASSIGN 




26F5 49 




04660 




DB 


'INCLUDE ' 




4E 43 


4C 


55 44 


45 20 








26FD A927 




04670 




DW 


INCLUD 




26FF 51 




04680 




DB 


'QUIT 




55 49 


54 


20 20 


20 20 








2707 E127 




04690 




DW 


QUIT 




2709 00 




04700 
04710 


s 


NOP 










04720 


9 


Process 


IF command 








04730 


9 








270A CD4727 




04740 


IF01 


CALL 


IF 05 


;Parse expression 


270D 2814 




04750 




JR 


Z,IF02 


;Z=true, NZ=false 


270F FE0D 




04760 




CP 


CR 


;False i end of line? 


2711 2813 




04770 




JR 


Z,IF03 




2713 FE2B 




04780 




CP 


' + ' 


;Logical OR? 


2715 28F3 




04790 
04800 


» 


JR 


Z,IF01 








04810 


s 


Test fo 


r FALSE and logical AND (&) 






04820 


» 








2717 FE26 




04830 




CP 


'&' 


;Separator AND? 


2719 2055 




04840 




JR 


NZ 9 BADHDR0 


; Invalid format if not 


271B 23 




04850 


IF01A 


INC 


HL 


; Ignore rest of line 


271C 7E 




04860 




LD 


A,(HL) 




271D FE0D 




04870 




CP 


CR 




271F 20FA 




04880 




JR 


NZ,IF01A 




2721 1803 




04890 




JR 


IF 03 




2723 AF 




04900 


IF 02 


XOR 


A 


; Logic = true 


2724 1802 




04910 




JR 


IF 04 




2726 3EFF 




04920 


IF 03 


LD 


A,0FFH 


;Logic = false 


2728 2A5C2B 


04930 


IF 04 


LD 


HL,(CONDPTR) 


;Get conditional pointer 


272 B B6 




04940 




OR 


(HL) 


;Set logic state 


272C 23 




04950 




INC 


HL 


;Bump pointer 


272D 77 




04960 




LD 


(HL),A 


;Stuff state result 


272E 225C2B 


04970 




LD 


(CONDPTRKHL 


;Save pointer 


2731 1846 




04980 
04990 
05000 
05010 




JR 
Process 


GOJCL 

ELSE command 




2733 CD1226 


05020 


ELSE1 


CALL 


CKCOND 


;Ck nest of conditional 


2736 7E 




05030 




LD 


A,(HL) 


; F 1 i p state of flag based 


2737 2F 




05040 




CPL 




; on previous test 


2738 2B 




05050 




DEC 


HL 
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The Source 


LIBRARY Fi 


les 


DO - LS-DOS 6. 


2739 B6 


05060 




OR 


(HL) 


273A 23 


05070 




INC 


HL 


273B 77 


05080 




LD 


(HL),A 


273C 183B 


05090 
05100 




JR 


GOJCL 




05110 




Process 


END command 




05120 








273E CD1226 


05130 


END1 


CALL 


CKCOND 


2741 2B 


05140 




DEC 


HL 


2742 225C2B 


05150 




LD 


(CONDPTR),HL 


2745 1832 


05160 
05170 


s 


JR 


GOJCL 




05180 


s 


Parse conditional expr 




05190 


S 






2747 CD5127 


05200 


IF 05 


CALL 


IF 06 


274A C0 


05210 




RET 


NZ 


274B FE26 


05220 




CP 


'&' 


274D 28F8 


05230 




JR 


Z.IF05 


274F AF 


05240 




XOR 


A 


2750 C9 


05250 




RET 




2751 7E 


05260 


IF 06 


LD 


A,(HL) 


2752 FE2D 


05270 




CP 


i _ i 


2754 200A 


05280 




JR 


NZ,IF08 


2756 23 


05290 




INC 


HL 


2757 CD6027 


05300 




CALL 


IF 08 


275A 2001 


05310 




JR 


NZ,IF07 


275C F6 


05320 




DB 


0F6H 


275 D AF 


05330 


IF07 


XOR 


A 


275E 78 


05340 




LD 


A,B 


275F C9 


05350 




RET 




2760 CDE727 


05360 


IF08 


CALL 


PARS NAM 


2763 C0 


05370 




RET 


NZ 


2764 F5 


05380 




PUSH 


AF 


2765 E5 


05390 




PUSH 


HL 


2766 CDB128 


05400 




CALL 


FINDSYM 


2769 El 


05410 




POP 


HL 


276A CI 


05420 




POP 


BC 


276B 78 


05430 




LD 


A,B 


276C C9 


05440 
05450 


s 


RET 






05460 


» 


Process 


SET command 




05470 


5 






276D CDE727 


05480 SET1 


CALL 


PARS NAM 


2770 C21E26 


05490 


BADHDR0 JP 


NZ,BADHDR 


2773 CDB128 


05500 




CALL 


FINDSYM 


2776 C49428 


05510 




CALL 


NZ,MOVNAME 


2779 C37E25 


05520 GOJCL 


JP 


CPLJCL 




05530 


3 








05540 


S 


Process 


RESET command 




05550 


S 






277C CDE727 


05560 RESET1 


CALL 


PARSNAM 


277F 20EF 


05570 




JR 


NZ,BADHDR0 


2781 CDB128 


05580 




CALL 


FINDSYM 


2784 20F3 


05590 




JR 


NZ, GOJCL 


2786 21F8FF 


05600 




LD 


HL,-8 


2789 19 


05610 




ADD 


HL,DE 


278A 3620 


05620 




LD 


(HL),' ' 


278C 18EB 


05630 
05640 


s 


JR 


GOJCL 




05650 


> 


Process 


ASSIGN command 




05660 


> 







Page 00010 
;OR in previous state 
;Store new value 



;Ck nest level 

;Backup conditional one 

; level & reset pointer 



;Get if symbol is true 
; or false & ret if false 
;Logical AND separator? 
;If TRUE AND -> ck next 
;True and not AND, 
; ret true 

;Logical NOT? 

; Bypass '-' 

;Grab symbol logic state 

;Z=true, NZ=false 

;Was true, not => false 

;Was false, not => true 

;Rcvr separator 

;Get symbol name into buf 
;Ret if bad symbol 



;Find symbol in table 



;Put zero in A & use flag 
;From search 



; Parse symbol name 
;Jump if bad symbol 
;Find in table 
;Move name into table 



; Parse symbol name 

;Find symbol in table 
;No problem if not there 
;Point to start of name 
; & put in a blank 
; to remove symbol 
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The Source 


LIBRARY Fi 


les 


DO - LS-DOS 6, 


278E CDE727 


05670 ASSIGN 


CALL 


PARSNAM 


2791 20DD 


05680 


JR 


NZ 9 BADHDR0 


2793 F5 


05690 


PUSH 


AF 


2794 CDB128 


05700 


CALL 


FINDSYM 


2797 C49428 


05710 


CALL 


NZ 9 M0VNAME 


279A Fl 


05720 


POP 


AF 


279B FE3D 


05730 


CP 


i _i 


279D 20D1 


05740 


JR 


NZ 9 BADHDR0 


279F CDF227 


05750 


CALL 


PARSVAL 


27A2 20CC 


05760 


JR 


NZ 9 BADHDR0 


27A4 CDA628 


05770 


CALL 


MOVALUE 


27A7 18D0 


05780 
05790 ; 


JR 


GOJCL 




05800 ; 


Process 


INCLUDE comman 




05810 ; 






27A9 E5 


05820 INCLUD 


PUSH 


HL 


27AA ED5BBA2A 05830 


LD 


DE.(NESTPTR) 


27AE 215C2B 


05840 


LD 


HL 9 NESTEND 


27B1 AF 


05850 


XOR 


A 


27B2 ED52 


05860 


SBC 


HL S DE 


27B4 CA4C29 


05870 


JP 


Z, NESTS 


27B7 217C29 


05880 


LD 


HL 9 D0FC6 


27BA 012000 


05890 


LD 


BC 9 32 


27BD EDB0 


05900 


LDIR 




27BF ED53BA2A 05910 


LD 


(NESTPTR).DE 


27C3 El 


05920 


POP 


HL 


27C4 117C29 


05930 


LD 


DE 9 D0FCB 


27C7 


05940 


@@FSPEC 




27C7 3E4E 


00045 


LD 


A 9 78 


27C9 EF 


00046 


RST 


40 


27CA 20A4 


05950 


JR 


NZ 9 BADHDR0 


27CC 21D729 


05960 


LD 


HL.SYSJCL+7 


27CF 


05970 


(3@FEXT 




27CF 3E4F 


00047 


LD 


A 9 79 


27D1 EF 


00048 


RST 


40 


27D2 21002C 


05980 


LD 


HL,INPBUF 


27D5 45 


05990 


LD 


B 9 L 


27D6 FDCB12C6 


I 06000 


SET 


9 (IY+'S , - l A i ) 


27DA 


06010 


(30OPEN 




27DA 3E3B 


00049 


LD 


A,59 


27DC EF 


00050 


RST 


40 


27DD 2091 


06020 


JR 


NZ 9 BADHDR0 


27 DF 1898 


06030 
06040 ; 


JR 


GOJCL 




06050 ; 


Process 


QUIT command 




06060 ; 






27E1 218C2B 


06070 QUIT 


LD 


HL 9 JCLBUF1 


27E4 C36729 


06080 
06090 ; 


JP 


EXTERR 




06100 ; 


Parse symbol name 




06110 ; 


A <= se 


parator char 




06120 ; 


Z = ok 


, NZ = bad symb 




06130 ; 






27E7 D5 


06140 PARSNAM 


PUSH 


DE 


27 E8 0608 


06150 


LD 


B 9 8 


27EA 119C29 


06160 


LD 


DE 9 CURSYM 


27ED CD2E28 


06170 


CALL 


PARSER 


27F0 Dl 


06180 


POP 


DE 


27F1 C9 


06190 


RET 





Page 00011 

; Parse symbol name 
;Jump on bad name 
;Save separator char 
;Find in table 
;Add to table if not in 
;Recover separator 
;Error if not = 

; Parse value of symbol 

;Place value into table 



; Point to next FCB save 
; area & check if room 
; to store another FCB 

;Error if 5 nests already 
; Shift current FCB into 
; INCLUDE FCB save area 

; Update new nest pointer 

; Point to FCB 
;Fetch included file 



;Jump on error 
;Default to /JCL 



;0pen the included file 
Inhibit f i le open bit 



;Log the //QUIT command 



char 



;8 chars max 

; Symbol buffer area 

;Parse it 



06210 



Parse a symbol value 
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27F2 D5 
27F3 0620 
27F5 11A529 
27F8 CD1128 
27FB F5 
27FC E5 
27FD EB 
27FE 11A529 

2801 AF 

2802 ED52 

2804 7D 

2805 FE21 
2807 D25029 
280 A 32A429 
280D El 
280E Fl 
280F Dl 
2810 C9 



2811 
2814 
2817 
2818 
281 A 
281B 
281D 
281E 
2820 
2821 
2823 
2824 
2826 
2828 
282B 
282C 



282E 
282F 
2832 
2833 
2834 
2836 
2838 
283A 
283C 
283D 
283F 
2841 
2842 
2843 
2846 
2848 
2849 
284C 
284D 
284E 



CD2E28 

CD2D29 

C8 

FE0D 

C8 

FE3D 

C8 

FE28 

C8 

FE29 

C8 

FE23 

20E9 

CDC 72 5 

7E 

18E6 



78 

329028 

04 

7E 

FE03 

284C 

FEJ9D 

2848 

23 

FE22 

2007 

EE22 

324228 

18EB 

4F 

3A4228 

B7 

79 

2826 



06220 
06230 
06240 
06250 
06260 
06270 
06280 
06290 
06300 
06310 
06320 
06330 
06340 
06350 
06360 
06370 
06380 
06390 
06400 
06410 
06420 
06430 
06440 
06450 
06460 
06470 
06480 
06490 
06500 
06510 
06520 
06530 
06540 
06550 
06560 
06570 
06580 
06590 
06600 
06610 
06620 
06630 
06640 
06650 
06660 
06670 
06680 
06690 
06700 
06710 
06720 
06730 
06740 
06750 
06760 
06770 
06780 
06790 
06800 
06810 
06820 



PARSVAL PUSH 
LD 
LD 

CALL 
PUSH 
PUSH 
EX 
LD 
XOR 
SBC 
LD 
CP 
JP 
LD 
POP 
POP 
POP 
RET 



DE 

B,32 

DE,VALBUF 

XFRSTR 

AF 

HL 

DE,HL 

DE,VALBUF 

A 

HL,DE 

A,L 

33 

NC.TOOLNG 

(STRLEN),A 

HL 

AF 

DE 



Transfer a string field 



XFRSTR CALL 
XFRSTR1 CALL 
RET 
CP 
RET 
CP 
RET 
CP 
RET 
CP 
RET 
CP 
JR 

CALL 
LD 
JR 



PARSER 

CKSPCOM 

Z 

CR 

Z 

i _ i 

Z 
'(' 

z 
.). 

z 
'#' 

NZ, XFRSTR 
CPLJCL5 
A, (HL) 
XFRSTR 1 



Parse a field 



PARSER LD 
LD 
INC 

PAR2 LD 
CP 
JR 
CP 
JR 
INC 
CP 
JR 
XOR 

STUFQT EQU 
LD 
JR 
LD 
LD 
OR 
LD 
JR 



NOTQT 



A B 

(PAR6+1),A 

B 

A,(HL) 

3 

Z S PAR5 

CR 

Z,PAR5 

HL 
■ ii i 

NZ, NOTQT 
i ii i 

$-1 

(STUFQT) 9 A 

PAR 2 

C A 

A,' (STUFQT) 

A 

A,C 

Z,PAR3 



;32 chars max 
;Value buffer 
;Transfer from input 



;Calculate length of 
; the string 



;Jump if > 32 chars 
;Stuff string length 



Xfer max of 32 chars 
Return on space 
or comma 

Ret on end of line 

;Ret on = 

;Ret on left paren 

;Ret on right paren 

;Loop if not # 

;Ck on substitution 

;Then loop 



;Set max length of field 



;P/u entry char 
;ETX? 



;Not ending char, bump 
;Ck on string quote 

;Ck if opening or closing 



;Loop until terminator 
;Save char & test if 
; within quoted string 

;Get back the char 
;Allow all within "..." 
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2850 FE40 


06830 




CP 


'@' 


;Start of label? 


2852 200D 


06840 




JR 


NZ, NOLBL 




2854 D600 


06850 60TLBL 


SUB 





;Make sure only one 


2856 CA5829 


06860 




JP 


Z,LBLERR 




2859 325528 


06870 




LD 


(GOTLBL+l),A 


;Stuff '&' into test 


285C 320825 


06880 




LD 


(FNDLBL+1),A 


; & also for check 


285F 18D2 


06890 




JR 


PAR 2 


;Loop through start 


2861 FE2E 


06900 


NOLBL 


CP 


i i 


;Accept (., /, 0-9, :) 


2863 381F 


06910 




JR 


c]PAR5 




2865 FE3B 


06920 




CP 


■:'+l 




2867 380D 


06930 




JR 


C,PAR3 




2869 FE41 


06940 




CP 


'A' 


;Test for A-Z 


286B 3817 


06950 




JR 


C.PAR5 




286D FE5B 


06960 




CP 


'Z'+l 




286F 3805 


06970 




JR 


C.PAR3 




2871 CD3329 


06980 




CALL 


CKLCA2Z 


;Test for a-z 


2874 380E 


06990 




JR 


C S PAR5 




2876 05 


07000 


PAR 3 


DEC 


B 


;Char count down 


2877 2808 


07010 




JR 


Z,PAR4 




2879 12 


07020 




LD 


(DE),A 


;Save the char 


28 7 A AF 


07030 




XOR 


A 


;Show we found at 


287B 329028 


07040 




LD 


(PAR6+1) S A 


; least one valid char 


287 E 13 


07050 




INC 


DE 


;Bump receiving buffer 


287F 18B2 


07060 




JR 


PAR 2 


;Loop 


2881 04 


07070 


PAR 4 


INC 


B 


; Ignore trai ling chars 


2882 18AF 


07080 




JR 


PAR 2 


; past max length 


2884 4F 


07090 


PAR 5 


LD 


C,A 


;Found char out of range 


2885 D5 


07100 




PUSH 


DE 


;Save current end of buf 


2886 1804 


07110 




JR 


PAR5B 




2888 3E20 


07120 


PAR 5 A 


LD 


A,' ' 


;Fill out remaining field 


288A 12 


07130 




LD 


(DE),A 


; with blanks 


288 B 13 


07140 




INC 


DE 




288C 10FA 


07150 


PAR5B 


DJNZ 


PAR 5 A 




288E Dl 


07160 




POP 


DE 


;Recover pointer to last 


288F 3E00 


07170 


PAR6 


LD 


A,0 


;Char xfered, get max len 


2891 B7 


07180 




OR 


A 


;Note if we found a char 


2892 79 


07190 




LD 


A S C 


;Xfer separator char 


2893 C9 


07200 
07210 


» 


RET 








07220 


s 


Xfer 


symbol name to tab 


le & init value 




07230 


9 








2894 E5 


07240 MOV NAME 


PUSH 


HL 




2895 219C29 


07250 




LD 


HL,CURSYM 


;Current symbol buffer 


2898 010800 


07260 




LD 


BC S 8 


;8 chars to move 


289B EDB0 


07270 




LDIR 






289D AF 


07280 




XOR 


A 


;Zero accumulator 


289E 12 


07290 




LD 


(DE),A 


;Show symbol length=0 


289F 212100 


07300 




LD 


HL,33 


; Point to 1st byte 


28A2 19 


07310 




ADD 


HL 9 DE 


; of next symbol pos and 


28A3 77 


07320 




LD 


(HL),A 


; show it spare 


28 A4 El 


07330 




POP 


HL 




28A5 C9 


07340 
07350 


» 


RET 








07360 


» 


Place 


symbol value into 


table 




07370 


5 








28A6 E5 


07380 


MOVALUE 


PUSH 


HL 




28A7 21A429 


07390 




LD 


HL.STRLEN 


;Current value buffer 


28AA 012100 


07400 




LD 


BC,33 


; Length & value 


28AD EDB0 


07410 




LDIR 






28 AF El 


07420 




POP 


HL 




28B0 C9 


07430 




RET 
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07450 ; 


Find 


symbol in table 






07460 ; 








28B1 E5 


07470 FINDSYM PUSH 


HL 




28B2 119C29 


07480 


LD 


DE,CURSYM 


Symbol buffer 


28B5 21002E 


07490 


LD 


HL,SYMTAB 


Start of table 


28B8 012908 


07500 


LD 


BC,8<8!41 


,CP8, field (8,1,32) 


28BB CDDD28 


07510 


CALL 


FNDPRM 


.Search in progress 


28 BE 54 


07520 


LD 


D,H 


.Xfer pointer of symbol 


28BF 5D 


07530 


LD 


E,L 


, or to spare slot 


28C0 El 


07540 


POP 


HL 




28C1 C9 


07550 
07560 ; 


RET 








07570 ; 


Routine to check for IF, 


ELSE, END 




07580 ; 








28C2 E5 


07590 CK4C0ND 


PUSH 


HL 




28C3 21C126 


07600 


LD 


HL.CONDTBL 


Parm table 


28C6 010705 


07610 


LD 


BC,5<8!7 


5 chars, 7-char field 


28C9 1807 


07620 
07630 ; 


JR 


CK4AS1 






07640 ; 


Check 


on SET, RESET, ASSIGN, INCLUDE, QUIT 




07650 ; 








28CB E5 


07660 CK4ASSN 


PUSH 


HL 




28CC 21D726 


07670 


LD 


HL,ASSNTBL 


,Parm table 


28CF 010A08 


07680 


LD 


BC,8<8!10 


.Parm length, field len 


28D2 119C29 


07690 CK4AS1 


LD 


DE,CURSYM 


.Buffer area 


28 D5 CDDD28 


07700 


CALL 


FNDPRM 


;Ck for match 


28D8 5E 


07710 


LD 


E,(HL) 


;Xfer vector address 


28 D9 23 


07720 


INC 


HL 




28 DA 56 


07730 


LD 


D,(HL) 




28DB El 


07740 


POP 


HL 




28 DC C9 


07750 
07760 ; 


RET 








07770 ; 


Scan 


parm table for match 




07780 ; 








28 DD 7E 


07790 FNDPRM 


LD 


A,(HL) 


;End of parm table? 


28 DE B7 


07800 


OR 


A 




28 DF 2002 


07810 


JR 


NZ,FND1 


;Jump if not 


28E1 3C 


07820 


INC 


A 


; else show not found 


28E2 C9 


07830 


RET 






28E3 1A 


07840 FND1 


LD 


A,(DE) 


;Char match? 


28E4 CD3329 


07850 


CALL 


CKLCA2Z 


.Convert a-z to A-Z 


28E7 BE 


07860 


CP 


(HL) 




28E8 2807 


07870 


JR 


Z,FND3 


;Jump if 1st matches 


28EA C5 


07880 FND2 


PUSH 


BC 


; else bypass complete 


28 EB 0600 


07890 


LD 


B,0 


; field & go to next one 


28 ED 09 


07900 


ADD 


HL , BC 




28EE CI 


07910 


POP 


BC 




28 EF 18 EC 


07920 


JR 


FNDPRM 




28F1 E5 


07930 FND3 


PUSH 


HL 


;lst matches, ck rest 


28F2 D5 


07940 


PUSH 


DE 




28F3 C5 


07950 


PUSH 


BC 




28F4 05 


07960 


DEC 


B 


;Adj for 1st match 


28F5 13 


07970 FND4 


INC 


DE 




28F6 23 


07980 


INC 


HL 




28F7 1A 


07990 


LD 


A,(DE) 




28F8 FE20 


08000 


CP 


■ i 




28 FA 2827 


08010 


JR 


Z,FND7 


;Stop checking on space 


28FC FE0D 


08020 


CP 


CR 




28 FE 2823 


08030 


JR 


Z.FND7 


;0r end of line 


2900 CD3329 


08040 


CALL 


CKLCA2Z 


;Ck & convert a-z to A-Z 
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2903 BE 


08050 


CP 


(HL) 


.Compare remaining chars 


2904 200D 


08060 


JR 


NZ,FND6 


Jump on mismatch 


2906 10ED 


08070 


DJNZ 


FND4 


Loop to count 


2908 CI 


08080 FND5 


POP 


BC 


;Must have matched 


2909 Dl 


08090 


POP 


DE 


.Bypass remaining part 


290A El 


08100 


POP 


HL 


of field and point to 


290B C5 


08110 


PUSH 


BC 


address vector of parm 


290C 48 


08120 


LD 


C,B , 


in parm table 


290 D 0600 


08130 


LD 


B,0 




290F 09 


08140 


ADD 


HL,BC 




2910 CI 


08150 


POP 


BC 




2911 AF 


08160 


XOR 


A 




2912 C9 


08170 


RET 






2913 FE30 


08180 FND6 


CP 


'0' 


No match, is it ASCII? 


2915 380C 


08190 


JR 


C,FND7 




2917 FE3A 


08200 


CP 


■9'+l ; 


0-9? 


2919 380D 


08210 


JR 


C.FND8 




291B FE41 


08220 


CP 


'A' 


A-Z? 


291D 3804 


08230 


JR 


C.FND7 




291F FE5B 


08240 


CP 


'Z'+l 




2921 3805 


08250 


JR 


C.FND8 




2923 7E 


08260 FND7 


LD 


A,(HL) ; 


If table entry also a 


2924 FE20 


08270 


CP 


5 


space, we have a match 


2926 28E0 


08280 


JR 


Z,FND5 




2928 CI 


08290 FND8 


POP 


BC 




2929 Dl 


08300 


POP 


DE 




292A El 


08310 


POP 


HL 




292B 18BD 


08320 
08330 
08340 ; 


JR 

ENDIF 


FND2 






08350 ; 


Routine 


to ck on space or 


comma 




08360 ; 








292D FE20 


08370 CKSPCQM CP 


i i 




292F C8 


08380 


RET 


Z 




2930 FE2C 


08390 


CP 


i i 




2932 C9 


08400 
08410 ; 


RET 








08420 ; 


Routine 


to convert a-z tc 


A-Z & set C-flag 




08430 ; 








2933 FE61 


08440 CKLCA2Z CP 


'a' ; 


Back with C-flag if 


2935 D8 


08450 


RET 


C j 


not a-z 


2936 FE7B 


08460 


CP 


'z'+l 




2938 3F 


08470 


CCF 






2939 D8 


08480 


RET 


C 




293A EE20 


08490 


XOR 


20H ; 


Make U/C & reset CF 


293C C9 


08500 

08510 *LIST 
08520 ; 
08530 ; 


RET 
ON 








08540 ; 


Error processing 






08550 ; 








293D 6F 


08560 IOERR 


LD 


L,A ; 


Xfer errnum to HL 


293E 2600 


08570 


LD 


H,0 




2940 F6C0 


08580 


OR 


0C0H ; 


Set brief, return 


2942 4F 


08590 


LD 


C S A 




2943 


08600 


TERROR 


i 


Display error 


2943 3E1A 


00051 


LD 


A, 26 




2945 EF 


00052 


RST 


40 




2946 1825 


08610 
08620 ; 


JR 


ERREXIT 




2948 21DB29 


08630 SPCREQ 


LD 


HL,SPCREQ$ ; 


"filespec required" 
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08650 *LIST 
08670 *LIST 


les 

OFF 
ON 


DO - LS-DOS 6. 


2 Page 00016 


294B DD 


08680 


DB 


0DDH 




294C 21A12A 


08690 NESTS 


LD 


HL,NESTS$ 




294F DD 


08700 


DB 


0DDH 




2950 21FC29 


08710 TOOLNG 


LD 


HL 9 T00LNG$ 


;"symbol too long.. 


2953 DD 


08720 


DB 


0DDH 




2954 21132A 


08730 NOFIND 


LD 


HL 9 N0FIND$ 


;"proc not found.. 


2957 DD 


08740 


DB 


0DDH 




2958 21272A 


08750 LBLERR 


LD 


HL,LBLERR$ 


;"too many proc labels.. 


295B DD 


08760 


DB 


0DDH 




295C 213C2A 


08770 DSKFUL 


LD 


HL,DSKFUL$ 


;"can't create SYS/JCL" 


295F DD 


08780 


DB 


0DDH 




2960 216A2A 


08790 PRMERR 


LD 


HL,PRMERR$ 


;" parameter error" 


2963 DD 


08800 


DB 


0DDH 




2964 21592A 


08810 MULDEF 
08820 

08830 *LIST 
08840 ; 


LD 

ENDIF 

ON 


HL,MULDEF$ 


;"multiply defined 


2967 


08850 EXTERR 


GGLOGOT 








00053 


IFEQ 


00H,1 






00054 


LD 


HL 9 






00055 


ENDIF 






2967 3E0C 


00056 


LD 


A, 12 




2969 EF 


00057 


RST 


40 




296A 21FFFF 


08860 


LD 


HL,-1 


;Set error exit 


296D 


08870 ERREXIT 


EQU 


$ 




296D 11C000 


08880 


LD 


DE,JFCB$ 


;If the output JCL file 


2970 1A 


08890 


LD 


A,(DE) 


; is open, then we need 


2971 CB7F 


08900 


BIT 


7,A 


; to close it 


2973 2803 


08910 


JR 


Z s SPSAV 




2975 


08920 


@@CLOSE 






2975 3E3C 


00058 


LD 


A,60 




2977 EF 


00059 


RST 


40 




2978 310000 


08930 SPSAV 


LD 


SP,$-$ 




297B C9 


08940 
08950 ; 
08960 *LIST 
08980 *LIST 


RET 

OFF 
ON 






0020 


08990 DOFCB 


DS 


32 




0008 


09000 CURSYM 


DS 


8 




0001 


09010 STRLEN 


DS 


1 




0020 


09020 VALBUF 


DS 


32 




0008 


09030 LBLSAV 


DS 


8 




29CD 00 


09040 
09050 
09060 ; 
09070 *LIST 


NOP 
ENDIF 

ON 




;Must be zero 


29CE 0000 


09080 LINE NO 


DW 





;JCL line # 


29 D0 53 


09090 SYSJCL 


DB 


' SYSTEM/ JCL', 3 




59 53 54 


45 4D 2F 4A 43 






4C 03 










29 DB 46 


09100 SPCREQ$ DB 


'File spec reqi 


jired',CR 


69 6C 65 


20 73 70 65 63 






20 72 65 


71 75 69 72 65 






64 0D 


09110 *LIST 
09130 *LIST 


OFF 
ON 






29EE 4C 


09140 LINLNG$ 


DB 


'Line too long 


,CR 


69 6E 65 


20 74 6F 6F 2( 


3 
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6C 6F 
53 

79 6D 
72 69 
20 6C 
50 

72 6F 
20 6E 
6E 64 
54 

6F 6F 
50 72 
65 6C 
43 

61 6E 
61 74 
45 4D 
69 6C 
4D 

75 6C 
64 65 
50 

61 72 
20 65 
49 

6E 76 
43 4C 
74 2C 

73 73 
6F 72 
54 

6F 6F 
6E 65 
4E 43 
BC2A 



2B5C 

2B5C 5E2B 
2B5E 00 
001 F 
2B7E 4C 



29FC 
2A13 
2A27 
2A3C 

2A59 
2A6A 
2A7A 



2AA1 



2ABA 



69 6E 
78 20 



0050 
2C00 
0100 
0100 
2E00 00 



2E01 
2400 



6E 67 0D 
09150 

62 6F 6C 
6E 67 20 
6F 6E 67 

09160 

63 65 64 
6F 74 20 
0D 

09170 
20 6D 61 
6F 63 20 

73 0D 
09180 

27 74 20 
65 20 53 
2F 4A 43 

65 0D 
09190 

74 69 70 

66 69 6E 
09200 

61 6D 65 

72 72 6F 
09210 

61 6C 69 
20 66 6F 
20 70 72 
69 6E 67 
74 65 64 
09220 
20 6D 61 

73 74 65 
4C 55 44 

09230 
09240 
09250 
09260 
09270 
09280 
09290 
65 20 78 
2D 2D 3E 
09300 
09310 
09320 
09330 
09340 
09350 
09360 
09370 
09380 
09390 



TOOLNG$ DB 
20 73 74 

74 6F 6F 
0D 
NOFIND$ DB 

75 72 65 
66 6F 75 

LBLERR$ DB 
6E 79 20 
6C 61 62 

DSKFUL$ DB 

63 72 65 
59 53 54 
4C 20 66 

MULDEF$ DB 
6C 79 20 
65 64 20 
PRMERR$ DB 
74 65 72 
72 0D 
BADJCL$ DB 

64 20 4A 
72 6D 61 
6F 63 65 
20 61 62 
0D 

NESTS$ DB 
6E 79 20 
64 20 49 
45 73 0D 
NESTPTR DW 
NESTFCB DS 
NESTEND EQU 
CONDPTR DW 
CONDFLG DB 

DS 
BADHDR$ DB 
78 78 78 

JCLBUF1 DS 

ORG 
INPBUF DS 
OUTBUF DS 
SYMTAB DB 



Symbol string too long',CR 



'Procedure not found', CR 



Too many Proc label s',CR 



'Can"t create SYSTEM/JCL file'.CR 



Multiply defined 



'Parameter error' S CR 



; Follow with PRMERR$ 



'Invalid JCL format, processing aborted' S CR 



'Too many nested INCLUDES ' 5 CR 



NESTFCB 

32*5 

$ 

CONDFLG 



31 



; Pointer to nest FCB 
;Space for 5 levels 
;Ck for too many includes 
Conditional pointer 
; Ini t 1st state to TRUE 
;32 conditional levels 



*LIST 
CORES 



ENDIF 

ON 

DEFL 

END 



Line xxxxx -->' 



$<-8+l<+8 

256 

256 





$ 
DO 
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001 


0000 002 


0000 003 


0000 


@@4 


0000 0MOD2 


0000 0MOD4 


FFFF 


ASSIGN 


278E 


ASSNTBL 


26 D7 


BADH1 


262D 


BADHDR 


261E 


BADHDR $ 


2B7E 


BADHDR0 


2770 


BADJCU 


2A7A CK4AS1 


28 D2 


CK4ASSN 


28CB 


CK4C0ND 


28C2 


CKCOND 


2612 


CKLCA2Z 


2933 


CKNEST 


2499 


CKSPCOM 


292D 


CONDCPL 


257B 


CONDFLG 


2B5E 


CONDPTR 


2B5C 


CONDTBL 


26C1 


CORES 


2E01 


CPLFIN 


24AA 


CPLFIN1 


24BA 


CPLJCL 


257E 


CPLJCL1 


2599 


CPLJCL2 


25B8 


CPLJCL3 


25BE 


CPLJCL4 


25C2 


CPLJCL5 


25C7 


CPLJCL6 


25CA 


CPLJCL7 


25A6 


CR 


000 D 


CURSYM 


299C 


CVRTHE1 


25DD 


CVRTHEX 


25CE 


DO 


2400 


DOFCB 


297C 


DSKFUL 


295C 


DSKFUL$ 


2A3C 


ELSE1 


2733 


END1 


273E 


ERREXIT 


296D 


EXTERR 


2967 


FINDLBL 


254E 


FINDSYM 


28B1 


FND1 


28E3 


FND2 


28 EA 


FND3 


28F1 


FND4 


28F5 


FND5 


2908 


FND6 


2913 


FND7 


2923 


FND8 


2928 


FNDLBL 


2507 


FNDPRM 


28 DD 


GETSEP 


2532 


GETSPEC 


2423 


GOJCL 


2779 


GOTLBL 


2854 


GOTLIN 


2564 


IF01 


270A 


IF01A 


271B 


IF 02 


2723 


IF 03 


2726 


IF 04 


2728 


IF 05 


2747 


IF 06 


2751 


IF 07 


275D 


IF 08 


2760 


INBUF 


246C 


INCLUD 


27 A9 


INPBUF 


2C00 


IOERR 


293D 


JCLBUF1 


2B8C 


JCLBUF2 


2400 


JFCB$ 


00C0 LBLERR 


2958 


LBLERR$ 


2A27 


LBLSAV 


29C5 


LINE NO 


29CE 


LINLNG$ 


29EE 


MACRO 


2633 


MACR02 


264E 


MOVALUE 


28A6 


MOVFCB 


24F5 


MOVLBL 


2535 


MOV NAME 


2894 


MULDEF 


2964 


MULDEF$ 


2A59 


NESTEND 


2B5C 


NESTFCB 


2ABC 


NESTPTR 


2ABA 


NESTS 


294C 


NESTS$ 


2AA1 


NOCPL 


24 D9 


NOCPL1 


24 DF 


N0CPL2 


24F0 


NOCPLS 


24 DA 


NOEXEC? 


24B3 


NOFIND 


2954 


NOFIND$ 


2A13 


NOLBL 


2861 


NOTQT 


2848 


OUTBUF 


2D00 


PAR2 


2833 


PAR 3 


2876 


PAR 4 


2881 


PAR 5 


2884 


PAR5A 


2888 


PAR5B 


288C 


PAR 6 


288F 


PARAM 


2501 


PARAM1 


251A 


PARAM2 


252B 


PARSER 


282E 


PARSINP 


2451 


PARSNAM 


27E7 


PARSVAL 


27F2 


PRMERR 


2960 


PRMERR$ 


2A6A QUIT 


27E1 


RDJCL 


2661 


RDJCL1 


2670 RDJCL2 


2689 


RDJCL3 


268E 


RESET1 


277C 


SET1 


276D 


SMALL 


0000 


SPCREQ 


2948 


SPCREQ$ 


29DB 


SPSAV 


2978 


STRLEN 


29A4 


STUFQT 


2842 


SUBSYM 


25 DF 


SUBSYM1 


25FE 


SUBSYM2 


2603 


SYMTAB 


2E00 


SYSJCL 


29D0 TOOLNG 


2950 TOOLNG$ 


29FC 


TSTCOND 


2692 


TSTLBL 


2548 


UNNEST 


247F 


VALBUF 


29A5 


WRCPLD 


26B3 


XFRSTR 


2811 


XFRSTR1 


2814 


00ABORT 


BF67 


00ADTSK 


BFFA 


@@ BANK 


C512 


00BKSP 


C1F2 


00BREAK 


C528 


00CHNIO 


BF52 


00CKBRKC 


C576 


00CKDRV 


C04E 


00CKEOF 


C207 


00CKTSK 


BFE5 


00CLOSE 


C1DD 


00 CLS 


C560 00CMNDI 


BF91 


00CMNDR 


BFA6 


00CTL 


BDB6 


00 DATE 


BF28 


00DCSTAT 


C08D 


00 DEBUG 


BFD0 00DECHEX 


C492 


00DIRRD 


C3FF 


00DIRWR 


C414 


00DIV16 


C47D 


00DIV8 


C468 


00DODIR 


C063 


00 DSP 


BD7A 


00DSPLY 


BE1A 


00 ERROR 


BFBB 


00EXIT 


BF7C 


00FEXT 


C36C 
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The Source 


LIBRARY Files 


DO - I 


.S-DOS 6„2 




Page 00019 


WLAGS 


C4FC ^FNAME 


C381 


00FSPEC 


C357 




00GATRD 


C3EA 0(3GATWR 


C429 


(3@GET 


BD8E 




(3(?GTDCB 


C3AB ^GTDCT 


C396 


(30GTMOD 


C3C0 




@@HDFMT 


C135 00HEX16 


C4D1 


00HEX8 


C4BC 




(a@HEXDEC 


C4A7 @@HIGH$ 


C4E6 


@@INIT 


C1B3 




00KBD 


BDF2 0(3 KEY 


BD66 


(a@KEYIN 


BE06 




(30KLTSK 


C039 (a@LOAD 


C32D 


@@LOC 


C21C 




(a<£>LOF 


C231 @(s>LQGER 


BE51 


@@LOGOT 


BE66 




(a@MSG 


BE9D (a@MUL.16 


C453 


@@MUL8 


C43E 




(JWEN 


C1C8 @@PARAM 


BF13 


(a@PAUSE 


BEFE 




(3(3PEOF 


C246 @@POSN 


C25B 


@@PRINT 


BEB2 




m PRT 


BDCA (a@PUT 


BDA2 


©GRAMDIR 


C078 




@(<>RDSEC 


C10B (30RDSSC 


C3D5 


(3@READ 


C270 




@@ RE MOV 


C19E @(3RENAM 


C189 


@@REW 


C285 




@@RMTSK 


C00F GGRPTSK 


C024 


(3@RREAD 


C29A 




@@RSLCT 


C0F6 @@RSTOR 


C0B7 


<a@RUN 


C342 




@(3RWRIT 


C2AF @@SEEK 


C0E1 


@@SEEKSC 


C2C4 




m SKIP 


C2D9 (a@SL.CT 


C0A2 (a@STEPI 


C0CC 




@@TIME 


BF3D (a@VDCTL 


BEE9 


@@VER 


C2EE 




@@VRSEC 


C120 @@WEQF 


C303 


(3@WHERE 


BDDE 




@@ WRITE 


C318 @@WRSEC 


C14A @@WRSSC 


C15F 




@@WRTRK 


C174 










2400 is the 


transfer address 










00000 Total 


errors 
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Command: DUMP 
Library: SYS7/SYS 
ISAM # : 71H 
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The Source 



LIBRARY Files 



DUMP - LS-DOS 6.2 



Page 00001 



000 D 
002C 
3000 



00100 
00110 
00120 
00130 
00010 
00020 
03900 
00140 
00150 
00160 
00170 
00180 
00190 



;LBDUMP/ASM - DUMP Command 

TITLE <DUMP - LS-DOS 6 

*GET SVCMAC:3 

;SVCMAC/ASM - LS-DOS Version VI 

*LIST OFF 

*LIST ON 

CR EQU 
PARJRR EQU 
SINIT EQU 
EINIT EQU 



00210 
00220 



2400 

2400 
2400 3E6A 

2402 EF 

2403 2804 
2405 21FFFF 

2408 C9 

2409 111C26 
240C 

240C 3E4E 
240E EF 
240F C26E25 

2412 1A 

2413 FE2A 
2415 CA6E25 
2418 

2418 3E65 
241A EF 
241B E5 
241C FD661A 
241F 2E2C 

2421 7E 

2422 2C 

2423 66 

2424 6F 

2425 224025 
2428 El 



00450 
2429 11BD25 00460 
242C 00470 
242C 3E11 00007 
242E EF 
242F C25A25 
2432 2AE024 
2435 ED4BDA24 
2439 AF 
243A ED42 
243C DA6A25 
243F 210030 

2442 2B 

2443 ED42 
2445 D26625 
2448 
244 B 



DUMP 



00002 
00230 
00240 
00250 
00260 
00270 
00280 
00003 
00004 
00290 
00300 
00310 
00320 
00330 
00005 
00006 
00340 
00350 
00360 
00370 
00380 
00390 



BEGINA 



00410 
00420 
00430 



78 



00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 



ORG 



13 
44 

3000H 
SINIT 

2400H 



@@CKBRKC 

LD A, 106 

RST 40 

JR Z, BEGINA 

LD HL,-1 

RET 



LD 

@PFSPEC 

LD 

RST 

JP 

LD 

CP 

JP 

(aPFLAGS 

LD 

RST 

PUSH 

LD 

LD 

LD 

INC 

LD 

LD 

LD 

POP 



DE,FCB1 

A, 78 

40 

NZ,SPCREQ 

A,(DE) 
«*• 

Z.SPCREQ 

A, 101 

40 

HL 

H,(IY+26) 

L,22*2 

A,(HL) 

L 

H,(HL) 

L,A 

(TPARM+1) S HL 

HL 



Search for parameters 



APARM 



LD 

@@PARAM 

LD 

RST 

JP 

LD 

LD 

XOR 

SBC 

JP 

LD 

DEC 

SBC 

JP 

LD 

LD 



DE 9 PRMTBL$ 

A,17 

40 

NZ,PRMERR 

HL,(EPARM+1) 

BC S (SPARM+1) 

A 

HL,BC 

CENLTST 

HL,SINIT 

HL 

HL,BC 

NC,STLT30 

BC,0 



• 2> 

;SVC Macro equivalents 



;" Parameter Error" # 



; Break key down? 



;Ok if not 
; else abort 



;Fetch the filespec 



;Jump on error 
;Cannot be a device 

;Quit if device 

;Get system flag table 



;Save cmdline ptr 

;P/u SVC table MSB 

; & point to @EXIT entry 

;Get (3EXIT LSB 

;Get (3EXIT MSB 

;Init transfer to @EXIT 



;Get the parms 



;Jump on parm error 
;Ck on end > start 



;Jump on start < end 
Pt to lowest possible 
Reduce for compare 
Ck on start > minimum 
;Jump if start < minimum 
; ASCI I txt or code cim 
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The Source 


LIBRARY Fi 


les 


DUMP - LS-DOS 6 


.2 Page 00002 


244C Bl 


00600 


OR 


C 




244 D 202 B 


00610 


JR 


NZ S DUMPTXT 


;Go if ASCII 


244F 111626 


00620 


LD 


DE 9 NAMFLD 


;Get up to a 6-character 


2452 211C26 


00630 


LD 


HL 9 FCB1 


;Filename to stuff 


2455 0606 


00640 


LD 


B 8 6 


;As file header 


2457 7E 


00650 $?1 


LD 


A 9 (HL) 




2458 FE30 


00660 


CP 


'0' 


;Stop on non-alpha 


245A 3813 


00670 


JR 


C 9 $?3 




245C FE3A 


00680 


CP 


'9'+l 


;Use if 0-9 


245 E 3808 


00690 


JR 


C,$?2 




2460 FE41 


00700 


CP 


'A' 


;Ck on A-Z 


2462 380B 


00710 


JR 


C 9 $?3 




2464 FE5B 


00720 


CP 


■Z'+l 




2466 3007 


00730 


JR 


NC 9 $?3 


;Exit if not A-Z 


2468 12 


00740 $?2 


LD 


(DE),A 


;Xfer this char 


2469 23 


00750 


INC 


HL 


;Bump input ptr 


246A 13 


00760 


INC 


DE 


; & output pointer 


246B 10EA 


00770 


DJNZ 


$?1 


;Loop 6-chars max 


246D 1806 


00780 


JR 


$?4 




246F 3E20 


00790 $?3 


LD 


A,' ' 


;Place blanks to 


2471 12 


00800 


LD 


(DE) 9 A 


;Fill out to 6 chars 


2472 13 


00810 


INC 


DE 




2473 10FA 


00820 


DJNZ 


$?3 




2475 21B725 


00830 $?4 


LD 


HL 9 LMFEXT 


;Use /LMF extension 


2478 1803 


00840 


JR 


DUMPCIM 




247A 21BA25 


00850 DUMPTXT 


LD 


HL 9 TXTEXT 


;Use /TXT extension 


247D 111C26 


00860 DUMPCIM 


LD 


DE 9 FCB1 


;Default the EXT 


2480 


00870 


@(3FEXT 






2480 3E4F 


00009 


LD 


A 9 79 




2482 EF 


00010 


RST 


40 




2483 010000 


00880 LPARM 


LD 


BC 9 


;P/u LRL 


2486 78 


00890 


LD 


A,B 


;Test for > 256 


2487 B7 


00900 


OR 


A 


;If hi -order = 9 


2488 2808 


00910 


JR 


Z,LP1 


;Just use lo-order 


248A 3D 


00920 


DEC 


A 


;Test hi -order = 1 


248B C25A25 


00930 


JP 


NZ,PRMERR 




248E Bl 


00940 


OR 


C 


;P/u lo-order 


248F C25A25 


00950 


JP 


NZ 9 PRMERR 


; Lo-order must be 


2492 Bl 


00960 LP1 


OR 


C 


;Merge lo-order 


2493 47 


00970 


LD 


B 9 A 




2494 210027 


00980 


LD 


HL,BUFFER 


;Pt to buffer 


2497 


00990 


@@INIT 




;Init the file 


2497 3E3A 


00011 


LD 


A 9 58 




2499 EF 


00012 


RST 


40 




249A C25C25 


01000 
01010 ; 


JP 


NZ 9 IOERR 


;Quit on i nit error 




01020 ; 


Display 


the filespec be 


ing dumped 




01030 ; 








249D ED4B2226 


01040 


LD 


BC 9 (FCBl+6) 


;P/u DEC & drive 


24A1 11F625 


01050 


LD 


DE 9 FCB2 


; Point to FCB area 


24A4 D5 


01060 


PUSH 


DE 




24A5 


01070 


(9@FNAME 




;Fetch the name 


24A5 3E50 


00013 


LD 


A 9 80 




24A7 EF 


00014 


RST 


40 




24 A8 El 


01080 


POP 


HL 




24A9 C25C25 


01090 


JP 


NZ 9 I0ERR 


;Quit on error 


24AC 3E20 


01100 


LD 


A,20H 


;Scan until ETX char 


24 AE 23 


01110 FNLP 


INC 


HL 




24AF BE 


01120 


CP 


(HL) 




24B0 38FC 


01130 


JR 


C,FNLP 




24B2 360D 


01140 


LD 


(HL) S CR 


;Replace with CR 



Page 199 



The Source 


LIBRARY F ; 


iles 


DUMP - LS-DOS 


6.2 Page 00003 


24 B4 


01150 


(3@LOGOT 


DUMPS 


; Display "Dumping*. . 




00015 


IFEQ 


01H.1 




24B4 21ED25 


00016 
00017 


LD 
ENDIF 


HL, DUMPS 




24B7 3E0C 


00018 


LD 


A, 12 




24B9 EF 


00019 
01160 ; 


RST 


40 




24BA 111C26 


01170 


LD 


DE,FCB1 


;Get dump FCB 


24BD 3A4924 


01180 


LD 


A,(APARM+1) 


;Ck if ASCII parm used 


24C0 B7 


01190 


OR 


A 




24C1 2016 


01200 


JR 


NZ, SPARM 


; and go if so 


24C3 3E05 


01210 


LD 


A, 5 


;Name header 


24C5 CD5325 


01220 


CALL 


PUTOUT 




24C8 3E06 


01230 


LD 


A, 6 


;Name length 


24CA CD5325 


01240 


CALL 


PUTOUT 




24CD 0606 


01250 


LD 


B,6 


;Init loop 


24CF 211626 


01260 


LD 


HL,NAMFLD 




24D2 7E 


01270 $?5 


LD 


A,(HL) 




24D3 23 


01280 


INC 


HL 




24D4 CD5325 


01290 


CALL 


PUTOUT 


;Output the filename 


24D7 10F9 


01300 
01310 ; 


DJNZ 


$?5 




24D9 210030 


01320 SPARM 


LD 


HL.SINIT 


;P/u starting addr 


24 DC E5 


01330 $?7 


PUSH 


HL 


;Ck on write of 


24 DD 44 


01340 


LD 


B,H 


; last byte written 


24 DE 4D 


01350 


LD 


C S L 




24DF 21FF2F 


01360 EPARM 


LD 


HL.EINIT-1 


;Where to end 


24E2 23 


01370 


INC 


HL 




24E3 AF 


01380 


XOR 


A 




24E4 ED42 


01390 


SBC 


HL,BC 




24E6 282E 


01400 


JR 


Z,$?10 


;6o if at end 


24E8 06FE 


01410 


LD 


B,254 


;254-byte blocks 


24 EA 7C 


01420 


LD 


A 9 H 


;A full sector left 


24EB B7 


01430 


OR 


A 


;To write? 


24 EC 2006 


01440 


JR 


NZ,$?8 




24EE 7D 


01450 


LD 


A,L 




24EF FEFF 


01460 


CP 


0FFH 




24F1 3001 


01470 


JR 


NC,$?8 


;If less than full s 


24F3 45 


01480 


LD 


B,L 


; reset len 


24F4 El 


01490 $?8 


POP 


HL 




24F5 3A4924 


01500 


LD 


A,(APARM+1) 




24F8 B7 


01510 


OR 


A 




24F9 2012 


01520 


JR 


NZ,$?9 


; Bypass if TXT 


24FB 3C 


01530 


INC 


A 


; Ini t start of block 


24FC CD5325 


01540 


CALL 


PUTOUT 




24FF 78 


01550 


LD 


A S B 


;6et block length 


2500 C602 


01560 


ADD 


A, 2 


;Add 2 for load address 


2502 CD5325 


01570 


CALL 


PUTOUT 


; & put it out 


2505 7D 


01580 


LD 


A,L 




2506 CD5325 


01590 


CALL 


PUTOUT 


;Lo-order load address 


2509 7C 


01600 


LD 


A,H 




250A CD5325 


01610 


CALL 


PUTOUT 


;Hi-order load address 


250D 7E 


01620 $?9 


LD 


A,(HL) 


;Write a load block 


250E 23 


01630 


INC 


HL 




250F CD5325 


01640 


CALL 


PUTOUT 




2512 10F9 


01650 


DJNZ 


$?9 




2514 18C6 


01660 
01670 ; 


JR 


$?7 


;Loop for more 


2516 El 


01680 $?10 


POP 


HL 


;Stack integrity 


2517 3A4924 


01690 


LD 


A,(APARM+1) 


;No TRAADR if TXT 


251A B7 


01700 


OR 


A 


; or TRAADR if not TXT 
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The Source 


LIBRARY Fi 


les 


DUMP - LS-DOS 6.2 


! Page 00004 


251B 2818 


01710 




JR 


Z, TRAADR 




251D 010300 


01720 


ETXPARM 


LD 


BC , 3 s 


P/u etx character 


2520 79 


01730 




LD 


A,C 




2521 21E925 


01740 




LD 


HL,ETXRESP 




2524 CB7E 


01750 




BIT 


7,(HL) 


Value input means 


2526 201F 


01760 




JR 


NZ, PUTETX ; 


put the ETX given 


2528 0A 


01770 




LD 


A,(BC) 


In case string 


2529 CB6E 


01780 




BIT 


5,(HL) 


.String input puts the 


252B 201A 


01790 




JR 


NZ, PUTETX 


entered char 


252D CB76 


01800 




BIT 


6,(HL) 


;Flag input gives ETX=3 


252F 2819 


01810 




JR 


Z, CLSFIL 


, if ETX=on 


2531 3E03 


01820 




LD 


A, 3 




2533 1812 


01830 




JR 


PUTETX 




2535 3E02 


01840 


TRAADR 


LD 


A,2 


;Put traadr header 


2537 CD5325 


01850 




CALL 


PUTOUT 




253A 3E02 


01860 




LD 


A,2 




253C CD5325 


01870 




CALL 


PUTOUT 




253F 210000 


01880 TPARM 


LD 


HL,$-$ 


;P/u transfer address 


2542 7D 


01890 




LD 


nj L 




2543 CD5325 


01900 




CALL 


PUTOUT 


;Tra lo-order 


2546 7C 


01910 




LD 


A,H 




2547 CD5325 


01920 


PUTETX 


CALL 


PUTOUT 


;Tra hi -order or ETX 


254A 


01930 CLSFIL 


INCLOSE 




;Close 'er up 


254A 3E3C 


00020 




LD 


A, 60 




254C EF 


00021 




RST 


40 




254D 210000 


01940 




LD 


HL,0 




2550 C8 


01950 




RET 


Z 


;Back on no error 


2551 1809 


01960 
01970 


» 


JR 


IOERR 


;6o on error 


2553 4F 


01980 


PUTOUT 


LD 


C,A 


;Xfer the char 


2554 


01990 




@@PUT 




;Test each byte transfer 


2554 3E04 


00022 




LD 


A, 4 




2556 EF 


00023 




RST 


40 




2557 C8 


02000 




RET 


Z 


;Back if no error 


2558 El 


02010 




POP 


HL 


;Pop the RET addr 


2559 21 


02020 




DB 


21H 


;Skip LD A,## instruction 


255A 3E2C 


02030 


PRMERR 


LD 


A, PAR ERR 


; "Parameter Error" 


255C 6F 


02040 


IOERR 


LD 


L,A 


; Error code to HL 


255D 2600 


02050 




LD 


H,0 




255F F6C0 


02060 




OR 


0C0H 


;Abbrev & return 


2561 4F 


02070 




LD 


C,A 




2562 


02080 




TERROR 




;Show the error 


2562 3E1A 


00024 




LD 


A, 26 




2564 EF 


00025 




RST 


40 




2565 C9 


02090 
02100 


» 


RET 








02110 


s 


Interna 


1 error routine 






02120 


> 








2566 2I3C25 


02130 


STLT30 


LD 


HL,STLT30$ 




2569 DD 


02140 




DB 


0DDH 




256A 217825 


02150 


ENLTST 


LD 


HL,ENLTST$ 




256D DD 


02160 




DB 


0DDH 




256E 21A425 


02170 


SPCREQ 


LD 


HL,SPCREQ$ 




2571 


02180 




@@LOGOT 








00026 




IFEQ 


00H,1 






00027 




LD 


HL, 






00028 




ENDIF 






2571 3E0C 


00029 




LD 


A, 12 




2573 EF 


00030 




RST 


40 




2574 21FFFF 


02190 




LD 


HL,-1 




2577 C9 


02200 




RET 
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The Source LIBRARY Files DUMP - LS-DOS 6.2 Page 00005 

02210 ; 

2578 53 02220 ENLTST$ DB 'START or END error ' 9 CR 

54 41 52 54 20 6F 72 20 

45 4E 44 20 65 72 72 6F 

72 20 0D 

258C 53 02230 STLT30$ DB 'Start less than X"3000'" 9 CR 

74 61 72 74 20 6C 65 73 

73 20 74 68 61 6E 20 58 
27 33 30 30 30 27 0D 

25A4 46 02240 SPCREQ$ DB 'File spec required' 9 CR 

69 6C 65 20 73 70 65 63 

20 72 65 71 75 69 72 65 
64 0D 



25B7 4C 




02250 LMFEXT 


DB 


' LMF ' 




4D 46 












25BA 54 




02260 TXTEXT 


DB 


'TXT' 




58 54 




02270 ; 








0080 




02280 VAL 


EQU 


80H 




0040 




02290 SW 


EQU 


40 H 




0020 




02300 STR 


EQU 


20H 




0010 




02310 SGL 
02320 ; 


EQU 


10H 




25BD 80 




02330 PRMTBL$ 


DB 


80 H 




25 BE 95 




02340 


DB 


VAL! SGL 15 , 


' START ' , 


53 54 


41 


52 54 00 








25C5 DA24 




02350 


DW 


SPARM+1 




25C7 93 




02360 


DB 


VAL!SGL!3 9 


'END\0 


45 4E 


44 


00 








25CC E024 




02370 


DW 


EPARM+1 




25CE 93 




02380 


DB 


VAL!SGL!3 9 


•TRA\0 


54 52 


41 


00 








25D3 4025 




02390 


DW 


TPARM+1 




25D5 55 




02400 


DB 


SW!SGL!5 9 ', 


ASCII' ,0 


41 53 


43 


49 49 00 








25DC 4924 




02410 


DW 


APARM+1 




25 DE 93 




02420 


DB 


VAL!SGL!3 9 


'LRL',0 


4C 52 


4C 


00 








25 E3 8424 




02430 


DW 


LPARM+1 




25 E5 83 




02440 


DB 


VAL!3 9 'ETX 


',0 


45 54 


58 00 








25E9 




02450 ETXRESP 


EQU 


$-1 




25EA 1E25 




02460 


DW 


ETXPARM+1 




25 EC 00 




02470 
02480 ; 


NOP 






25 ED 44 




02490 DUMPS 


DB 


'Dumping: 


;F( 


75 6D 70 


69 6E 67 3A 20 






0020 




02500 FCB2 


DS 


32 




0006 




02510 NAMFLD 


DS 


6 




0020 




02520 FCB1 


DS 


32 




2700 




02530 


ORG 


$<-8+l<+8 




0100 




02540 BUFFER 


DS 


256 




27FF 




02550 LAST 
02560 ; 


EQU 


$-1 




2400 




02570 


END 


DUMP 





;FCB2 must follow 
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$?1 


2457 $?10 


2516 $?2 


$?3 


246F $?4 


2475 $?5 


$?7 


24DC $?8 


24F4 $?9 


001 


0000 002 


0000 003 


004 


0000 0MOD2 


0000 0MOD4 


APARM 


2448 BEGINA 


2409 BUFFER 


CLSFIL 


254A CR 


000 D DUMP 


DUMPS 


25 ED DUMPCIM 


247D DUMPTXT 


EINIT 


3000 ENLTST 


256A ENLTST$ 


EPARM 


24DF ETXPARM 


251D ETXRESP 


FCB1 


261C FCB2 


25F6 FNLP 


IOERR 


255C LAST 


27FF LMFEXT 


LP1 


2492 LPARM 


2483 NAMFLD 


PAR ERR 


002C PRMERR 


255A PRMTBL$ 


PUTETX 


2547 PUTOUT 


2553 SGL 


SINIT 


3000 SPARM 


24D9 SPCREQ 


SPCREQ$ 


25A4 STLT30 


2566 STLT30$ 


STR 


0020 SW 


0040 TPARM 


TRAADR 


2535 TXTEXT 


25BA VAL 


00ABORT 


8160 00ADTSK 


81F3 00BANK 


00BKSP 


83EB 00BREAK 


8721 00CHNIO 


00CKBRKC 


876F 00CKDRV 


8247 00CKEOF 


00CKTSK 


81DE 00CLOSE 


83D6 00CLS 


00CMNDI 


818A 00CMNDR 


819F 00CTL 


00 DATE 


8121 00DCSTAT 


8286 00DEBUG 


00DECHEX 


868B 00DIRRD 


85F8 00DIRWR 


00DIV16 


8676 00DIV8 


8661 00DODIR 


@@ DSP 


7F73 00DSPLY 


8013 00ERROR 


00EXIT 


8175 00FEXT 


8565 00FLAGS 


00FNAME 


857A 00FSPEC 


8550 00GATRD 


00GATWR 


8622 00GET 


7F87 00GTDCB 


00GTDCT 


858F 00GTMOD 


85 B9 00HDFMT 


00 HEX 16 


86CA 00HEX8 


86B5 00HEXDEC 


00HIGH$ 


86DF 00INIT 


83 AC 00KBD 


00 KEY 


7F5F 00KEYIN 


7FFF 00KLTSK 


00 LOAD 


8526 00LOC 


8415 00LOF 


00LOGER 


804A 00LOGOT 


805 F 00MSG 


00MUL16 


864C 00MUL8 


8637 00OPEN 


00 PAR AM 


810C 00PAUSE 


80F7 00PEOF 


00POSN 


8454 00 PR I NT 


80AB 00PRT 


00 PUT 


7F9B 00RAMDIR 


8271 00RDSEC 


00RDSSC 


85CE 00READ 


8469 00REMOV 


00 RE NAM 


8382 00REW 


847E 00RMTSK 


00RPTSK 


821D 00RREAD 


8493 00RSLCT 


00RSTOR 


82B0 00RUN 


853B 00RKRIT 


00 SEEK 


82DA 00SEEKSC 


84BD 00SK?P 


00SLCT 


829B 00STEPI 


82C5 00TIKL 


00VDCTL 


80E2 00VER 


84E7 00VRSEC 


00WEOF 


84FC 00WHERE 


7FD7 00WRITE 


00WRSEC 


8343 00WRSSC 


8358 00WRTRK 


2400 is the 


transfer address 




00000 Total 


errors 





Page 00006 



2468 
24 D2 
250D 



FFFF 
2700 
2400 
247A 
2578 
25 E9 
24AE 
25B7 
2616 
25BD 



256E 
258C 
253F 



870B 
814B 
8400 
8759 
7FAF 
81C9 
860D 
825C 
81 B4 
86F5 
85 E3 

85 A4 
832 E 

86 A0 
7FEB 
8232 
842A 
8096 
83C1 
843F 
7FC3 
8304 
8397 
8208 
82EF 
84A8 
84 D2 
8136 
8319 
8511 
836 D 



Page 203 



NOTES 



Page 204 



Command: FORMS 
Library: SYS8/SYS 
ISAM # : B1H 
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LIBRARY F" 


iles 


FORMS - LS-DOS 


6.2 Page 00001 






00100 


;LBFORMS/ASM - 


Set Line Printer 


Values 


0000 




00110 
00120 
00130 


> 
> 


TITLE 


<FORMS - LS-DOS 


6.2> 


002 C 




00140 


PAR ERF 


[ EQU 


44 


parameter Error Code 


0007 




00150 FLAGBT 


EQU 


7 


;Flag byte offset 


0007 




00160 ADDLF 


EQU 


7 


;Add Line Feed = Bit 


0007 




00170 FFHARD 


EQU 


7 


;Form Feed Hard = Bit 1 


0007 




00180 TABV 


EQU 


7 


;Tab Expansion = Bit 2 


0008 




00190 CHARS 


EQU 


8 


;Characters per line 


0006 




00200 


INDENT 


EQU 


6 


; Indent after wrap-aroun 


0002 




00210 LINES 


EQU 


2 


;Maximum Lines to Print 


0009 




00220 MARGIN 


EQU 


9 


;Left hand margin value 


0000 




00230 


PAGE 


EQU 





;Maximum Lines per page 


0004 




00240 XLATEF 


EQU 


4 


;Xlate From 


0005 




00250 XLATET 


EQU 


5 


;Xlate To 






00260 


9 








0042 




00270 


PDEF 


EQU 


66 


;Page Default = 66 


0042 




00280 LDEF 


EQU 


66 


;Line Default = 66 






00290 


» 








000 E 




00300 


CURON 


EQU 


0EH 


;Cursor on 


000F 




00310 CUROFF 


EQU 


0FH 


;Cursor off 


00 DD 




00320 
00330 


SKIP 

» 


EQU 


0DDH 


;Skip 3 byte instruction 


0000 




00340 


*GET 


SVCMAC : 


:3 


;SVC Macro equivalents 






00010 


;SVCMAC/ASM - LS-DOS Version VI 








00020 *LIST 


OFF 










03900 


*LIST 


ON 






0000 




00350 


*GET 


VALUES: 


3 


;Misc. equates 






03920 


; VALUES/ASM - \ 


'ersion 6 








03930 *LIST OFF 










04200 


*LIST ON 










00360 


» 








2400 




00370 
00380 
00390 


START 


ORG 


2400H 




2400 ED732324 00400 




LD 


(SAVESP+1),SP 


;Save SP loc 


2404 


CD2924 


00410 




CALL 


FORMS 


;Execute Form Code 


2407 


210000 


00420 


EXIT 


LD 


HL s 


;Set no error 


240A 1816 


00430 




JR 


SAVESP 


;Exit 






00440 


9 












00450 


9 


I/O Error Handling 








00460 


9 








240C 


3E2C 


00470 


PRMERR 


LD 


A, PAR ERR 


; Parameter Error 


240E 6F 


00480 


IOERR 


LD 


L,A 


;Xfer error # to HL 


240F 2600 


00490 




LD 


H 9 




2411 


F6C0 


00500 




OR 


0C0H 


;Abbrev 9 return 


2413 


4F 


00510 




LD 


C,A 


;Xfer to C 


2414 




00520 




(TERROR 




;Display error 


2414 


3E1A 


00001 




LD 


A, 26 




2416 


EF 


00002 




RST 


40 




2417 


1809 


00530 
00540 


9 


JR 


SAVESP 


;Go to exit routine 






00550 


9 


Interna 


1 Error Message 1 


^ndling 






00560 


9 








2419 


217928 


00570 


NOPF 


LD 


HL s NOPF$ 


;No filter present 


241C 




00580 
00003 
00004 
00005 




(3(i>LOGOT 
IFEQ 
LD 
ENDIF 


00H,1 
HL S 


;Log Message 


241C 


3E0C 


00006 




LD 


A s 12 
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241E EF 
241F 21FFFF 
2422 310000 
2425 
2425 3E6A 

2427 EF 

2428 C9 



2429 CD0027 



242C 2B 
242D 23 
242E 7E 
242F FE20 
2431 28FA 



2433 FE0E 
2435 3007 



2437 CD8924 
243A CDF726 
243D C9 



243E 116227 
2441 
2441 3E11 

2443 EF 

2444 C20C24 



2447 3ABA27 
244 A 32DF27 
244D 21D627 

2450 7E 

2451 3600 
2453 32E227 



2456 3AC527 
2459 B7 
245A 2817 



245C ED5BD125 
2460 010A00 
2463 215827 
2466 E5 



00007 

00590 ABORT 
00600 SAVESP 
00610 



00620 
00630 ; 
00640 ; 
00650 ; 
00660 FORMS 
00670 
00680 ; 
00690 ; 
00700 ; 
00710 

00720 IGSPCS 
00730 
00740 
00750 
00760 ; 
00770 ; 
00780 ; 
00790 
00800 
00810 ; 
00820 ; 
00830 ; 
00840 DISPFRM 
00850 
00860 



RST 40 

LD HL.-l 

LD SP s $-$ 

(a^CKBRKC 

LD A, 106 

RST 40 

RET 



;Set abort code 
;P/u original SP 
;Clear any <BREAK> 



;And RETurn to DOS 
FORMS - Process the Forms Filter Parameters 

CALL DOINIT ;Do initialization 
Ignore Leading Spaces 



DEC HL 

INC HL 

LD A S (HL) 

CP ' ' 

JR Z, IGSPCS 

Any Parameters Entered ? 



;Bump cmdline ptr 
; Ski p leading spaces 



CP 
JR 



CR+1 
NC.GETPRM 



;End of line ? 
;Go if not 



Display current parameter settings 



CALL DSFORMS 
CALL DSPLY 
RET 



;Create default string 
;Display defaults 
: and RETurn 



00890 ; 
00900 GETPRM 
00910 
00010 
00011 
00920 
00930 ; 
00940 ; 



Display "Paramter Error" if Illegal input 

LD DE,PRMTBL$ ;Any Paramters ? 

<3@ PAR AM 

LD A, 17 

RST 40 

JP NZ,PRMERR ;NZ - "Parameter Error" 

Create Xlate From Data Area 



00960 
00970 
00980 



01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 



LD A 9 (XTRESP) 

LD (XFRESP),A 

LD HL,XTPARM+1 

LD A,(HL) 

LD (HL),0 

LD (XFPARM) S A 



;P/u xlate TO response 
;Xfer to FROM response 
;HL => XLATE To 
;P/u value 

;Set Xlate To msb = 
;Xfer to From parm 



Over-ride all other parms if <D>efault 

;<D>efault Parm entered ? 
;No - check for <Q>uery 

Overwrite $FF data area with default values 



LD A,(DRESP) 

OR A 

JR Z,CHECKQ 



LD DE,(DATAREA+2) ;DE => Data area start 

LD BC S 10 ;BC = 10 bytes in table 

LD HL 9 DEFTAB ;HL => Default Table 

PUSH HL ;Save regs 
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2467 C5 


01150 




PUSH 


BC 




2468 EDB0 


01160 




LDIR 




;Xfer to $FF data area 


246A CI 


01170 




POP 


BC 




246B El 


01180 




POP 


HL 




246C 11E329 


01190 




LD 


DE,DUPDA 




246F EDB0 


01200 




LDIR 




;Xfer to duplicate DA 


2471 18C4 


01210 
01220 


» 


JR 


DISPFRM 


; Displ ay forms & exit 




01230 


» 


Prompt for any parms not entered & stuff 




01240 


» 








2473 


01250 CHECKQ 


EQU 


$ 




2473 CD1926 


01260 




CALL 


INITVAL 


; Ini t parm values = def's 


2476 CD8924 


01270 




CALL 


DSFORMS 


;Create string 


2479 3AAA27 


01280 




LD 


A,(QRESP) 


;<Q>uery parm used? 


247C B7 


01290 




OR 


A 




247D CCFC24 


01300 




CALL 


Z,CKCOMM 


;Check cmdline values if not 


2480 C42A25 


01310 




CALL 


NZ, PROMPT 


; Prompt if "Q" 


2483 CDCC25 


01320 


STUFF IN 


CALL 


STFPRMS 


;Stuff parms in $FF data 


2486 C30724 


01330 
01340 




JP 


EXIT 


;Good exit 




01350 




Display Current FORMS 


*/alue settings 




01360 










2489 DDCB0746 


01370 


DSFORMS 


BIT 


0,(IX+ADDLF) 


;Add line feed ? 


248D 11E128 


01380 




LD 


DE.SADDLF 


;DE => addlf dsply msg 


2490 C4E826 


01390 
01400 


s 


CALL 


NZ,XFERON 


;Put "ON" in message 




01410 


» 


Displ 


ay "OFF" if zero, 


or value if <> zero 




01420 


» 








2493 DD7E08 


01430 




LD 


A,(IX+CHARS) 


;CHARS value if it wasn't 


2496 B7 


01440 




OR 


A 


;0FF ? 


2497 11BA28 


01450 




LD 


DE,SCHARS 


;DE => Chars msg 


249A C42127 


01460 




CALL 


NZ, HEXDEC 


;Convert value to dec ASCII 


249 D 2006 


01470 
01480 


» 


JR 


NZ, DOFFHRD 


;Go if Char parm used 


249F 217628 


01490 


CHAROFF 


LD 


HL,OFFSTR 


; else xfer "OFF" into 


24A2 CDEB26 


01500 
01510 




CALL 


XFER 


; Chars message 




01520 




FFHARD specified ? 






01530 










24A5 DDCB074E 


01540 


DOFFHRD 


BIT 


1 S (IX+FFHARD) 


;FFHARD parm used? 


24A9 11EE28 


01550 




LD 


DE,SFFHARD 


;DE => Ffhard msg 


24AC C4E826 


01560 
01570 




CALL 


NZ,XFERON 


;Xfer "ON" if set 




01580 




Xfer 


INDENT value into 


string 




01590 










24AF DD7E06 


01600 




LD 


A,(IX+INDENT) 


; Default value 


24B2 11D428 


01610 




LD 


DE,SINDENT 


;DE=> Indent msg 


24B5 CD2127 


01620 
01630 




CALL 


HEXDEC 


;Convert to decimal ASCII 




01640 




Xfer 


LINES value into 


string 




01650 










24B8 DD7E02 


01660 




LD 


A,(IX+LINES) 


;P/u LINES value 


24BB 11AD28 


01670 




LD 


DECLINES 


;Pt to Lines msg 


24BE CD2127 


01680 
01690 




CALL 


HEXDEC 


;Convert to decimal ASCII 




01700 




Xfer 


MARGIN value into 


string 




01710 










24C1 DD7E09 


01720 




LD 


A,(IX+MARGIN) 


;P/u MARGIN value 


24C4 11C728 


01730 




LD 


DE,SMARGIN 


;DE => Margin msg 


24C7 CD2127 


01740 
01750 


» 


CALL 


HEXDEC 


; Convert to decimal ASCII 
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Xfer PAGE value into string 



24CA DD7E00 
24CD 11A028 
24D0 CD2127 



24 D3 DDCB0756 
24 D7 11FB28 
24 DA C4E826 



24 DD DD7E04 
24 E0 DD4605 
24E3 B8 
24E4 2812 



24E6 21FF28 
24E9 360A 

24EB 210B29 
24EE CD3C27 
24F1 78 
24F2 211429 
24F5 CD3C27 



24F8 219728 
24FB C9 



LD 
LD 
CALL 



A,(IX+PAGE) 

DE,SPAGE 

HEXDEC 



;P/u page value 
;DE => Page msg 
;Convert to decimal ASCII 



Xfer "ON" into string if Tab set 



BIT 

LD 

CALL 



2,(IX+TABV) 

DE,STAB 

NZ,XFER0N 



Check Tab bit 
DE => Tab msg 
Xfer "ON" if set 



Is Xlate FROM = Xlate TO ? 



LD 
LD 
CP 
JR 



A,(IX+XLATEF) 

B,(IX+XLATET) 

B 

Z,N0SH0W 



;P/u FROM byte 
;P/u TO byte 
;Same ? 
;Yes - no show 



Two distinct values - convert to Hex 



24FC 1E0A 

24FE FD210E28 

2502 FD6E01 

2505 FD6602 



2508 7E 

2509 B7 
250A 23 
250B 4E 
250C 23 
250D 66 
250E 69 
250F 4E 

2510 23 

2511 46 



2512 FD6E05 



01760 ; 

01770 ; 

01780 

01790 

01800 

01810 ; 

01820 ; 

01830 ; 

01840 

01850 

01860 

01870 ; 

01880 ; 

01890 ; 

01900 

01910 

01920 

01930 

01940 ; 

01950 ; 

01960 ; 

01970 

01980 

01990 ; 

02000 

02010 

02020 

02030 

02040 

02050 ; 

02060 ; 

02070 ; 

02080 NOSHOW LD HL, VALUES ;HL => Default val string 

02090 RET ;RETurn 

02100 

02110 

02120 

02130 

02140 

02150 CKCOMM LD 



LD 
LD 

LD 

CALL 

LD 

LD 

CALL 



HL 9 D0XLATE 
(HL).LF 

HL,SXLFROM 

HEX8 

A,B 

HL,SXLTO 

HEX8 



;Change CR to LF 

; so msg will dsply 

;"From" message 

; Convert A to Hex @ HL 

;P/u TO 

;"To" message 

;Convert A to Hex @ HL 



Point HL to string & RETurn 



CKCOMM - Check command line parameter values 



02160 LD 

02170 ; 

02180 CKCOMML LD 

02190 LD 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 



E,10 
IY,STRTAB 

L.CIY+1) 

H,(IY+2) 



;10 values to check 
;IY => Response table 

;P/u address of response 



Set BC = Parameter Response 

;Was anything entered ? 



LD 

OR 

INC 

LD 

INC 

LD 

LD 

LD 

INC 

LD 



A,(HL) 

A 

HL 

C,(HL) 

HL 

H,(HL) 

L,C 

C,(HL) 

HL 

B,(HL) 



;Parm addr follows resp 
;Set HL = (HL) 



;P/u response value 
: into BC 



Call routine to Range check parm entry 

LD L,(IY+5) ;P/u address of routine 
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2515 FD6606 
2518 221C25 
251 B C40000 
251 E C20C24 



2521 010900 
2524 FD09 

2526 ID 

2527 20D9 
2529 C9 



252A 060A 
252C FD210E2J 



2530 FD7E00 

2533 3C 

2534 326928 



2537 FD5E01 
253A FD5602 



253D FD6E03 
2540 FD6604 
2543 CD5825 



2546 CD4327 
2549 C5 
254A C4A325 
254D CI 
254E 20E7 



2550 110900 
2553 FD19 
2555 10D9 
2557 C9 



2558 D5 

2559 C5 
255A 0E0F 
255C CDF126 
255F 0620 

2561 4E 



02370 LD 
02380 LD 
02390 CALLINS CALL 
JP 



H 9 ( IY+6) ; to check value validity, 

(CALLINS+1) 9 HL ; Stuff addr to CALL instr 

NZ 9 $-$ ;BC = response, A = type 

NZ 9 PRMERR ;NZ - "Parameter Error" 



Position to next table entry 

;Pos to next STRTAB entry 

;Done ? 

;Yes - RETurn 



LD 

ADD 

DEC 

JR 

RET 



BC 9 9 
IY 9 BC 
E 
NZ 9 CKC0MML 



PROMPT - for any vals not entered in parm line 



02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 PROMPT LD B 9 10 ;Eight normal + 2 Xlates 

02540 LD IY 9 STRTAB ;Prompt s response table 

02550 ; 

02560 ; P/u type byte from table & set length = 1 

02570 ; 

02580 PROMPTL LD A,(IY) ;P/u type byte 

02590 INC A ;Merge length = 1 

02600 LD (FAKETAB+1) S A ;Store new type byte 

02610 ; 

02620 ; P/u address of response byte 

02630 ; 

02640 REINPUT LD E,(IY+1) ;P/u address 

02650 LD D 9 (IY+2) ; in DE 

02660 ; 

02670 ; Pick up Prompt string address & display it 

02680 ; 

02690 DOPRMPT LD L 9 (IY+3) ;P/u address in HL 

02700 LD H 9 (IY+4) 

02710 CALL DISPROM 

02720 ; 

02730 

02740 

02750 

02760 

02770 

02780 

02790 

02800 

02810 

02820 

02830 NEXTPR LD 

02840 ADD 

02850 DJNZ 

02860 RET 

02870 ; 

02880 ; 

02890 ; DISPROM - Display Prompt 

02900 ; 

02910 DISPROM PUSH DE ;Save regs 

02920 PUSH BC 

02930 LD C 9 CUR0FF ;Turn off cursor 

02940 CALL DSP 

02950 LD B,32 ;Space padding base 

02960 ; 

02970 PRLP LD C 9 (HL) ;P/u character 



;P/u default & display 
Input response & stuff into Parm table 



CALL 

PUSH 

CALL 

POP 

JR 



INPUT 

BC 

NZ 9 STUFVAL 

BC 

NZ 9 REINPUT 



; Input value 

;Save count 

; Stuff in valid input 

;Restore count 

;Re-input if bad value 



Position to next table entry 

DE S 9 ;9 bytes per entry 

IY 9 DE 

PROMPTL ;B prompts 
;Done 
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2562 23 


02980 




INC 


HL 


;Pos to next 


2563 05 


02990 




DEC 


B 


;Dec count 


2564 CDF 126 


03000 




CALL 


DSP 


;Output byte 


2567 79 


03010 




LD 


A,C 


;P/u char 


2568 FE7B 


03020 




CP 


'{' 


; Bracket ? 


256A 20F5 


03030 




JR 


NZ,PRLP 


;No - go til bracket 


256C CD8225 


03040 




CALL 


STUFDEF 


; Display default 


256F 78 


03050 




LD 


A,B 


;P/u base # 


2570 81 


03060 




ADD 


A,C 


; & calculate # of 


2571 47 


03070 




LD 


B,A 


; Spaces to print 


2572 0E20 


03080 
03090 


» 


LD 


(V ' 




2574 CDF126 


03100 


SPLP 


CALL 


DSP 


;Output spaces 


2577 10FB 


03110 
03120 


» 


DJNZ 


SPLP 




2579 219328 


03130 




LD 


HL,ENDPROM 


;End of prompt 


257C CDF726 


03140 




CALL 


DSPLY 




257F CI 


03150 




POP 


BC 


;Recover regs 


2580 Dl 


03160 




POP 


DE 




2581 C9 


03170 
03180 
03190 




RET 




; and RETurn 




03200 




STUFDEF 


- Stuff default 


value in prompt 




03210 


» 








2582 FD6E07 


03220 


STUFDEF 


LD 


L,(IY+7) 


;P/u default string 


2585 FD6608 


03230 




LD 


H,(IY+8) 


; address 


2588 0E05 


03240 




LD 


C,5 


;5 chars max 


258A 7E 


03250 


PNLP 


LD 


A,(HL) 




258B 23 


03260 




INC 


HL 


;Bump source 


258C FE0A 


03270 




CP 


LF 


;Done ? 


258E 280A 


03280 




JR 


Z, DUNLP 




2590 FE20 


03290 




CP 


i i 


; Leading space ? 


2592 28F6 


03300 




JR 


Z,PNLP 


;Yes - ignore it 


2594 CD9C25 


03310 
03320 


» 


CALL 


DISPA 


;Output A 


2597 0D 


03330 


PNLP2 


DEC 


C 


;Dec count 


2598 20F0 


03340 
03350 


» 


JR 


NZ,PNLP 




259A 3E7D 


03360 


DUNLP 


LD 


A,'}' 


;0utput end bracket 


259C C5 


03370 


DISPA 


PUSH 


BC 


;Save count in C 


259D 4F 


03380 




LD 


C,A 


;Xfer char to C 


259E CDF126 


03390 




CALL 


DSP 


;0utput byte 


25A1 CI 


03400 




POP 


BC 


;Recover C 


25A2 C9 


03410 
03420 
03430 


» 
» 


RET 




; and RETurn 




03440 


9 


STUFVAL 


- Stuff values 


into Parm Table 




03450 


» 








25A3 D5 


03460 


STUFVAL 


PUSH 


DE 


;DE => Response Byte 


25A4 21FF27 


03470 




LD 


HL.FAKEPRM 


;HL => Fake Parm Entry 


25A7 116828 


03480 




LD 


DE,FAKETAB 


;DE => Fake Parm Table 


25AA 


03490 




00PARAM 




; Parse entry 


25AA 3E11 


00012 




LD 


A,17 




25 AC EF 


00013 




RST 


40 




25AD El 


03500 




POP 


HL 


;HL => Response 


25AE C0 


03510 
03520 


» 


RET 


NZ 


;NZ - Re- input 




03530 


» 


Stuff response into Par 


ameter Table 




03540 


» 








25AF E5 


03550 




PUSH 


HL 


;Save response dest 


25B0 3A6B28 


03560 




LD 


A S (FAKERES) 


;P/u response 
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25B3 010000 
25B6 23 
25B7 5E 
25B8 23 
25B9 56 
25BA EB 
25BB 71 



25BC 21C725 
25 BF E5 
25C0 FD6E05 
25C3 FD6606 
25C6 E9 
25C7 El 
25C8 C0 
25C9 3680 
25CB C9 



LD 

PUSH 

LD 

LD 

JP 

POP 

RET 

LD 

RET 



25CC 21E427 
25CF DD210000 
25 D3 0607 



25D5 5E 
25D6 23 
25 D7 56 
25D8 23 
25D9 4E 
25 DA 23 



25 DB 1A 
25DC B7 



25 DD 13 
25 DE EB 
25DF 7E 
25E0 23 
25E1 66 
25E2 6F 



25E3 79 
25E4 4E 
25E5 EB 
25 E6 2806 
25 E8 32ED25 
25EB DD7100 

25EE 10E5 



03570 VALUE LD 

03580 INC 

03590 LD 

03600 INC 

03610 LD 

03620 EX 

03630 LD 

03640 

03650 

03660 

03670 

03680 

03690 

03700 

03710 

03720 RETADR 

03730 

03740 

03750 

03760 

03770 

03780 

03790 

03800 

03810 

03820 

03830 STFPRMS 

03840 DATAREA 

03850 

03860 ; 

03870 ; 

03880 ; 

03890 STUFLP 

03900 

03910 

03920 

03930 

03940 

03950 ; 

03960 

03970 

03980 ; 

03990 ; 

04000 ; 

04010 

04020 

04030 

04040 

04050 



BC , $-$ 

HL 

E,(HL) 

HL 

D,(HL) 

DE,HL 

(HL),C 



;P/u value 

;HL => Parm Address 

;P/u parm address 



;HL => Parm Isb 

;Stuff response in table 



CALL range checking routine 



HL, RETADR 

HL 

L,(IY+5) 

H,(IY+6) 

(HL) 

HL 

NZ 

(HL) S 80H 



Put RET addr on stack 

P/u addr of range 
Checking in HL 
Routine sets Z for stat 
HL => Response byte 
Don't change if NZ 
else stuff non-zero 
value for response 



STFPRMS - Stuff Numeric & Flag Parms into $FF 



Pt HL => Response byte addr & offset Table 

LD HL S RESPTAB ;HL => Response Table 
LD IX,$-$ ;P/u Data Area pointer 
LD B s 7 ;7 numeric values 

P/u response byte & offset byte to $FF data 



LD 

INC 

LD 

INC 

LD 

INC 

LD 
OR 



E S (HL) 

HL 

D,(HL) 

HL 

C S (HL) 

HL 

A,(DE) 
A 



;P/u response address 



;HL => $FF data offset 
;P/u offset in data area 



;P/u response 
;Parm entered ? 



Parm entered - calculate Parm's Location 



INC 

EX 

LD 

INC 

LD 

LD 



04070 ; 

04080 ; 

04090 ; 

04100 

04110 

04120 

04130 NOPOUT 

04140 

04150 IXINST 

04160 ; 

04170 NOPARM 



DE 

DE,HL 

A,(HL) 

HL 

H,(HL) 

L,A 



DE => Parameter Dest 
Xfer to HL 
Set HL = (HL) 



Stuff parm response into $FF data region 



LD 
LD 
EX 
JR 
LD 
LD 

DJNZ 



A,C 

C,(HL) 

DE,HL 

Z, NOPARM 

(IXINST+2),A 

(IX+$-$),C 

STUFLP 



;Xfer offset to A 
;P/u Isb of Parm response 
;Recover HL (Table ptr) 
;No - don't stuff 
;Modify offset in IX inst 
;Xfer parm resp to $FF 

;Next entry 
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25F0 0603 
25F2 5E 
25F3 23 
25F4 56 
25F5 23 
25F6 1A 
25F7 B7 
25F8 281C 



25FA 13 
25FB EB 
25FC 7E 
25FD 23 
25FE 66 
25FF 6F 

2600 EB 

2601 0E86 

2603 1A 

2604 B7 

2605 2802 
2607 CBF1 



2609 78 
260A 3D 
260 B 07 
260C 07 
260D 07 
260E Bl 
260F 321526 
2612 DDCB0786 
2616 10DA 
2618 C9 



2619 0605 
261B 21E427 

261E 5E 
261F 23 

2620 56 

2621 23 

2622 1A 



2623 EB 

2624 23 

2625 4E 

2626 23 

2627 66 

2628 69 



04180 ; 

04190 ; 

04200 ; 

04210 GETFLAG 

04220 FLOOP 

04230 

04240 

04250 

04260 

04270 

04280 

04290 ; 

04300 ; 

04310 ; 

04320 

04330 

04340 

04350 

04360 

04370 

04380 

04390 

04400 

04410 

04420 

04430 

04440 ; 

04450 ; 

04460 ; 

04470 SKIPSET 

04480 

04490 

04500 

04510 

04520 

04530 

04540 IXINST2 

04550 NEXTFLG 

04560 

04570 

04580 

04590 

04600 

04610 

04620 INITVAL 

04630 

04640 ; 

04650 SDLP 

04660 

04670 

04680 

04690 

04700 

04710 

04720 

04730 

04740 

04750 

04760 

04770 

04780 



Set Flag bits in $FF data area if parms set 



LD 

LD 

INC 

LD 

INC 

LD 

OR 

JR 



B,3 

E,(HL) 

HL 

D,(HL) 

HL 

A,(DE) 

A 

Z, NEXTFLG 



;3 flag values 

;P/u response address 



;Entered ? 
;No - get next one 
Response - If true (SET), False (RES) 



INC 

EX 

LD 

INC 

LD 

LD 

EX 

LD 

LD 

OR 

JR 

SET 



DE 

DE,HL 

A,(HL) 

HL 

H,(HL) 

L,A 

DE,HL 

C, 100001 10 B 

A,(DE) 

A 

Z, SKIPSET 

6,C 



;Pos to parm address 
;P/u Parm 
;Set HL = (HL) 



;Put into DE 

;Default = Reset bit inst 

;P/u Isb of parm 

;Set ? 

;No - skip SET inst 

;Change to Set bit inst 



Create Post opcode for IX instruction 

;P/u bit # (0-2) 
;Move to bits 3-5 



LD 

DEC 

RLCA 

RLCA 

RLCA 

OR 

LD 

RES 

DJNZ 

RET 



A,B 
A 



C ;Post op code 

(IXINST2+3) S A ;Change RES b,(IX+nn) ins 
$-$ 9 (IX+FLAGBT) ;Set/Reset bit B in $FF 
FLOOP ;Get next flag 
;Done - RETurn 



INITVAL - Initial Parm values 



LD 
LD 

LD 

INC 

LD 

INC 

LD 



B,5 
HL 9 RESPTAB 

E,(HL) 

HL 

D,(HL) 

HL 

A,(DE) 



;5 values to stuff 

;HL => Response & offsets 

;P/u response byte addr 



;P/u response byte 
Get parm table address - DE = (DE) 



EX DE,HL 

INC HL 

LD C,(HL) 

INC HL 

LD H,(HL) 

LD L,C 



;Parm address after resp 
;P/u lsb 

;P/u msb 
;HL = (HL) 
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2629 EB 


04790 
04800 ; 


EX 


DE,HL 


;Get back to DE 




04810 ; 


P/u def 


ault value from 


$FF data area 




04820 ; 








262A D5 


04830 


PUSH 


DE 


;Save HL & DE 


262B E5 


04840 


PUSH 


HL 




262C 5E 


04850 


LD 


E,(HL) 


;P/u offset 


262D 1600 


04860 


LD 


D,0 


;DE = offset to default 


262F 2AD125 


04870 


LD 


HL,(DATAREA+2) 


;HL => Data Area 


2632 19 


04880 


ADD 


HL.DE 




2633 4E 


04890 


LD 


C,(HL) 


;P/u default value 


2634 El 


04900 


POP 


HL 


;Restore regs 


2635 Dl 


04910 
04920 ; 


POP 


DE 






04930 ; 


If parnr 


i wasn't entered 


- stuff default value 




04940 ; 








2636 23 


04950 


INC 


HL 


;Posn to next entry 


2637 B7 


04960 


OR 


A 


;Parm entered ? 


2638 2806 


04970 


JR 


Z, STFDEF 


;No - stuff default 


263A 3AAA27 


04980 


LD 


A,(QRESP) 


;<Q>uery parm used? 


263D B7 


04990 


OR 


A 




263E 2802 


05000 


JR 


Z, PRMENT 


;No - don't stuff 


2640 79 


05010 STFDEF 


LD 


A,C 


;Yes - stuff default 


2641 12 


05020 


LD 


(DE),A 




2642 10DA 


05030 PRMENT 


DJNZ 


SDLP 




2644 C9 


05040 
05050 ; 
05060 ; 


RET 




;Done 




05070 ; 


Range Checking Code of 


Values 




05080 ; 










05090 ; 










05100 ; 


Is the 


Page length vali 


d ? 




05110 ; 








2645 CDD126 


05120 RPAGE 


CALL 


MORE0? 


; Number between 1 - 255 ? 


2648 C0 


05130 


RET 


NZ 


;No - NZ 


2649 3ACF27 


05140 


LD 


A S (LPARM) 


;P/u LINES value 


264C 30 


05150 


DEC 


A 




264D B9 


05160 


CP 


C 


;LINES > PAGE ? 


264E F5 


05170 


PUSH 


AF 


;Save status 


264F 3AAA27 


05180 


LD 


A,(QRESP) 


;<Q>uery parm used? 


2652 B7 


05190 


OR 


A 




2653 2003 


05200 


JR 


NZ, PQUERY 


;Go if so 


2655 Fl 


05210 


POP 


AF 


;No 


2656 1872 


05220 


JR 


VALID2? 


;Return NZ if L>P 


2658 Fl 


05230 PQUERY 


POP 


AF 


;L > P ? 


2659 3800 


05240 


JR 


CSETZ 


;No - Set Z flag 


265B 79 


05250 


LD 


nj O 


;Yes - Set LINES = PAGE 


265C 32E529 


05260 


LD 


(DUPDA+LINES) 9 A 


265F 328F27 


05270 


LD 


(LRESP) S A 


;Pretend that LINES was 


2662 32CF27 


05280 


LD 


(LPARM) 9 A 


; responded to 


2665 CD8924 


05290 


CALL 


DSFORMS 


;Reset defaults 


2668 BF 


05300 SETZ 


CP 


A 


;Set Z flag 


2669 C9 


05310 
05320 ; 


RET 








05330 ; 


Is the 


lines printed pe 


ir page valid ? 




05340 ; 








266A CDD126 


05350 RLINES 


CALL 


MORE0? 


; Number between 1 - 255 ? 


266D C0 


05360 


RET 


NZ 


;No - NZ 


266E 3D 


05370 


DEC 


A 




266F 21D327 


05380 


LD 


HL S PPARM 


;HL => Page length 


2672 1855 


05390 


JR 


VALID1? 


;Set status accordingly 
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05410 ; 


Is the 


Characters printed per line valid ? 




05420 ; 










2674 CB77 


05430 RCHARS 


BIT 


6,A 




;Flag response ? 


2676 20F0 


05440 


JR 


NZ,SETZ 




;Yes - Set Z 


2678 CDD126 


05450 


CALL 


MORE0? 




;No - More than zero ? 


267B C0 


05460 


RET 


NZ 




;No - NZ 


267C 3AAA27 


05470 


LD 


A,(QRESP) 




;<Q>uery parm used? 


267F B7 


05480 


OR 


A 






2680 C8 


05490 
05500 ; 


RET 


Z 




;Return if not 




05510 ; 


<Q>uery - Make sure 


CHARS > INDENT+MARGIN 




05520 ; 










2681 21D127 


05530 


LD 


HL,MPARM 




;HL => Margin value 


2684 3ACD27 


05540 


LD 


A 9 (IPARM) 




;A = Indent value 


2687 86 


05550 


ADD 


A 5 (HL) 




;A = Indent + Margin 


2688 B9 


05560 


CP 


C 




;Less than CHARS ? 


2689 38 DD 


05570 


JR 


C.SETZ 




;Yes - Set Z 


268B AF 


05580 


XOR 


A 




:Reset INDENT & MARGIN=0 


268C 32E929 


05590 


LD 


(DUPDA+INDENT),A 


268F 32EC29 


05600 


LD 


(DUPDA+MARGIN). 


>A 


2692 32CD27 


05610 


LD 


(IPARM) S A 






2695 32D127 


05620 


LD 


(MPARM),A 






2698 3C 


05630 


INC 


A 




;Pretend that INDENT & 


2699 329927 


05640 


LD 


(MRESP),A 




; MARGIN were responded 


269C 328627 


05650 CHNGIND 


LD 


(IRESP) 9 A 




; to 


269F CD8924 


05660 


CALL 


DSFORMS 




;Change defaults 


26A2 AF 


05670 


XOR 


A 




;Set Z & RETurn 


26A3 C9 


05680 
05690 ; 


RET 










05700 ; 


Is Marg 


lin less than 


Characters/Line ? 




05710 ; 










26A4 CDDA26 


05720 RMARGIN CALL 


NUMERIC 




; Number between - 255 ? 


26A7 C0 


05730 


RET 


NZ 




;No - NZ 


26A8 CDC626 


05740 


CALL 


VALID? 




;Yes - less than CHARS ? 


26AB C0 


05750 


RET 


NZ 




;No - RETurn NZ 


26AC 3ACD27 


05760 


LD 


A.(IPARM) 




;P/u INDENT 


26AF 81 


05770 


ADD 


A,C 




;Add to MARGIN 


26B0 CDC626 


05780 


CALL 


VALID? 




;M + I < CHARS ? 


26B3 C8 


05790 


RET 


Z 




;Yes - RETurn Z 


26 B4 AF 


05800 


XOR 


A 




;No - Set INDENT default 


26B5 32CD27 


05810 


LD 


(IPARM) S A 




;Equal to Zero 


26B8 32E929 


05820 


LD 


(DUPDA+INDENT), 


A 


26BB 3C 


05830 


INC 


A 




;Pretend I was responded 


26 BC 18 DE 


05840 
05850 ; 


JR 


CHNGIND 




; to 




05860 ; 


Is Marg 


in + Indent 


less 


than chars/line ? 




05870 ; 










26BE CDDA26 


05880 RINDENT CALL 


NUMERIC 




; Number between - 255 ? 


26C1 C0 


05890 


RET 


NZ 




;No - NZ 


26C2 3AD127 


05900 


LD 


A,(MPARM) 




;P/u MARGIN val 


26C5 81 


05910 


ADD 


A,C 




;A = MARGIN + INDENT 


26C6 21CB27 


05920 VALID? 


LD 


HL,CPARM 




;HL => Characters/Line 


26C9 BE 


05930 VALID1? 


CP 


(HL) 




Response > (HL) ? 


26CA 3002 


05940 VALID2? 


JR 


NC, SETNZ 




;Yes - Reset Z flag 


26CC BF 


05950 


CP 


A 




;No - Set Z flag 


26CD C9 


05960 


RET 








26CE AF 


05970 SETNZ 


XOR 


A 




;Reset Z flag 


26CF 3C 


05980 


INC 


A 






26D0 C9 


05990 


RET 
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06010 ; 




Is the 


response a number between 1-255 ? 




06020 ; 








26D1 CDDA26 


06030 MORE0? 


CALL 


NUMERIC ;Is the response a number 


26D4 C0 


06040 




RET 


NZ ; Between - 255 ? 


26D5 B7 


06050 




OR 


A ;Is the response zero ? 


26D6 28F6 


06060 




JR 


Z.SETNZ ;Yes - reset Z flag 


26 D8 BF 


06070 




CP 


A ;No - set Z flag 


26D9 C9 


06080 
06090 ; 




RET 






06100 ; 




Is the 


response a 1 byte number ? 




06110 ; 








26 DA E680 


06120 NUMERIC 


AND 


80H ;Bit 7 is set if the 


26DC EE80 


06130 




XOR 


80H ;Response is numeric. 


26 DE C0 


06140 




RET 


NZ ;NZ <= if Bit is reset 


26 DF 04 


06150 




INC 


B ;Is the response only 


26 E0 05 


06160 




DEC 


B ;1 byte (msb = 0) ? 


26E1 79 


06170 




LD 


A,C ;Set A = response 


26E2 C9 


06180 
06190 , 


■' 


RET 


;Yes (Z), no (NZ) 




06200 ; 




Is the 


response a flag (ON/YES, OFF/NO) ? 




06210 ; 








26 E3 E640 


06220 FLAG? 


AND 


40H ;Bit 6 is set if the 


26E5 EE40 


06230 




XOR 


40H ;Response is a flag. 


26E7 C9 


06240 
06250 ; 
06260 . 




RET 


;Yes (Z), no (NZ) 




06270 a 




XFER - 


Xfer string @ HL to DE 




06280 s 




XFERON 


- Xfer "ON" string to DE 




06290 










06300 , 








26E8 217328 


06310 ) 


(FERON 


LD 


HL.ONSTR ;HL => "ON" 


26EB 010300 


06320 ) 


(FER 


LD 


BC,3 ;3 chars to xfer 


26EE EDB0 


06330 




LDIR 




26F0 C9 


06340 
06350 
06360 




RET 






06370 




DSP - [ 


Display a byte 




06380 










06390 








26F1 D5 


06400 [ 


DSP 


PUSH 


DE ;Save DE 


26F2 


06410 




(a@DSP 


;Output byte 


26F2 3E02 


00014 




LD 


A,2 


26F4 EF 


00015 




RST 


40 


26F5 1804 


06420 
06430 
06440 




JR 


EXDSP 




06450 




DSPLY 


- Display a string 




06460 










06470 








26F7 D5 


06480 


DSPLY 


PUSH 


DE ;Save DE 


26F8 


06490 




(cHsiDSPLY ;Display it 




00016 




IFEQ 


00H,1 




00017 




LD 


HL, 




00018 




ENDIF 




26F8 3E0A 


00019 




LD 


A, 10 


26FA EF 


00020 




RST 


40 


26FB Dl 


06500 


EXDSP 


POP 


DE 


26FC C8 


06510 




RET 


Z ;Return if good 


26FD C30E24 


06520 
06530 
06540 


s 
J 


JP 


IOERR ;NZ - I/O Error 
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2700 E5 
2701 

2701 3E65 
2703 EF 



2704 116F28 
2707 

2707 3E53 
2709 EF 
270A C21924 

270D EB 
270E 010400 

2711 09 

2712 22D125 
2715 11E329 

2718 D5 

2719 0E0A 
271B EDB0 
271D DDE1 
271F El 

2720 C9 



2721 C5 

2722 E5 

2723 F5 



2724 
2725 
2728 
272A 
272B 
272B 
272D 
272E 
272F 
2730 
2731 
2732 
2733 
2736 



D5 

11DE29 
2600 
6F 

3E61 

EF 

lb 

IB 

IB 

El 

EB 

010300 

EDB0 



2738 Fl 

2739 El 
273A CI 
273B C9 



06550 ; 

06560 ; 

06570 ; 

06580 DOINIT 

06590 

00021 

00022 

06600 ; 

06610 ; 

06620 ; 

06630 

06640 

00023 

00024 

06650 

06660 ; 

06670 

06680 

06690 

06700 

06710 

06720 

06730 

06740 

06750 

06760 

06770 

06780 

06790 

06800 

06810 

06820 



DOINIT - Sign on message & Get Data area 



06840 

06850 ; 

06860 HEXDEC 

06870 

06880 

06890 ; 

06900 ; 

06910 ; 

06920 

06930 

06940 

06950 

06960 

00025 

00026 

06970 

06980 

06990 



07010 

07020 

07030 

07040 ; 

07050 

07060 

07070 

07080 

07090 ; 



PUSH HL 

(80FLAGS 

LD A, 101 

RST 40 



;Save command ptr 
;Get system flags 



Point IX to Filter Data area 



LD DE,$FF 

(a^GTMOD 

LD A,83 

RST 40 

JP NZ,NOPF 



EX 

LD 

ADD 

LD 

LD 

PUSH 

LD 

LDIR 

POP 

POP 

RET 



DE.HL 

BC,4 

HL,BC 

(DATAREA+2),HL 

DE,DUPDA 

DE 

C.10 

IX 
HL 



;DE => "$FF" 
;Find start 



;Abort if Forms/Fit missing 

HL => Data Area 
Add 4 to ptr 

Save $FF data pointer 
DE => Duplicate D area 
Save ptr 
BC = 10 bytes to xfer 

IX pts to data area 
Recover cmdline ptr 
and RETurn 



HEXDEC - Convert Hex Number to Decimal ASCII 

A => 8-bit Hex Number to Convert 

DE => Destination of ASCII characters 



PUSH BC 
PUSH HL 
PUSH AF 



;Save regs 



Transfer ASCII chars into temporary buffer 



PUSH DE 

LD DE,TEMBUF 

LD H,0 

LD L,A 

@@ HEXDEC 

LD A, 97 

RST 40 

DE 

DE 

DE 

HL 

DE,HL 

BC,3 



DEC 

DEC 

DEC 

POP 

EX 

LD 

LDIR 



POP 
POP 
POP 
RET 



AF 
HL 
BC 



;Save real destination 
;DE => Temporary buffer 
;Xfer # to HL 

;Convert to ASCII 



;Pos to 3-byte field 



;Recover user buffer 

;HL to #, DE to user buff 

;Move the ASCII number 

;Recover # 

; and other regs 
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07110 ; 


HEX8 


- Convert HEX Number in A to HEX @ HL 




07120 ; 








07130 ; 






273C C5 


07140 HEX8 


PUSH 


BC ;Save regs 


273D 4F 


07150 


LD 


C.A :Xfer char to C 


273E 


07160 


@@HEX8 ;Do it 


273E 3E62 


00027 


LD 


A, 98 


2740 EF 


00028 


RST 


40 


2741 CI 


07170 


POP 


BC 


2742 C9 


07180 
07190 ; 
07200 ; 
07210 ; 


RET 


; and RETurn 




07220 ; 


INPUT 


- Input a string into INBUFF$ 




07230 ; 








07240 ; 






2743 E5 


07250 INPUT 


PUSH 


HL ;Save regs 


2744 D5 


07260 


PUSH 


DE 


2745 C5 


07270 
07280 ; 


PUSH 


BC 


2746 010003 


07290 


LD 


BC S 3<8 ;3 chars max 


2749 210228 


07300 


LD 


HL S INBUFF$ ;Key input buffer 


274C 


07310 


G»(s>KEYIN ; Input line 


274C 3E09 


00029 


LD 


A s 9 


274E EF 


00030 


RST 


40 


274F DA1F24 


07320 
07330 ; 


JP 


C s ABORT ;Abort if <BREAK> 


2752 04 


07340 


INC 


B ; l Set Z flag if 


2753 05 


07350 
07360 ; 


DEC 


B ; no input 


2754 CI 


07370 


POP 


BC ;Restore regs 


2755 Dl 


07380 


POP 


DE 


2756 El 


07390 


POP 


HL 


2757 C9 


07400 
07410 ; 


RET 


; & RETurn with condition 




07420 ; 


Defau' 


It Value Table 




07430 ; 






2758 42 


07440 DEFTAB 


DB 


PDEF,0 S LDEF S 0,0 S S 9 00000100B,0 S 


00 42 00 00 00 00 04 00 




00 


07450 ; 








07460 ; 


Parameter table 




07470 ; 






2762 80 


07480 PRMTBL$ 
07490 ; 


DB 


80H ;6.2 @PARAM 




07500 ; 


ADDLF 


(A) - Flag Input Only 




07510 ; 






2763 55 


07520 


DB 


FLAG! ABB! 5 


2764 41 


07530 


DB 


'ADDLF' 


44 44 4C 


46 






2769 00 


07540 ARESP 


DB 





276A D727 


07550 
07560 ; 


DW 


APARM 




07570 ; 


CHARS 


(C) - Accept Numeric or Flag input 




07580 ; 






276C D5 


07590 


DB 


FLAG!ABB!NUM!5 


276D 43 


07600 


DB 


'CHARS' 


48 41 52 


53 






2772 00 


07610 CRESP 


DB 





2773 CB27 


07620 


DW 


CPARM 
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2775 56 

2776 46 

46 48 
277C 00 
277D D927 



277F 96 
2780 49 

4E 44 

2786 00 

2787 CD27 



2789 95 
278A 4C 

49 4E 
278F 00 

2790 CF27 



2792 96 

2793 4D 

41 52 
2799 00 
279A D127 



279C 94 
279D 50 

41 47 
27A1 00 
27 A2 D327 



27A4 55 
27A5 51 

55 45 
27AA 00 
27AB C927 



27AD 53 
27AE 54 

41 42 
27B1 00 
27B2 DB27 



27B4 95 
27B5 58 



07630 

07640 

07650 

07660 

07670 
41 52 44 

07680 FRESP 

07690 

07700 

07710 

07720 

07730 

07740 
45 4E 54 

07750 IRESP 

07760 

07770 

07780 

07790 

07800 

07810 
45 53 

07820 LRESP 

07830 

07840 ; 

07850 ; 

07860 ; 

07870 

07880 
47 49 4E 

07890 MRESP 

07900 

07910 

07920 

07930 

07940 

07950 
45 

07960 PRESP 

07970 

07980 

07990 



FFHARD (F) - Accept Flag input only 



08010 



52 59 

08030 QRESP 
08040 
08050 ; 
08060 ; 
08070 ; 
08080 
08090 

08100 TRESP 

08110 

08120 

08130 

08140 

08150 

08160 



DB 
DB 

DB 
DW 



FLAG! ABB! 6 
'FFHARD' 



FPARM 
INDENT (I) - Accept Numeric Input only 



DB 
DB 

DB 
DW 



NUM!ABB!6 
'INDENT' 


IPARM 



LINES (L) - Accept Numeric Input only 

DB NUM!ABB!5 
DB 'LINES' 

DB 

DW LPARM 

MARGIN (M) - Accept Numeric Input only 



DB 
DB 

DB 
DW 



NUM!ABB!6 
'MARGIN' 


MPARM 



PAGE (P) - Accept Numeric Input only 



DB 
DB 

DB 
DW 



NUM!ABB!4 
' PAGE ' 



PPARM 
QUERY (Q) - Accept Flag Input Only 



DB 
DB 

DB 
DW 



FLAG! ABB! 5 
'QUERY' 


QPARM 



TAB (T) - Accept Flag input only 

DB FLAG! ABB! 3 
DB 'TAB 1 ' 



DB 
DW 




TPARM 



XLATE (X) - Accept Numeric input only 



DB 
DB 



NUM!ABB!5 
' XLATE ' 
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4C 41 54 45 
27BA 00 
27BB D527 



27BD 57 
27BE 44 

45 46 
27C5 00 
27C6 DD27 

27C8 00 

27C9 0000 
27CB 
27CD 
27CF 
27D1 0000 
27 D3 0000 
27 D5 0000 

27 D7 0000 
27D9 
27 DB 
27DD 



27 DF 00 
27E0 E227 
27E2 



27E4 7227 
27 E6 08 

27E7 8627 
27E9 06 

27EA 8F27 
27 EC 02 

27ED 9927 
27 EF 09 

27F0 A127 
27F2 00 

27F3 BA27 
27F5 05 

27F6 DF27 
27F8 04 



27F9 B127 



08170 
08180 
08190 
08200 
08210 
08220 
08230 
41 55 4C 
08240 
08250 
08260 
08270 
08280 
08290 
08300 
08310 
08320 
08330 
08340 
08350 
08360 
08370 
08380 
08390 
08400 
08410 
08420 
08430 
08440 
08450 
08460 
08470 
08480 
08490 
08500 
08510 
08520 
08530 
08540 
08550 
08560 
08570 
08580 
08590 
08600 
08610 
08620 
08630 
08640 
08650 
08660 
08670 
08680 
08690 
08700 
08710 
08720 
08730 
08740 
08750 



XTRESP 



54 
DRESP 



QPARM 
CPARM 
IPARM 
LPARM 
MPARM 
PPARM 
XTPARM 

APARM 
FPARM 
TPARM 
DPARM 

XFRESP 

XFPARM 



RESPTAB 



DB 

DW XTPARM 

DEFAULT (D) - Accept Flag input only 

DB FLAG! ABB !7 
DB 'DEFAULT' 



DB 
DW 

DB 




DPARM 



DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 

DW 



DB 
DW 
DW 



XFPARM 



Response Table - Response Addr, $FF Offset 



8-bit Numeric Responses 



DB 


CHARS 


DW 
DB 


IRESP 
INDENT 


DW 
DB 


LRESP 
LINES 


DW 
DB 


MRESP 
MARGIN 


DW 
DB 


PRESP 
PAGE 


DW 
DB 


XTRESP 
XLATET 


DW 
DB 


XFRESP 
XLATEF 


Flag 


Response Table 


DW 


TRESP 
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27FB 7C27 
27FD 6927 



27FF 28 

46 3D 



08760 DW 

08770 DW 

08780 ; 

08790 ; 

08800 FAKEPRM DB 



08810 INBUFF$ DS 

08820 

08830 

08840 

08850 

08860 

08870 



FRESP 
ARESP 



'(F=' 
12 



280E 
280E 80 
280F A127 



08900 
08910 
08920 
08930 
08940 STRTAB EQU 



STRTAB - 10 entries each with 9 bytes: 

1 byte : Type of expected response - flag or numeric 

2 bytes: Address of response byte 
2 bytes: Address of prompt string 

2 bytes: Address of routine to range check response 

2 bytes: Address of default value string 



$ 



08950 DB 
08960 DW 
A229 4526 A028 

2817 80 08970 

2818 8F27 08980 
7A29 6A26 AD28 

2820 80 08990 

2821 7227 09000 
3229 7426 BA28 

2829 80 09010 

282A 9927 09020 

9229 A426 C728 

2832 80 09030 

2833 8627 09040 
6029 BE 26 D428 

283B 40 09050 

283C 6927 09060 

1929 E326 E128 

2844 40 09070 

2845 7C27 09080 
4F29 E326 EE28 

284 D 40 09090 

284E B127 09100 

B829 E326 FB28 

2856 80 09110 

2857 DF27 09120 
C729 DA26 0929 

285F 80 09130 

2860 BA27 09140 

D329 DA26 1229 

09150 ; 

09160 ; 

09170 ; 

2868 80 09180 FAKETAB DB 

2869 00 09190 DB 
286A 46 09200 DB 
286B 00 09210 FAKERES DB 
286C B425 09220 DW 
286 E 00 09230 DB 

09240 ; 
09250 ; 



;PAGE 
PRESP,PPROMPT,RPAGE,SPAGE 



DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 

DB 
DW 



;LINES 
LRESP,LPROMPT,RLINES,SLINES 



; CHARS 
CRESP,CPROMPT,RCHARS,SCHARS 



jMARGIN 
MRESP,MPROMPT,RMARGIN,SMARGIN 



; INDENT 
IRESP,IPROMPT,RINDENT,SINDENT 

FLAG ;ADDLF 

ARESP, APROMPT, FLAG?, SADDLF 

FLAG ;FFHARD 

FRESP, FPROMPT, FLAG?, SFFHARD 

FLAG ;TAB 

TRESP,TPROMPT, FLAG?, STAB 



;XLATE From 
XFRESP,XPROMF, NUMERIC, SXLFROM-2 



;XLATE To 
XTRESP,XPROMT, NUMERIC, SXLTO-2 



Fake Parameter Table for prompts (QUERY) 



80 H 


;6.2 G> PARAM 





;Type byte 


. F . 









VALUE+1 


jDestination 
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286F 24 09260 $FF DB 


'$FF',ETX 




46 46 03 






2873 20 09270 ONSTR DB 


' ON' 




4F 4E 






2876 4F 09280 OFFSTR DB 


'OFF' 




46 46 






09290 ; 






2879 46 09300 NOPF$ DB 


'Forms Filter not Resident' 


,CR 


6F 72 6D 73 20 46 69 6C 






74 65 72 20 6E 6F 74 20 






52 65 73 69 64 65 6E 74 






0D 






09310 ; 






2893 3F 09320 ENDPROM DB 


'? ',CURON,ETX 




20 0E 03 






2897 50 09330 VALUES DB 


'PAGE = ' 




41 47 45 20 20 20 3D 20 






28A0 20 09340 SPAGE DB 


' 66', LF, 'LINES = ' 




36 36 0A 4C 49 4E 45 53 






20 20 3D 20 






28AD 20 09350 SLINES DB 


' 66\LF S 'CHARS = ' 




36 36 0A 43 48 41 52 53 






20 20 3D 20 






28BA 4F 09360 SCHARS DB 


'OFF'.LF.'MARGIN = ' 




46 46 0A 4D 41 52 47 49 






4E 20 3D 20 






28C7 20 09370 SMARGIN DB 


' 0',LF,' INDENT = ' 




20 30 0A 49 4E 44 45 4E 






54 20 3D 20 






28D4 20 09380 SINDENT DB 


' 0',LF s 'ADDLF = ' 




20 30 0A 41 44 44 4C 46 






20 20 3D 20 






28E1 4F 09390 SADDLF DB 


'OFF*,LF,'FFHARD = ' 




46 46 0A 46 46 48 41 52 






44 20 3D 20 






28EE 4F 09400 SFFHARD DB 


'OFF'.LF.'TAB = ' 




46 46 0A 54 41 42 20 20 






20 20 3D 20 






28FB 4F 09410 STAB DB 


'OFF',LF 




46 46 0A 






28FF 0D 09420 DOXLATE DB 


CR.'XLATE = X\AP 




58 4C 41 54 45 20 20 3D 






20 58 27 






290B 30 09430 SXLFROM DB 


'00', AP,' => X',AP 




30 27 20 3D 3E 20 58 27 






2914 30 09440 SXLTO DB 


'00' s AP,LF,CR 




30 27 0A 0D 






09450 ; 






09460 ; 






2919 41 09470 APROMPT DB 


'Add Line Feed after C/R {' 




64 64 20 4C 69 6E 65 20 






46 65 65 64 20 61 66 74 






65 72 20 43 2F 52 20 7B 






2932 4D 09480 CPROMPT DB 


'Maximum Characters per Line {' 


61 78 69 6D 75 6D 20 43 






68 61 72 61 63 74 65 72 






73 20 70 65 72 20 4C 69 






6E 65 20 7B 






294F 52 09490 FPROMPT DB 


'Real Form Feeds {' 




65 61 6C 20 46 6F 72 6D 






20 46 65 65 64 73 20 7B 
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2960 

297A 

2992 
29A2 

29 B8 
29C7 
29 D3 



49 

6E 64 
74 65 
2D 61 
7B 
4C 

69 6E 
6E 74 
20 50 
4D 

61 72 
74 74 
50 

68 79 
50 61 
67 74 
54 

61 62 
73 69 
58 

6C 61 
6D 20 
58 

6C 61 
7B 



LIBRARY Files 

09500 I PROMPT DB 
65 6E 74 20 61 66 
72 20 57 72 61 70 
72 6F 75 6E 64 20 



09510 
65 73 20 
65 64 20 
61 67 65 

09520 
67 69 6E 
69 6E 67 

09530 

73 69 63 

67 65 20 

68 20 7B 
09540 

20 45 78 

6F 6E 20 

09550 

74 65 20 
7B 

09560 
74 65 20 



LPROMPT DB 
50 72 69 
70 65 72 
20 7B 
MPROMPT DB 
20 53 65 
20 7B 

PPROMPT DB 
61 6C 20 
4C 65 6E 

TPROMPT DB 
70 61 6E 
7B 

XPROMF DB 
46 72 6F 

XPROMT DB 
54 6F 20 



29 DD 20 

0005 

000A 



09570 ; 

09580 ; 

09590 DB 

09600 TEMBUF DS 

09610 DUPDA DS 

09620 ; 

09630 END 



FORMS - LS-DOS 6.2 Page 00018 
'Indent after Wrap-around {' 

'Lines Printed per Page {' 

'Margin Setting {' 
'Physical Page Length {' 

'Tab Expansion {' 
'Xlate From {' 
'Xlate To {» 



5 
10 

START 
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» 


$FF 


286F 


(3(91 


0000 @(j>2 


0000 


@@3 


0000 @@4 


0000 


(s>MOD2 


0000 


@M0D4 


FFFF 


ABB 


0010 ABORT 


241F 


ADDLF 


0007 


AP 


0027 


APARM 


27 D7 


APROMPT 


2919 


ARESP 


2769 


BREAK 


0080 


BS 


0008 


CALLINS 


251B CFLAG$ 


0002 


CHAROFF 


249F 


CHARS 


0008 


CHECKQ 


2473 


CHNGIND 


269C 


CKCOMM 


24FC 


CKCOMML 


2502 


CPARM 


27CB 


CPROMPT 


2932 


CR 


000 D 


CRESP 


2772 


CUROFF 


000F 


CURON 


000E 


DATAREA 


25CF 


DEFTAB 


2758 


DFLAG$ 


0003 


DISPA 


259C 


DISPFRM 


2437 


DISPROM 


2558 


DOFFHRD 


24A5 


DOINIT 


2700 


DOPRMPT 


253D 


DOXLATE 


28FF 


DPARM 


27.DD 


DRESP 


27C5 


DSFORMS 


2489 


DSP 


26F1 


DSPLY 


26F7 


DUNLP 


259A 


DUPDA 


29E3 


ENDPROM 


2893 


ETX 


0003 


EX DSP 


26FB 


EXIT 


2407 


FAKEPRM 


27FF 


FAKERES 


286B 


FAKETAB 


2868 


FFHARD 


0007 


FLAG 


0040 FLAG? 


26E3 


FLAGBT 


0007 


FLOOP 


25F2 


FORMS 


2429 


FPARM 


27 D9 


FPROMPT 


294F 


FRESP 


277C 


GETFLAG 


25F0 GETPRM 


243E 


HEX8 


273C 


HEX DEC 


2721 


IGSPCS 


242 D 


INBUFF$ 


2802 


INDENT 


0006 


INITVAL 


2619 


INPUT 


2743 


IOERR 


240E 


IPARM 


27CD 


IPROMPT 


2960 


IRESP 


2786 


IXINST 


25 EB 


IXINST2 


2612 


KFLAG$ 


000A LDEF 


0042 


LF 


000A 


LINES 


0002 


LPARM 


27 CF 


LPROMPT 


297A 


LRESP 


278F 


MARGIN 


0009 


MORE0? 


26 Dl 


MPARM 


27D1 


MPROMPT 


2992 


MRESP 


2799 


NEXTFLG 


2616 


NEXTPR 


2550 


NO PAR M 


25 EE 


NOPF 


2419 


NOPF$ 


2879 


NOPOUT 


25E6 


NOSHOW 


24F8 


NUM 


0080 


NUMERIC 


26 DA 


OFFSTR 


2876 


ONSTR 


2873 


PAGE 


0000 


PAR ERR 


002 C 


PDEF 


0042 


PNLP 


258A 


PNLP2 


2597 


PPARM 


27D3 


PPROMPT 


29A2 


PQUERY 


2658 


PRESP 


27A1 


PRLP 


2561 


PRMENT 


2642 


PRMERR 


240C 


PRMTBL$ 


2762 


PROMPT 


252A 


PROMPTL 


2530 QPARM 


27C9 


QRESP 


27 AA 


RCHARS 


2674 


RE INPUT 


2537 


RESPTAB 


27E4 


RETADR 


25C7 


RINDENT 


26BE 


RLINES 


266A 


RMARGIN 


26A4 


RPAGE 


2645 


SADDLF 


28E1 


SAVESP 


2422 


SCHARS 


28 B A 


SDLP 


261E 


SETNZ 


26CE 


SETZ 


2668 


SFFHARD 


28EE 


SFLAG$ 


0012 


SINDENT 


28 D4 


SKIP 


00 DD 


SKIPSET 


2609 


SLINES 


28AD 


SMARGIN 


28C7 


SPAGE 


28A0 


SPLP 


2574 


STAB 


28FB 


START 


2400 


STFDEF 


2640 


STFPRMS 


25CC 


STR 


0020 


STRTAB 


280E 


STUFDEF 


2582 


STUFF IN 


2483 


STUFLP 


25 D5 


STUFVAL 


25A3 


SXLFROM 


290B SXLTO 


2914 


TAB 


0009 


TABV 


0007 


TEMBUF 


29 DE 


TPARM 


27 DB 


TPROMPT 


29 B8 


TRESP 


27B1 


VALID1? 


26C9 


VALID2? 


26 C A 


VALID? 


26C6 


VALUE 


25B3 


VALUES 


2897 


VFLAG$ 


0015 


XFER 


26 EB 


XFERON 


26 E8 


XFPARM 


27E2 


XFRESP 


27 DF 


XLATEF 


0004 


XLATET 


0005 


XPROMF 


29C7 


XPROMT 


29D3 


XTPARM 


27D5 


XTRESP 


27 B A 


(i>@ABORT 


BD3C 


@@ADTSK 


BDCF 


@@BANK 


C2E7 


@@BKSP 


BFC7 


@@BREAK 


C2FD 
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@@CHNI0 


BD27 GGCKBRKC 


@@CKE0F 


BFDC (SK3CKTSK 


@@CLS 


C335 (90CMNDI 


(a@CT-L 


BB8B @@DATE 


00DEBU6 


BDA5 GGDECHEX 


@@DIRWR 


C1E9 (a@DIVl6 


@@D0DIR 


BE38 @@DSP 


@@ ERROR 


BD90 @@EXIT 


(a@FLAGS 


C2D1 @@FNAME 


@@GATRD 


C1BF G0GATWR 


00GTDCB 


C180 @(aGTDCT 


@(3HDFMT 


BF0A @@HEX16 


@@HEXDEC 


C27C @@HIGH$ 


@@KBD 


BBC 7 (3(3 KEY 


GGKLTSK 


BE0E @@LOAD 


(3@L0F 


C006 @@LOGER 


@@MSG 


BC72 @(3MUL16 


GGOPEN 


BF9D WAR AM 


@@PE0F 


C01B @<aP0SN 


@@PRT 


BB9F @@PUT 


@(9RDSEC 


BEE0 @@RDSSC 


00REMOV 


BF73 00RENAM 


@(3RMTSK 


BDE4 @@RPTSK 


(a@RSLCT 


BECB @§RSTOR 


@@RWRIT 


C084 @@SEEK 


@(a SKIP 


C0AE 00SLCT 


@@TIME 


BD12 @@VDCTL 


@@VRSEC 


BEF5 @@WEOF 


00WRITE 


C0ED @@WRSEC 


@@WRTRK 


BF49 


2400 is the 


transfer address 


00000 Total 


errors 
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C34B 


00CKDRV 


BDBA 


INCLOSE 


BD66 


(30CMNDR 


BCFD 


@@ DC STAT 


C267 


@@DIRRD 


C252 


@@DIV8 


BB4F 


@@DSPLY 


BD51 


(30FEXT 


C156 


(30FSPEC 


C1FE 


(90GET 


C16B 


@@GTMOD 


C2A6 


@@HEX8 


C2BB 


@@INIT 


BB3B 


00KEYIN 


C102 


(s>@LOC 


BC26 


00LOGOT 


C228 


(a@MUL8 


BCE8 (a^PAUSE 


C030 (SPRINT 


BB77 


@@RAMDIR 


C1AA 


@@READ 


BF5E 


@@REW 


BDF9 


@@RREAD 


BE8C 


@(3RUN 


BEB6 


@(3SEEKSC 


BE 77 


00STEPI 


BCBE 


@@VER 


C0D8 @@WHERE 


BF1F 


(30WRSSC 



BE23 
BFB2 
BD7B 
BE 62 
C1D4 
C23D 
BBEF 
C141 
C12C 
BB63 
C195 
C291 
BF88 
BBDB 
BFF1 
BC3B 
C213 
BCD3 
BC87 
BE4D 
C045 
C05A 
C06F 
C117 
C099 
BEA1 
C0C3 
BBB3 
BF34 
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Command: FREE 
Library: SYS7/SYS 
ISAM # : 22H 
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0008 
0002 
0006 
000A 
000 E 
0001 



00100 ;LBFREE/ASM - FREE Command 

00110 TITLE <FREE - LS-DOS 6.2> 

00120 ; 

00130 TPL EQU 8 

00140 @DSP EQU 2 

00150 @PRT EQU 6 

00160 0DSPLY EQU 10 

00170 SPRINT EQU 14 

00180 @KEY EQU 1 

00190 ; 

00200 *GET SVCMAC:3 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00210 *GET VALUES:3 ;Misc. equates 

03920 ;VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00220 ; 



Tracks per Line = 8 
@DSP SVC # 
@PRT SVC # 
(3DSPLY SVC # 
0PRINT SVC # 
@KEY SVC # 

;SVC Macro equivalents 



2400 


00230 
00240 


9 


ORG 2400H 




2400 


00250 FREEMAP 


EQU $ 






00260 


S 






2400 


00270 




@(aCKBRKC 


;See if break down 


2400 3E6A 


00001 




LD A, 106 




2402 EF 


00002 




RST 40 




2403 2804 


00280 




JR Z s BEGINA 


;Ok if not, 


2405 21FFFF 


00290 




LD HL.-l 


; else abort 


2408 C9 


00300 
00310 


9 


RET 






00320 


» 


<BREAK> not hit 


- execute module 




00330 


9 








00340 


BEGINA 






2409 ED731424 


00350 




LD (SAVESP+1) S SP ;Save SP address for exit 


240D CD2524 


00360 
00370 


9 


CALL FREE 


;Show Free Space 




00380 


9 


Finished - Clear 


out <BREAK> & return 




00390 


» 






2410 210000 


00400 


EXIT 


LD HL 9 


;HL = (normal exit) 


2413 310000 


00410 


SAVESP 


LD SP s $-$ 


;P/u old SP address 


2416 


00420 




@@CKBRKC 


;Clear <BREAK> 


2416 3E6A 


00003 




LD A, 106 




2418 EF 


00004 




RST 40 




2419 C9 


00430 
00440 


9 


RET 






00450 


9 


Error Handler - 


Display message & Abort 




00460 


9 






241A 6F 


00470 


IOERR 


LD L,A 


;Set HL = Error # 


241B 2600 


00480 




LD H,0 




241D F6C0 


00490 




OR 0C0H 


;Short error - & RETurn 


241F 4F 


00500 




LD C,A 


; Stuff error # in C 


2420 


00510 




(TERROR 


; Display error 


2420 3E1A 


00005 




LD A, 26 




2422 EF 


00006 




RST 40 




2423 18EE 


00520 
00530 




JR SAVESP 


;Exit 




00540 




FREE - Display F 


ree Disk Space 




00550 










00560 FREE 






2425 


00570 




@@FLAGS 


;IY => System Flags 


2425 3E65 


00007 




LD A, 101 
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2427 EF 



2428 111200 
242B FD19 
242D FD226D26 



00008 
00580 
00590 
00600 
00610 
00620 
00630 



LIBRARY Files 
RST 



FREE - LS-DOS 6.2 
40 
Stuff Address of SFLAG$ into routine 



Page 00002 



LD DE,SFLAG$ 

ADD IY.DE 

LD (SFLAG1+1),IY 



DE => Offset to SFLAG$ 

IY => SFLAG$ 

Save for later test 



2431 
2432 
2433 
2435 
2437 
2439 
243B 
243C 



E5 

7E 

FE28 

2807 

FE0D 

2809 

23 

18F4 



243E 116828 
2441 
2441 3E11 

2443 EF 

2444 El 

2445 C21A24 



2448 7E 

2449 FE29 
244B 3813 



244D FE3A 
244F 2002 

2451 23 

2452 7E 



2453 D630 
2455 3804 
2457 FE08 
2459 383B 



245B 3E20 
245D C31A24 



2460 2A4C26 

2463 2C 

2464 200A 
2466 0E20 
2468 CD8B27 
246B 0E0D 



00650 

00660 

00670 

00680 SKPLP 

00690 

00700 

00710 

00720 

00730 

00740 

00750 ; 

00760 ; 



Position to parameters or end of line 

PUSH HL ;Save command ptr 

LD A,(HL) ;P/u char 

CP ' (' ; Parameter (s) ? 

JR Z,GETPRMS ;Yes - get parameters 

CP CR ;End of line ? 

JR Z S GETHL ;Recover command ptr 

INC HL ;Bump ptr 

JR SKPLP ; No - go til terminator 

Process any parameters if entered 



00770 ; 

00780 GETPRMS LD DE S PRMTBL$ ;DE => Parameter table 



00790 



;(3PARAM 



00010 

00800 GETHL 
00810 



Anything after FREE command entered ? 



LD 
CP 
JR 



A S (HL) 

'(•+1 

C.FREE0 



;P/u first character 
;End of line ? 
;Display lines 



P/u next character if character is a colon 



CP 
JR 
INC 
LD 



NZ 9 CKIFDRV 

HL 

A,(HL) 



;Drivspec ? 

;No - check if numeric 

;Yes - p/u next char 



WAR AM 

LD A,17 

RST 40 

POP HL ;Recover cmdline ptr 

JP NZ,I0ERR ;NZ - parameter error 
00820 ; 
00830 ; 
00840 ; 
00850 
00860 
00870 
00880 ; 
00890 ; 
00900 ; 
00910 
00920 
00930 
00940 
00950 ; 
00960 ; 
00970 ; 

00980 CKIFDRV SUB '0' ;Legal drive Number ? 

00990 JR C.ILDRNUM ;No - illegal drive # 
01000 CP 7+1 

01010 JR C,MAP ;Less than 8 - good 
01020 ; 

01030 ; Illegal Drive Number - display & Abort 
01040 ; 

01050 ILDRNUM LD 
01060 JP 
01070 ; 

01080 ; Output a C/R to *PR if output is to *PR 
01090 ; 

01100 FREE0 LD HL,(PPARM+1) ;P/u P parm 
01110 INC L Specified ? 

01120 JR NZ,FREE0A ;No - don't PRINT 
01130 LD C,' ' ;Output space 
01140 CALL PRT ; to printer 

01150 LD C,CR ;0utput C/R 



Convert drive # to binary (if legal) & save 



A, 32 
IOERR 



;" Illegal Drive Number" 
; Display & Abort 
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246D CD8B27 


01160 


CALL PRT 


; to printer 


2470 0E00 


01170 FREE0A LD C,0 


; Init drive # to 




01180 








01190 


; Is there a disk in the 


drive ? 




01200 






2472 C5 


01210 FREE1 PUSH BC 


;Save drive # 


2473 


01220 


@@GTDCT 


;IY => DCT 


2473 3E51 


00011 


LD A, 81 




2475 EF 


00012 


RST 40 




2476 FD7E00 


01230 


LD A,(IY) 


; Drive on line ? 


2479 FEC3 


01240 


CP 0C3H 




247B 2012 


01250 


JR NZ, NXTDRV 


;No - get next drive 


247 D 


01260 


@@CKDRV 


;Disk in drive ? 


247D 3E21 


00013 


LD A, 33 




247F EF 


00014 
01270 , 


RST 40 






01280 


Check if the <BREAK> was hit 




01290 , 






2480 F5 


01300 


PUSH AF 


;Save 0CKDRV condition 


2481 CD9226 


01310 


CALL CKBREAK 


;Check <BREAK> 


2484 Fl 


01320 
01330 s 


POP AF 


;Recover GCKDRV cond 




01340 , 


Display <No Disk> if @CKDRV fails 




01350 , 






2485 2805 


01360 


JR Z, DOINF 


;Disk in - use header 


2487 CD5426 


01370 


CALL NO DISK 


;No - display <No Disk> 


248A 1803 


01380 
01390 ; 


JR NXTDRV 


;Get next drive 




01400 ; 


Create Header String & 


display if successful 




01410 ; 






248C CD1425 


01420 DOINF CALL GETINFO 


; Display Header string 




01430 ; 








01440 ; 


Get next drive number 






01450 ; 






248F CI 


01460 NXTDRV POP BC 


;C = Drive # 


2490 0C 


01470 


INC C 


;Inc it 


2491 CB59 


01480 


BIT 3,C 


;Finished ? 


2493 28 DD 


01490 


JR Z,FREE1 


;No - get next drive 


2495 C9 


01500 
01510 ; 


RET 


;Finished - RETurn 




01520 ; 


MAP - Display Free Space Map 




01530 ; 








01540 ; 


Log in diskette if poss 


ible 




01550 ; 






2496 4F 


01560 V 


AP LD C S A 


;Xfer drive # to C 


2497 


01570 


@@GTDCT 


;IY => DCT + 


2497 3E51 


00015 


LD A 9 81 




2499 EF 


00016 


RST 40 




249A FD7E00 


01580 


LD A,(IY) 


;P/u enable/disable 


249D FEC3 


01590 


CP 0C3H 


; Drive enabled ? 


249F C25B24 


01600 


JP NZ,ILDRNUM 


;No - Illegal Drive # 


24A2 


01610 


@(a CK DRV 


;Disk in drive ? 


24A2 3E21 


00017 


LD A, 33 




24A4 EF 


00018 


RST 40 




24A5 2806 


01620 
01630 ; 


JR Z,DISKIN 


;Good - Disk in Drive 




01640 ; 


No Disk in Drive - Display messaqe & Abort 




01650 ; 






24A7 CD5426 


01660 


CALL NO DISK 


; Display <No Disk> 


24AA C31024 


01670 
01680 ; 


JP EXIT 


;Go to exit routine 
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01690 


; Create header/footer strings & output header 




01700 


» 


24AD CD9226 


01710 


DISKIN CALL CKBREAK ;Check for <BREAK> 


24B0 CD1425 


01720 


CALL GETINFO ;Get GAT, create header 


24B3 CD2527 


01730 


CALL DISPUND ;Display underline 


24B6 CD8426 


01740 
01750 


CALL CLRLN ;Clear Line buffer 




01760 


; Transfer " 0- 7" string to line buffer 




01770 




24B9 21A427 


01780 


LD HL,MTRK ; Initial track #s 


24BC 11002B 


01790 


LD DE,LINBUF 


24BF 010700 


01800 


LD BC,7 ;Len track # display 


24C2 EDB0 


01810 


LDIR 




01820 


> 




01830 


; Pt HL => GAT+0, C = cylinder -1 (gets INCed) 




01840 


9 


24C4 210029 


01850 


LD HL,GAT ;Pt to stored GAT 


24C7 0D 


01860 


DEC C ;Init Cyl = -1 




01870 


9 




01880 


; Loop to Display each line of Cylinders 




01890 


9 


24C8 0608 


01900 


NEXTLIN LD B,TPL ;Max track per line coun 


24CA DD21082B 01910 


LD IX 9 LINBUF+8 ; Pt to display buffer 




01920 


9 




01930 


; Bump cylinder number & display Gran info 




01940 


9 


24CE 0C 


01950 


DSPSC INC C ;Current cylinder 


24CF CDE326 


01960 


CALL DFRE ;Display Free grans 


24D2 23 


01970 


INC HL ;pt to next track 




01980 


9 




01990 


; Finished Displaying all the cylinders ? 




02000 


5 


24D3 FD7E06 


02010 


LD A 9 (IY+6) ;P/u max cylinder 


24 D6 B9 


02020 


CP C finished ? 


24D7 281D 


02030 


JR Z,ENDRET ;Yes - display footer 




02040 


» 




02050 


; Calculate offset (9-Grans/cyl ) to next track 




02060 


> 


24 D9 3AE526 


02070 


LD A,(GRANS+1) ;P/u Grans/Cyl 


24 DC ED44 


02080 


NEG 


24 DE C609 


02090 
02100 . 


ADD A,TPL+1 ;A = offset to next 




02110 


Add offset to Line buffer pointer (IX) 




02120 , 




24E0 1600 


02130 


LD D,0 ; Stuff in DE 


24E2 5F 


02140 


LD E,A 


24E3 DD19 


02150 


ADD IX, DE ;Where to dsp next track 


24E5 10E7 


02160 
02170 j 


DJNZ DSPSC ;Loop current 6 trks 




02180 ; 


Finished 8 cylinders - display line 




02190 ; 




24E7 E5 


02200 


PUSH HL ;Save buffer loc'n 


24E8 C5 


02210 


PUSH BC ;Save current cyl 


24E9 CD4226 


02220 
02230 ; 


CALL DSPLINE ;Display current line 




02240 ; 


Clear granule display line buffer 




02250 ; 




24EC CD8426 


02260 


CALL CLRLN ;Clear Line buffer 


24EF CI 


02270 
02280 ; 


POP BC ;Recover cylinder # in C 




02290 ; 


Change cylinder numbers in line buffer 
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02300 ; 


les 




FREE - LS-DOS 


,6.2 Page 00005 


24F0 CD2D27 


02310 


CALL 




DSPTRK 


;Calc new track #'s 


24F3 El 


02320 


POP 




HL 


;Restore GAT pointer 


24F4 18D2 


02330 
02340 ; 


JR 




NEXTLIN 


;Get next line 




02350 ; 


Finisl 


hed with drive - 


■ Display current line 




02360 ; 










24F6 CD4226 


02370 ENDRET 


CALL 




DSPLINE 


;Display tracks in buffer 


24F9 CD2527 


02380 
02390 ; 


CALL 




DISPUND 


; Display underline 




02400 ; 


Display 


Footer Message 




02410 ; 










24FC 21FB27 


02420 


LD 




HL 9 F00TER 


;HL => Footer Message 


24FF CD4526 


02430 
02440 ; 


CALL 




DSPMSG 


;Display footer string 




02450 ; 


If footer will cause 


a scroll - wait for key 




02460 ; 










2502 3A6126 


02470 


LD 




A S (CKPAGE+1) 


;P/u # of lines left 


2505 FE02 


02480 


CP 




2 


;At least 2 lines left? 


2507 3003 


02490 


JR 




NC,FRET 


;Lprint, free to return 


2509 CD7F27 


02500 


CALL 




KEY 


;Wait for char 


250C 360D 


02510 FRET 


LD 




(HL).CR 


; Scroll 


250E CD4526 


02520 


CALL 




DSPMSG 


; Display line 


2511 C31024 


02530 
02540 ; 


JP 




EXIT 


;Go to normal exit 




02550 ; 


Stuff 


Drive Number into String Header 




02560 ; 










2514 79 


02570 GETINFO 


LD 




A S C 


;P/u drive # 


2515 C630 


02580 


ADD 




A s '0' 


;Convert to ASCII 


2517 32B227 


02590 
02600 ; 


LD 




(HDRIVE) 9 A 


;Stuff into header string 




02610 ; 


Read 


in 


the diskette 


's GAT 




02620 ; 










251A 


02630 


@@GTDCT 




;IY => DCT+0 


251A 3E51 


00019 


LD 




A 5 81 




251C EF 


00020 


RST 




40 




251D FD5609 


02640 


LD 




D,(IY+9) 


;P/u Directory cylinder 


2520 1E00 


02650 


LD 




E,0 


;Sector Zero 


2522 210029 


02660 


LD 




HL,GAT 


;HL => GAT I/O buffer 


2525 


02670 


@@RDSSC 




;Read System Sector 


2525 3E55 


00021 


LD 




A, 85 




2527 EF 


00022 


RST 




40 




2528 3E14 


02680 


LD 




A,14H 


;Init to "GAT Read Error" 


252A C21A24 


02690 DERR 


JP 




NZ s IOERR 


;Jump on GAT read error 


252D CD9226 


02700 
02710 ; 


CALL 




CK BREAK 


;Check for <BREAK> 




02720 ; 


Read 


in 


the diskette 


's HIT 




02730 ; 










2530 1C 


02740 


INC 




E 


; Sector 1 


2531 24 


02750 


INC 




H 


;HL => HIT I/O buffer 


2532 


02760 


(aPRDSSC 




;Read System Sector 


2532 3E55 


00023 


LD 




A, 85 




2534 EF 


00024 


RST 




40 




2535 3E16 


02770 


LD 




A.16H 


;Init to "HIT Read Error" 


2537 20F1 


02780 


JR 




NZ,DERR 


;Go to Error handler 


2539 CD9226 


02790 
02800 ; 


CALL 




CKBREAK 


;Check for <BREAK> 




02810 ; 


Pick 


up 


quantity of 


Sectors/Granule 




02820 ; 










253C FD7E08 


02830 


LD 




A,(IY+8) 


; Bits 4-0 contain # 


253F E61F 


02840 


AND 




1FH 


; of Sectors/Granule. 
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2541 3C 



2542 F5 

2543 210000 
2546 114428 

2549 019C26 
254C CD5C27 
254F Fl 

2550 5F 



2551 FD6E06 
2554 2600 
2556 23 



2557 F5 

2558 FD7E08 
255B E6E0 
255D 07 
255E 07 
255F 07 

2560 3C 

2561 FDCB046E 
2565 2801 

2567 87 

2568 32E526 
256B 4F 



256C 

256C 3E5A 
256 E EF 



256F F5 
2570 E5 



2571 210001 
2574 D602 
2576 FE-:0 
2578 3006 



257A 87 
257B 87 
257C 87 
257D 6F 
257E 2600 
2580 221D26 



02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 



03010 
03020 
03030 
03040 
03050 



03070 

03080 

03090 

03100 

03110 

03120 

03130 

03140 

03150 FREE2 

03160 

03170 ; 

03180 ; 

03190 ; 

03200 

00025 

00026 

03210 ; 

03220 ; 

03230 ; 

03240 

03250 

03260 ; 

03270 ; 

03280 ; 

03290 

03300 

03310 

03320 

03330 

03340 

03350 

03360 

03370 

03380 

03390 

03400 

03410 FREE3 

03420 ; 

03430 ; 



INC A ;Adjust for zero offset 

Convert Sectors/Gran to K & stuff in string 



PUSH 

LD 

LD 

LD 

CALL 

POP 

LD 



AF 

HL,0 

DE,FGRAN 

BC.CVT2D 

CALCK2 

AF 

E,A 



;Save Sectors/Granule 
;Set HLA = # Sec/Gran 
;DE => Destination 
;0nly 2 digits possible 
;Convert to K 
;A = Sectors/Granule 
;Xfer to E 



Pick up number of cylinders in HL 



LD 
LD 
INC 



L,(IY+6) 
H,0 

HL 



;P/u # of cylinders 

;Msb = 

; Relative to zero 



Calculate quantity of Granules/Cylinder 



PUSH 

LD 

AND 

RLCA 

RLCA 

RLCA 

INC 

BIT 

JR 

ADD 

LD 

LD 



AF ;Save # of sectors/gran 

A,(IY+8) ;Bits 7-5 contain 
0E0H ; # of Granules/cylinder 

;& shift to bits 0-2 



A ;Adjust for zero offset 

5,(IY+4) ;Double sided? 

Z 9 FREE2 ;Bypass if one-sided 

A, A ;Else double the count 

(GRANS+1),A ;Save # Grans/Cyl 

C,A ;Save in C for (PMULT8 



Calculate quantity of Sectors/Cylinder 



(a@MUL8 

LD A, 90 

RST 40 



;Mult E x C 



A = quantity of Sectors per cylinder 



PUSH 
PUSH 



AF 
HL 



;Save # Sectors/Cyl 
;Save # Cylinders 



File slots avail = 256 if more than 32 sees 



LD 
SUB 
CP 
JR 



HL,256 

2 

20H 

NC.FREE3 



256 files maximum 
Set A = # sees in dir 

Greater than 32 ? 
Yes - use default of 256 



Calculate number of directory entries avail 



ADD A, A 

ADD A, A 

ADD A, A 

LD L,A 

LD H,0 

LD (FREE7+1),HL 



;Multiply # of Sectors 
; in directory by 8 
; to get # of slots. 
; Stuff in HL 



;File slots to test later 
Stuff # of entries (HL) into header string 
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LIBRARY F 
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2583 11F727 


03450 


LD DE 9 HP0SSF 


;DE => Destination 


2586 CDA026 


03460 


CALL CVT3D 


;Cvt HL to ASCII @ DE 


2589 El 


03470 


POP HL 


; Recover # of cylinders 


258A Fl 


03480 
03490 ; 


POP AF 


;Rcvr # of sectors/cyl 




03500 ; 


Calculate total # of 


sectors HL x A 




03510 ; 






258B 4F 


03520 


LD C S A 


;Set C = Sec/cyl 


258C B7 


03530 


OR A 




258 D 2803 


03540 


JR Z s SKIPMUL 


; Don't multiply if zero 


258F 


03550 


@@MUL16 


Multiply HL x C 


258F 3E5B 


00027 


LD A s 91 




2591 EF 


00028 
03560 ; 


RST 40 






03570 ; 


Convert # of sectors 


to K & stuff in string 




03580 ; 






2592 11E027 


03590 SKIPMUL LD DE 9 HP0SSK 


;DE => Destination 


2595 CD5927 


03600 
03610 ; 


CALL CALCK 


; Stuff into string 




03620 ; 


Transfer Diskette Name from GAT into strinq 




03630 ; 






2598 21D029 


03640 


LD HL S GAT+0D0H 


;HL => Pack Name 


259B 11B527 


03650 


LD DE,HNAME 


;DE => String destination 


259E 0E08 


03660 


LD C s 8 


;8 chars to xfer 


25A0 EDB0 


03670 
03680 ; 


LDIR 


;Xfer into string 




03690 ; 


Transfer Diskette Dat 


e from GAT into string 




03700 ; 






25A2 11BF27 


03710 


LD DE S HDATE 


;DE => Destination 


25A5 0E08 


03720 


LD C,8 


;8 chars to xfer 


25A7 EDB0 


03730 
03740 ; 


LDIR 


;Xfer to string 




03750 ; 


Pt HL => GAT, DE = Free Gran cnt, B = cyls 




03760 ; 






25A9 210029 


03770 


LD HL,GAT 


;Pt to start of GAT 


25AC 110000 


03780 


LD DE,0 


;Init gran counter 


25AF 3ACC29 


03790 


LD A,(GAT+0CCH) 


;P/u cyl excess 


25B2 C623 


03800 


ADD A 9 35 


;Add base 


25B4 47 


03810 
03820 ; 


LD B,A 


;Set loop counter 




03830 ; 


Calculate quantity of 


Free granules left 




03840 ; 






25B5 7E 


03850 FREE4 


LD A S (HL) 


;P/u GAT byte & set 


25B6 37 


03860 FREE5 
03870 ; 


SCF 


; carry so bit 7 stays 1 




03880 ; 


Is the granule in use 


? 




03890 ; 






25B7 IF 


03900 


RRA 


;Slide gran bit to carry 


25B8 3801 


03910 
03920 ; 


JR C.FREE6 


; Ignore if in use 




03930 ; 


Free Granule - Bump Free Granule count 




03940 ; 






25BA 13 


03950 


INC DE 


;Free s bump gran counter 


25BB FEFF 


03960 FREE6 


CP 0FFH 


;End of byte? 


25BD 20F7 


03970 
03980 ; 


JR NZ.FREE5 


;Loop if not 




03990 ; 


Finished with one cyli 


nder, advance to next 




04000 ; 






25BF 2C 


04010 


INC L 


;Bump GAT byte pointer 


25C0 10F3 


04020 


DJNZ FREE4 


:Loop for # cyls 
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25C2 EB 
25C3 Fl 
25C4 4F 
25C5 

25C5 3E5B 
25C7 EF 



25C8 11D627 
25CB CD5927 



25CE 3E35 
25D0 FDCB036E 
25 D4 2802 
25D6 3E38 
25D8 320428 



25DB FD7E07 
25 DE 07 
25 DF 07 
25 E0 07 
25 El E607 
25E3 3C 
25E4 F630 
25 E6 321928 



25E9 FDCB035E 
25ED 2810 



25EF 219E27 
25F2 110728 
25F5 010600 
25F8 EDB0 
25FA 219827 
25FD 1815 



25FF 3E31 
2601 FDCB046E 
2605 2801 

2607 3C 

2608 321928 



260B FDCB0376 
260F 280B 
2611 219227 



04030 

04040 

04050 

04060 

04070 

04080 

04090 

00029 

00030 

04100 

04110 

04120 

04130 

04140 

04150 

04160 

04170 

04180 

04190 

04200 

04210 

04220 FIVEIN 

04230 ; 

04240 ; 

04250 ; 

04260 

04270 

04280 

04290 

04300 

04310 

04320 

04330 

04340 ; 

04350 ; 

04360 ; 

04370 

04380 

04390 

04400 

04410 

04420 

04430 

04440 

04450 

04460 

04470 

04480 

04490 

04500 

04510 DOSIDES 

04520 

04530 

04540 

04550 ONESIDE 

04560 ; 

04570 ; 

04580 ; 

04590 

04600 

04610 



Multiply # Grans (DE) by Sectors/Gran 



EX DE,HL 

POP AF 

LD C,A 

(30MUL16 

LD A, 91 

RST 40 



;Xfer # Grans to HL 
;Rcvr # of sectors/gran 
;Put in C for @MUL16 
Multiply. HL x C 



Cvt # of Free Grans to K & stuff in string 

LD DE,HFREEK ;Cvrt to decimal 

CALL CALCK ;Cvrt to ASCII & stuff 

Build Footer String in case of map 



LD A, '5' 

BIT 5,(IY+3) 

JR Z, FIVEIN 

LD A, '8' 

LD (FSIZE),A 



;Init 5"/8" media 

;Test DCT for size 

;Go if 5" 

;Else reset to 8" 

; Stuff size into header 



P/u # of heads from DCT & stuff into footer 



LD 

RLCA 

RLCA 

RLCA 

AND 

INC 

OR 

LD 



A,(IY+7) 



7 

A 

'0' 

(FHEADS),A 



;Bits 7-5 = # heads 
;Shift to 0-2 



;Mask off other junk 
;Relative to zero 
;Make it ASCII 
; Stuff into header 



If this is a hard drive - ignore sides check 



BIT 3,(IY+3) 
JR Z, DOSIDES 



; Check if hard 

;Not hard - check sides 



Hard Drive - overwrite Floppy in footer 



LD HL,HARD 

LD DE,FTYPE 

LD BC,6 

LDIR 

LD HL, RIGID 

JR D3 



HL => "Hard " 
DE => Dest in footer 
BC = 6 chars to xfer 
Transfer to footer 
HL => "RIGID" 
;Xfer "RIGID" to footer 



Floppy disk - Stuff # of sides into footer 



LD A,'l» 

BIT 5,(IY+4) 

JR Z, ONESIDE 

INC A 

LD (FHEADS),A 



; Init # of sides 
;Test DCT for sides 
;Go if 1-sides 
;Else bump to 2 
; Stuff into header 



If floppy is double density pt HL to string 



BIT 6,(IY+3) 
JR Z 9 FREE7 
LD HL,MDDEN 



;Test SDEN/DDEN 

;Single - that's default 

;Density MSG - Double 



Page 235 



The Source 



2614 112728 
2617 010600 
261A EDB0 



261C 110000 
261F 21002A 
2622 IB 



2623 3ACD29 

2626 07 

2627 3805 



2629 7D 
262A E6D8 
262 C 2805 



262E 7E 
262F B7 
2630 2001 



2632 13 

2633 2C 

2634 20EC 



2636 EB 

2637 11F327 
263A CDA026 



263D 21AB27 
2640 1803 

2642 21002B 



2645 CD9226 
2648 CD8527 
264B 110000 
264E 1C 
264F 200F 
2651 C.38827 

2654 79 

2655 C630 



LIBRARY Files FREE - LS-DOS 6.2 Page 00009 

Xfer "Single, Double, or Rigid" to footer 



04620 ; 

04630 ; 

04640 ; 

04650 D3 LD DE,FDENS 

04660 LD BC,6 

04670 LDIR 

04680 ;• 

04690 ; 

04700 ; 

04710 FREE7 LD DE,$-$ 

04720 LD HL,HIT 

04730 FREE8 DEC DE 

04740 ; 



; Density MSG dsp pos 
;6 chars to xfer 
;Move Double to cover 



Calculate # of Free HIT positions available 



;P/u # of poss entries 

;HL => HIT + 

;Dec count in case of SYS 



LD 

RLCA 

JR 



04750 ; 

04760 ; 

04770 

04780 

04790 

04800 ; 

04810 ; 

04820 ; 

04830 LD 

04840 AND 

04850 JR 

04860 ; 

04870 ; 

04880 ; 

04890 DATDISK LD 



Check SYS slots if this is a data disk 

A,(GAT+0CDH) ;Bit 7 set if Data disk 
C, DATDISK ;Set - ignore SYS check 

Is this a SYS slot - 00-07 or 20-27 ? 



A,L 

0D8H 

Z,FREE9 



;P/u HIT offset 
;Reserved slot ? 
;Yes - can't use it 



04900 
04910 
04920 ; 
04930 ; 
04940 ; 
04950 

04960 FREE9 
04970 



Not reserved - is the HIT posn in use ? 

;File in use? 

;Yes - don't bump count 
Slot not in use - bump free slot count 



OR 
JR 



A,(HL) 

A 

NZ,FREE9 



Stuff available files into string 



EX 
LD 
CALL 



DE,HL 

DE,HFREEF 

CVT3D 



;Avai lable files to HL 
;Cvrt to ASCII into msg 
;Convert & RETurn 



Display Header String & RETurn 



INC DE ;Bump free count 

INC L ;Bump HIT pointer 

JR NZ,FREE8 ;Loop if not through 

04980 ; 

04990 ; 

05000 ; 

05010 

05020 

05030 

05040 ; 

05050 ; 

05060 ; 

05070 

05080 

05090 ; 

05100 DSPLINE LD 

05110 ; 

05120 ; DSPMSG - Display a message pointed to by HL 

05130 ; 

CKBREAK 

DSPLY 

DE,$-$ 

E 

NZ,CKPAGE 

PRINT 



LD 
JR 



HL, HEADER 
DSPMSG 

HL,LINBUF 



;HL => Header string 
;Display header & RETurn 

;Fall into Display & RET 



05140 DSPMSG CALL 

05150 CALL 

05160 PPARM LD 

05170 INC 

05180 JR 

05190 JP 
05200 ; 

05210 N0_DISK LD 

05220 ADD 



;Check for <BREAK> 

;Display message to video 

;P/u P parm 

;Was it entered ? 

;No - Check page pause 

;0utput line to *PR 



A,C 
A,'0' 



;P/u drive # 
;Cvt to ASCII 



Page 236 



The Source 


LIBRARY Fi 


les 


FREE - LS-DOS 


6.2 Page 00010 


2657 325228 


05230 




LD 


(NODISKN),A 


; Stuff in string 


265A 214B28 


05240 




LD 


HL,NODISK 


;HL => Message 


265D C34526 


05250 
05260 ; 




JP 


DSPMSG 


;Display Mess & RETurn 




05270 ; 




Decrement Lines printed count 




05280 ; 










2660 3E16 


05290 CKPAGE 


LD 


A, 22 


;Ck for display pause 


2662 3D 


05300 




DEC 


A 


; Count down 


2663 326126 


05310 




LD 


(CKPAGE+1),A 


; Update 


2666 C0 


05320 
05330 ; 




RET 


NZ 


;Ret if not yet full 




05340 ; 




Printed 


a full page - 


Reset to count to max 




05350 ; 










2667 3E17 


05360 




LD 


A, 23 


;Max lines to print 


2669 326126 


05370 
05380 ; 




LD 


(CKPAGE+1),A 


; Reset to max 




05390 ; 




Do not 


stop if a <D0> 


is in effect 




05400 ; 










266C 3A0000 


05410 SFLAG1 


LD 


A,($-$) 


;P/u SFLAG$ 


266F E620 


05420 




AND 


20 H 


;Do in effect ? 


2671 C0 


05430 
05440 ; 




RET 


NZ 


;Yes - RETurn 




05450 ; 




Wait for key - then c 


lear screen 




05460 ; 










2672 CD7F27 


05470 




CALL 


KEY 


;Wait for key entry 


2675 


05480 DISPHDR 


@@CLS 




;Clear Screen 


2675 3E69 


00031 




LD 


A, 105 




2677 EF 


00032 




RST 


40 




2678 C21A24 


05490 
05500 , 




JP 


NZ,IOERR 


;Abort if I/O Error 




05510 




Display Map header 






05520 a 










267B 21AB27 


05530 




LD 


HL, HEADER 


; Point to the header 


267E CD4526 


05540 




CALL 


DSPMSG 


; & display it 


2681 CD2527 


05550 
05560 


» 


CALL 


DISPUND 


; Display underline 




05570 


* 


CLRLN - 


Clear line buffer 




05580 


> 








2684 3E20 


05590 CLRLN 


LD 


A,' • 


;Clear buffer 


2686 21002B 


05600 [ 


3UFSTUF 


LD 


HL,LINBUF 


; Point to buffer 


2689 064F 


05610 




LD 


B,79 


; Length of buffer 


268B 77 


05620 ( 


:lrlni 


LD 


(HL),A 


; Stuff with char given 


268C 23 


05630 




INC 


HL 




268D 10FC 


05640 




DJNZ 


CLRLNl 




268F 360D 


05650 




LD 


(HL).CR 


;End line with C/R 


2691 C9 


05660 
05670 




RET 








05680 




CK BREAK 


- Check if the <BREAK> was pressed 




05690 










2692 


05700 ( 


:kbreak 


EQU 


$ 




2692 


05710 




GK3CKBRKC 


;<BREAK> hit ? 


2692 3E6A 


00033 




LD 


A, 106 




2694 EF 


00034 




RST 


40 




2695 C8 


05720 




RET 


Z 


;No - RETursi 


2696 21FFFF 


05730 i 


!\BORT 


LD 


HL.,-1 


;<BREAK> hit - abort 


2699 C31324 


05740 
05750 
05760 




JP 


SAVESP 






05770 




CVTDEC 


- Convert Hex 


Number to Decimal ASCII 




05780 




CVD2D - 


CVD4D - Convert to 2,3, or 4 digits 




05790 
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269C 3E20 
269E 181C 
26A0 3E20 
26A2 1812 
26A4 3E20 
26A6 1808 
26A8 3E20 

26AA 011027 
26AD CDC826 
26 B0 01E803 
26B3 CDC826 
26B6 016400 
26B9 CDC826 
26BC 010A00 
26BF CDC826 
26C2 7D 
26C3 C630 
26C5 12 
26C6 13 
26C7 C9 



26C8 
26C9 
26CA 
26CC 
26CD 
26CE 
26 D0 
26 D2 
26 D3 
26 D4 
26 D5 
26 D6 
26 D7 
26 D8 
26 D9 
26 DB 
26 DC 
26 DE 
26 DF 
26 El 
26E2 



D5 

5F 

16FF 

AF 

14 

ED42 

30FB 

09 

7B 

42 

Dl 

12 

04 

05 

2806 

78 

C630 

12 

3E30 

13 

C9 



26E3 C5 
26 E4 0600 



26E6 FD7E09 
26E9 B9 
26 EA 282F 



05800 

05810 

05820 

05830 CVT2D 

05840 

05850 CVT3D 

05860 

05870 CVD4D 

05880 

05890 CVTDEC 

05900 ; 

05910 

05920 

05930 CVT1000 

05940 

05950 CVT100 

05960 

05970 CVT10 

05980 

05990 



HL => Hex Number to Convert 

DE => Buffer to receive characters 



06010 

06020 

06030 

06040 ; 

06050 CVD1 

06060 

06070 

06080 

06090 CVD2 

06100 

06110 

06120 

06130 

06140 

06150 

06160 

06170 

06180 

06190 

06200 

06210 

06220 

06230 

06240 CVD3 

06250 

06260 

06270 

06280 

06290 

06300 

06310 

06320 DFRE 

06330 GRANS 

06340 ; 

06350 ; 

06360 ; 

06370 

06380 

06390 

06400 ; 



LD 
JR 
LD 
JR 
LD 
JR 
LD 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

CALL 

LD 

ADD 

LD 

INC 

RET 

PUSH 

LD 

LD 

XOR 

INC 

SBC 

JR 

ADD 

LD 

LD 

POP 

LD 

INC 

DEC 

JR 

LD 

ADD 

LD 

LD 

INC 

RET 



A ' ' 
CVT10 
A,' ' 
CVT100 
A ' ' 
CVT1000 
A,' ' 

BC, 10005 

CVD1 

BC.1000 

CVD1 

BC,100 

CVD1 

BC,10 

CVD1 

A,L 

A,'0' 

(DE),A 

DE 



DE 

D,0FFH 

A 

D 

HL,BC 

NC.CVD2 

HL,BC 

A,E 

B,D 

DE 

(DEM 

B 

B 

Z,CVD3 

A,B 

A,'0' 

(DEM 

A.'flf 

DE 



DFRE - Stuff a cylinder's Gran symbols in buffer 

IX => Buffer to receive characters 
HL => GAT cylinder byte to use 



PUSH BC 
LD B 9 $-$ 



;Save C, cur cyl loc 
;P/u Grans/Cylinder 



Is this cylinder the directory ? 



LD 
CP 
JR 



A,(IY+9) 

C 

Z,DDIR 



;P/u dir cyl from DCT 
; Directory ? 
;Yes - use "D"'s 
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06410 ; 


Not the directory cyl 


- use "x", "." & "*" 




06420 ; 






26 EC DDE 5 


06430 


PUSH IX 


;Save buffer pointer 


26EE C5 


06440 
06450 ; 


PUSH BC 


;Save Grans/Cyl 




06460 ; 


Is the Granule in use 


? 




06470 ; 






26 EF CB0E 


06480 DF1 


RRC (HL) 


;P/u next Granule 


26F1 3E78 


06490 


LD A,'x' 


; Init "in use" 


26F3 3802 


06500 
06510 ; 


JR C,DF2 


;Set - use "x" 




06520 ; 


Granule isn't in use - 


stuff a "." in buffer 




06530 ; 






26F5 3E2E 


06540 


LD A,'.' 


;Else free 


26F7 DD7700 


06550 DF2 
06560 ; 


LD (IX+0),A 


; Stuff char 




06570 ; 


Bump buffer pointer & 


decrement G/C count 




06580 ; 






26FA DD23 


06590 


INC IX 


;Next display loc 


26FC 10F1 


06600 
06610 ; 


DJNZ DF1 


;Loop thru all grans 




06620 ; 


Recover Buff ptr, Grans/Cyl 




06630 ; 






26FE CI 


06640 


POP BC 


;B = Grans per Cyl 


26FF DDE1 


06650 
06660 ; 


POP IX 


;IX to start of track 




06670 ; 


Position HL to Lockout 


table 




06680 ; 






2701 E5 


06690 


PUSH HL 


;Save Cyl ptr 


2702 116000 


06700 


LD DE,60H 


;0ffset to lockout table 


2705 19 


06710 
06720 ; 


ADD HL,DE 


; Point to lockout 




06730 ; 


Go through lockout & overwrite if locked out 




06740 ; 






2706 FDCB035E 06750 LOl 


BIT 3 s (IY+3) 


;If hard drive, there's 


270A 2008 


06760 
06770 ; 


JR NZ,L02 


; no lockout 




06780 ; 


Diskette is a floppy - 


Is gran locked out ? 




06790 ; 






270C CB0E 


06800 


RRC (HL) 


;Gran locked out ? 


270E 3004 


06810 


JR NC,L02 


;No - bump buff ptr 


2710 DD36002A 06820 


LD (IX+0),'*' 


; Asterisk = lockout 




06840 ; 


Bump buffer pointer & 


loop til done 




06850 ; 






2714 DD23 


06860 L02 


INC IX 


;Next gran dsp loc 


2716 10EE 


06870 
06880 ; 


DJNZ LOl 


;B grans/cyl 




06890 ; 


Recover ptrs & RETurn 






06900 ; 






2718 El 


06910 


POP HL 




2719 CI 


06920 


POP BC 




271A C9 


06930 
06940 ; 


RET 






06950 ; 


DDIR - Use "D" 's for D" 


"rectory instead of "x" 




06960 : 






271B DD360044 06970 DDIR 


LD (IX+0),'D' 


; Stuff "D" char 


271F DD23 


06980 


INC IX 


;Loop thru all DIR grans 


2721 10F8 


06990 


DJNZ DDIR 




2723 CI 


07000 


POP BC 




2724 C9 


07010 


RET 
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2725 3E2D 
2727 CD8626 
272A C34226 



2720 D5 
272E C5 



272F 11002B 

2732 0C 

2733 CD5027 



2736 FD7E06 
2739 B9 
273A 2811 



273C F5 
273D 3E2D 
273F 12 
2740 Fl 



2741 13 

2742 0607 

2744 0C 

2745 B9 

2746 2802 
2748 10FA 



274A CD5027 
274D CI 
274E Dl 
274F C9 



2750 69 

2751 2600 

2753 C5 

2754 CDA026 

2757 CI 

2758 C9 



LIBRARY Files FREE - LS-DOS 6.2 

DISPUND - Display a line of "-" 



Page 00013 



07020 ; 

07030 ; 

07040 ; 

07050 DISPUND LD A,'-' Character to underline 

07060 CALL BUFSTUF ; Stuff line & display 

07070 JP DSPLINE ;Display line 

07080 ; 

07090 ; DSPTRK - Stuff cylinder numbers in line buffer 

07100 ; 

07110 DSPTRK PUSH 



PUSH 



DE 
BC 



;Save registers used 



Stuff starting cylinder # in line buffer 



LD 

INC 

CALL 



DE.LINBUF 

C 

DSPTK4 



;Display buffer 

;Bump to next cylinder 

; Display cylinder number 



Is this the only cylinder in the line ? 



LD 
CP 
JR 



A,(IY+6) 

C 

Z.DSPTK3 



;P/u maximum # cyls 
;Are we at the top? 
;Go if yes 



More than 1 cyl - stuff "-" in line buffer 



07120 

07130 

07140 

07150 

07160 

07170 

07180 

07190 ; 

07200 ; 

07210 ; 

07220 

07230 

07240 

07250 ; 

07260 ; 

07270 ; 

07280 

07290 

07300 

07310 

07320 ; 

07330 ; 

07340 ; 

07350 

07360 

07370 ; 

07380 DSPTK1 INC 

07390 CP 

07400 JR 

07410 DJNZ 

07420 

Stuff ending cylinder # into line buffer 



PUSH 
LD 
LD 
POP 



AF 

A '-' 
(DE),A 
AF 



;Save max cylinder 
; Stuff dash in buffer 



;Recover max cylinder 
Get ending cylinder # for this line in C 



INC 
LD 



DE 
B.TPL-1 

C 

C 

Z,DSPTK2 

DSPTK1 



;Position to next avail 
;Need 7 more on a line 

;Bump until 7 or max 



07430 

07440 

07450 DSPTK2 CALL DSPTK4 

07460 DSPTK3 POP BC 

07470 POP DE 

07480 RET 

07490 

Convert cylinder # (C) to ASCII at DE 



; Stuff ending cyl on line 
;Recover registers 

;RETurn 



07500 
07510 
07520 DSPTK4 LD 



07530 
07540 
07550 
07560 
07570 
07580 
07590 
07600 
07610 
07620 



LD 

PUSH 

CALL 

POP 

RET 



L,C 

H,0 

BC 

CVT3D 

BC 



;Xfer cylinder # to HL 

;Save cylinder # 
;Convert cyl# to ASCII 
;C = cylinder # 
;RETurn 



CALCK - Calculate Number of K & stuff in string 
HLA => Total # of Sectors 
DE => Destination of String 
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2759 01A826 


07630 CALCK 


LD 


BC.CVTDEC 


4 digit default 


275C ED436C27 


07640 CALCK2 


LD 


(CONVERT+D.BC 




2760 65 


07650 


DIVHLA 


LD 


H,L j 


Per disk pack 


2761 6F 


07660 




LD 


L,A 




2762 CB3C 


07670 




SRL 


H 


Divide total sectors 


2764 CB1D 


07680 




RR 


L 


by 4 to calculate 


2766 CB3C 


07690 




SRL 


H 


space in K 


2768 CB1D 


07700 
07710 




RR 


L 






07720 




Convert K free (HL) to ASCII & put in string 




07730 










276A F5 


07740 




PUSH 


AF 


;Save offset 


276B CD0000 


07750 CONVERT CALL 


$-3> 


,Cvt HL to ASCII @ DE 


276E Fl 


07760 
07770 




POP 


AF 


;Recover offset 




07780 




Stuff 


hundredths value into string 




07790 










276F 13 


07800 




INC 


DE 


;Go past decimal point 


2770 E603 


07810 




AND 


3 


;Modulo 4 


2772 87 


07820 




ADD 


A, A 


;Multiply by 2 


2773 0600 


07830 




LD 


B,0 


, to position to 


2775 4F 


07840 




LD 


C,A 


; hundredths string 


2776 216028 


07850 




LD 


HL.HUNDTAB 


HL => Table base 


2779 09 


07860 




ADD 


HL , BC 


;HL => Hundredths string 


277A 0E02 


07870 




LD 


C,2 


;2 chars to xfer 


277C EDB0 


07880 




LDIR 




; Stuff in string 


277E C9 


07890 
07900 




RET 




;RETurn 




07910 




KEY/DSP/DSPLY/PRT/PRINT - 


- SVC routines 




07920 










277F 3E01 


07930 KEY 


LD 


A,@KEY 


.Wait for key 


2781 11 


07940 
07950 


» 


DB 


11H 




2782 3E02 


07960 


DSP 


LD 


A,@DSP 


; Display byte 


2784 11 


07970 
07980 


» 


DB 


11H 


;LD DE,nnnn 


2785 3E0A 


07990 


DSPLY 


LD 


A,@DSPLY 


;Display line 


2787 11 


08000 
08010 


» 


DB 


11H 




2788 3E0E 


08020 


PRINT 


LD 


A,@PRINT 


; Print line 


278A 11 


08030 
08040 


» 


DB 


11H 




278B 3E06 


08050 
08060 


PRT 
> 


LD 


A,@PRT 


; Print byte 


278D EF 


08070 


DO_OUT 


RST 


40 


;Do SVC & Check error 


278E C8 


08080 




RET 


Z 


;RETurn if good 


278F C31A24 


08090 
08100 


> 


JP 


IOERR 


;NZ - I/O Error 


2792 44 


08110 


MDDEN 


DB 


'DOUBLE' 




4F 55 42 


4C 45 










2798 52 


08120 RIGID 


DB 


'RIGID ' 




49 47 49 


44 20 










279E 48 


08130 


HARD 


DB 


'Hard ' 




61 72 64 20 20 












08140 


» 








27A4 20 


08150 


MTRK 


DB 


' 0- 7' 




20 30 2D 20 20 


37 










08160 


» 








27AB 44 


08170 


HEADER 


DB 


'Drive :' 




72 69 76 


65 20 


3A 








27B2 64 


08180 


HDRIVE 


DB 


'd ' 
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20 20 










27B5 64 




08190 HNAME DB 


' diskname ' 




69 73 


6B 


6E 61 6D 65 20 






20 










27 BF 64 




08200 HDATE DB 


'dd/mm/yy Free Space = ' 




64 2F 


6D 6D 2F 79 79 20 






20 20 46 


72 65 65 20 53 






70 61 


63 


65 20 3D 






27D6 6E 




08210 HFREEK DB 


'nnnnn.nnK/' 




6E 6E 


6E 


6E 2E 6E 6E 4B 






2F 










27E0 6E 




08220 HPOSSK DB 


'nnnnn.nnK Files = ' 




6E 6E 


6E 


6E 2E 6E 6E 4B 






20 20 46 


69 6C 65 73 20 






3D 20 










27F3 64 




08230 HFREEF DB 


•ddd/' 




64 64 


2F 








27F7 64 




08240 HPOSSF DB 


'ddd\CR 




64 64 


0D 


08250 ; 






27FB 54 




08260 FOOTER DB 


'Type => ' 




79 70 65 


20 3D 3E 20 20 






2804 73 




08270 FSIZE DB 


•s" ' 




22 20 










2807 46 




08280 FTYPE DB 


'Floppy Heads = ' 




6C 6F 


70 


70 79 20 20 20 






20 48 65 


61 64 73 20 3D 






20 










2819 6E 




08290 FHEADS DB 


' n Density = ' 




20 20 


20 44 65 6E 73 69 






74 79 


20 3D 20 






2827 53 




08300 FDENS DB 


'SINGLE Note - 1 Position 


= 


49 4E 


47 


4C 45 20 20 20 






4E 6F 


74 


65 20 2D 20 31 






20 50 


6F 


73 69 74 69 6F 






6E 20 


3D 20 






2844 6E 




08310 FGRAN DB 


' nn. nnK' 




6E 2E 


6E 


6E 4B 






284A 0D 




08320 ENDFOOT DB 
08330 ; 


CR 




284B 44 




08340 NO DISK DB 


'Drive :' 




72 69 


76 


65 20 3A 






2852 64 




08350 NODISKN DB 


'd [No Disk]',CR 




20 20 


5B 


4E 6F 20 20 44 






69 73 


6B 


5D 0D 
08360 ; 






2860 30 




08370 HUNDTAB DB 


'00255075' 




30 32 


35 


35 30 37 35 
08380 ; 










08390 ; Parameter Table 








08400 ; 






2868 80 




08410 PRMTBU DB 


80 H 




2869 41 




08420 DB 


FLAGil 




286A 50 




08430 DB 


.p. 




286B 00 




08440 DB 







286C 4C26 




08450 DW 


PPARM+1 




286 E 00 




08460 NOP 
08470 ; 






2900 




08480 ORG 


$<-8+l<+8 




0100 




08490 GAT DS 


256 




0100 




08500 HIT DS 


256 
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2B00 08510 LINBUF EQU $ 

08520 ; 

2400 08530 END FREEMAP 
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(3(31 


0000 @@2 


0000 (903 


0000 


@@4 


0000 @DSP 


0002 (3DSPLY 


000A 


@KEY 


0001 (3MOD2 


0000 @M0D4 


FFFF 


(3 PR I NT 


000E @PRT 


0006 ABB 


0010 


ABORT 


2696 AP 


0027 BEGINA 


2409 


BREAK 


0080 BS 


0008 BUFSTUF 


2686 


CALCK 


2759 CALCK2 


275C CFLAG$ 


0002 


CK BREAK 


2692 CKIFDRV 


2453 CKPAGE 


2660 


CLRLN 


2684 CLRLN1 


268B CONVERT 


276B 


CR 


000D CVD1 


26C8 CVD2 


26CD 


CVD3 


26E1 CVD4D 


26 A4 CVT10 


26BC 


CVT100 


26B6 CVT1000 


26B0 CVT2D 


269C 


CVT3D 


26A0 CVTDEC 


26 A8 D3 


2614 


DATDISK 


262E DDIR 


271B DERR 


252A 


DF1 


26 EF DF2 


26F7 DFLAG$ 


0003 


DFRE 


26E3 DISKIN 


24AD DISPHDR 


2675 


DISPUND 


2725 DIVHLA 


2760 DO INF 


248C 


DOSIDES 


25 FF DO OUT 


278D DSP 


2782 


DSPLINE 


2642 DSPLY 


2785 DSPMSG 


2645 


DSPSC 


24CE DSPTK1 


2744 DSPTK2 


274A 


DSPTK3 


274D DSPTK4 


2750 DSPTRK 


272D 


ENDFOOT 


284A ENDRET 


24F6 ETX 


0003 


EXIT 


2410 FDENS 


2827 FGRAN 


2844 


FHEADS 


2819 FIVEIN 


25 D8 FLAG 


0040 


FOOTER 


27FB FREE 


2425 FREE0 


2460 


FREE0A 


2470 FREE1 


2472 FREE2 


2568 


FREE3 


2580 FREE4 


25B5 FREE5 


25B6 


FREE6 


25BB FREE7 


261C FREE8 


2622 


FREE9 


2633 FREEMAP 


2400 FRET 


250C 


FSIZE 


2804 FTYPE 


2807 GAT 


2900 


GETHL 


2444 GET INFO 


2514 GETPRMS 


243E 


GRANS 


26 E4 HARD 


279E HDATE 


27BF 


HDRIVE 


27B2 HEADER 


27AB HFREEF 


27F3 


HFREEK 


27D6 HIT 


2A00 HNAME 


27B5 


HPOSSF 


27F7 HPOSSK 


27 E0 HUNDTAB 


2860 


ILDRNUM 


245B IOERR 


241A KEY 


277F 


KFLAG$ 


000A LF 


000A LINBUF 


2B00 


LOl 


2706 L02 


2714 MAP 


2496 


MDDEN 


2792 MTRK 


27 A4 NEXTLIN 


24C8 


NODISK 


284B NODISKN 


2852 NO DISK 


2654 


NUM 


0080 NXTDRV 


248F ONESIDE 


2608 


PAR ERR 


002C PPARN1 


264B PRINT 


2788 


PRMTBL$ 


2868 PRT 


278B RIGID 


2798 


SAVESP 


2413 SFLAG$ 


0012 SFLAG1 


266C 


SKIPMUL 


2592 SKPLP 


2432 STR 


0020 


TAB 


0009 TPL 


0008 VFLAG$ 


0015 


(30ABORT 


B8C9 @@ADTSK 


B95C (3(3BANK 


BE 74 


(3(3BKSP 


BB54 INBREAK 


BE8A (3(3CHNIO 


B8B4 


(3@CKBRKC 


BED8 (agCKDRV 


B9B0 (3(3CKEOF 


BB69 


(aiaCKTSK 


B947 @@ CLOSE 


BB3F (s>(3CLS 


BEC2 


@(3CMNDI 


B8F3 (30CMNDR 


B908 (3(3CTL 


B718 


W DATE 


B88A (a@DCSTAT 


B9EF @(3 DEBUG 


B932 


@@DECHEX 


BDF4 (9(3DIRRD 


BD61 (30DIRWR 


BD76 


@@DIV16 


BDDF @@DIV8 


BDCA (3(3DODIR 


B9C5 


(30DSP 


B6DC (90DSPLY 


B77C (TERROR 


B91D 


@(3EXIT 


B8DE (3@FEXT 


BCCE (3(3FLAGS 


BE5E 


(3@FNAME 


BCE3 (JHJIFSPEC 


BCB9 (3(3GATRD 


BD4C 


00GATWR 


BD8B (3(9GET 


B6F0 <3(3GTDCB 


BO0D 


00GTDCT 


BCF8 @@GTMOD 


BD22 (3(3HDFMT 


BA97 


GX3HEX16 


BE33 <a(3HEX8 


BE1E (30HEXDEC 


BE09 
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@@HIGH$ 


BE48 @@INIT 


@@KEY 


B6C8 @@KEYIN 


@@L0AD 


BC8F (a@L0C 


@(siL0GER 


B7B3 (a@L0G0T 


@@MUL16 


BDB5 @@MUL8 


m PAR AM 


B875 @@PAUSE 


WOSN 


BBBD SPRINT 


m PUT 


B704 @@RAMDIR 


@@RDSSC 


BD37 (SPREAD 


GGRENAM 


BAEB 00REW 


0GRPTSK 


B986 00RREAD 


@@RST0R 


BA19 @@RUN 


@@SEEK 


BA43 @@SEEKSC 


@@SLCT 


BA04 @@STEPI 


(a^VDCTL 


B84B @@VER 


0GWEOF 


BC65 @(<>WHERE 


@(aWRSEC 


BAAC @@WRSSC 



FREE,- LS-DOS 6.2 
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BB15 
B768 
BB7E 
B7C8 
BDA0 
B860 
B814 
B9DA 
BBD2 
BBE7 
BBFC 
BCA4 
BC26 
BA2E 
BC50 
B740 
BAC1 



@@KBD 

(30KLTSK 

(sXPLOF 

(a@MSG 

@@OPEN 

@(3PE0F 

@(j>PRT 

@@RDSEC 

00REMOV 

@(3RMTSK 

(30RSLCT 

@@RWRIT 

00 SKIP 

00TIME 

(80VRSEC 

00WRITE 

@@WRTRK 



B754 
B99B 
BB93 
B7FF 
BB2A 
BBA8 
B72C 
BA6D 
BB00 
B971 
BA58 
BC11 
BC3B 
B89F 
BA82 
BC7A 
BAD6 



2400 is the transfer address 
Total errors 
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Command: LIB, CLS, TOF 
Library: SYS6/SYS 
ISAM # : 19H, 24H, 25H 
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00100 ;LBLIB/ASM - LIB/CLS/TOF Commands 
00110 TITLE <LIB - LS-DOS 6.2> 



00120 *GET SVCMAC:3 
00010 ;SVCMAC/ASM - LS-DOS Version VI 
*LIST OFF 



;SVC Macro equivalents 





03900 *LIST 


ON 






00130 ; 






000 D 


00140 CR 


EQU 


13 


000A 


00150 LF 


EQU 


10 


1E00 


00160 OVLAY$ 
00170 ; 


EQU 


1E00H 


2400 


00180 
00190 ; 
00200 ; 


ORG 


2400 H 




00210 ; 


LIB command entry point 




00220 ; 






2400 C32024 


00230 LIB 
00240 ; 


JP 


JPLIB 




00250 ; 


CLS command entry point 




00260 ; 






2403 C31924 


00270 
00280 ; 


JP 


CLS 




00290 ; 


TOF command entry point 




00300 ; 








00310 TOF 






2406 0E0C 


00320 


LD 


C.12 


2408 


00330 


@(3PRT 




2408 3E06 


00001 


LD 


A,6 


240A EF 


00002 


RST 


40 


240B 210000 


00340 


LD 


HL,0 


240E C8 


00350 


RET 


Z 


240F 6F 


00360 TOFERR 


LD 


L,A 


2410 2600 


00370 


LD 


H,0 


2412 F6C0 


00380 


OR 


0C0H 


2414 4F 


00390 


LD 


C,A 


2415 


00400 


(TERROR 




2415 3E1A 


00003 


LD 


A, 26 


2417 EF 


00004 


RST 


40 


2418 C9 


00410 
00420 ; 


RET 




2419 3E69 


00430 CLS 


LD 


A, 105 


241 B EF 


00440 


RST 


40 


241C AF 


00450 


XOR 


A 


241D 6F 


00460 


LD 


L,A 


241E 67 


00470 


LD 


H,A 


241F C9 


00480 
00490 ; 


RET 




2420 0603 


00500 JPLIB 


LD 


B,3 


2422 C5 


00510 LIB0 


PUSH 


BC 


2423 


00520 


(a@DSPLY 


LIBMSG 




00005 


IFEQ 


01H,1 


2423 219024 


00006 


LD 


HL, LIBMSG 




00007 


ENDIF 




2426 3E0A 


00008 


LD 


A, 10 


2428 EF 


00009 


RST 


40 


2429 360A 


00530 
00540 


LD 


(HL).LF 


242B 2A021E 


00550 


LD 


HL,(OVLAY$+2) 


242E 0'602 


00560 LIB1 


LD 


B>2 


2430 CD8824 


00570 


CALL 


TAB 


2433 0E07 


00580 


LD 


C,7 



;Skip around to 'LIB' 



;Skip around to 'CLS' 



;Load TOF character 
;Do @PRT SVC 



; Ini t to no error 
; and back if ok 
; Error code to HL 

;Abbrev, return 



;@CLS svc 

; and do it 

;Ret without error 



; Ini t for 3 libraries 



;Put LF at start of 
; string for next time 
;PU table pointer 
;Dsply 1st command 
; tabbed in 2 spaces 
; Ini t for 7-across 
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2435 7E 

2436 B7 

2437 2837 

2439 E5 
243A 110700 
243D 19 
243E 3E80 

2440 BE 

2441 2804 

2443 Fl 

2444 23 

2445 18EE 



2447 
2448 
2449 
244A 
244A 
244 C 
244 D 

244 F 
2450 
2451 
2453 
2455 
2457 
2458 
2458 
245A 

245 B 

245 D 

245 F 
2462 
2463 
2464 
2465 
2466 
2467 
2469 
246B 
246B 
246D 

246 E 



El 
C5 
4E 

3E02 

EF 

0605 

23 

7E 

FE20 

2802 

EE20 

4F 

3E02 

EF 

10F2 

0605 

CD8824 

23 

23 

23 

CI 

0D 

20CC 

0E0D 

3E02 

EF 

18BE 



2470 0E0D 
2472 
2472 3E02 

2474 EF 

2475 219A24 

2478 34 

2479 3A3F24 
247C C620 
247E 323F24 

2481 CI 

2482 109E 
2484 210000 

2487 C9 

2488 0E20 
248A 



00590 LIB2 

00600 

00610 

00620 

00630 

00640 

00650 LIBX 

00660 

00670 

00680 

00690 

00700 

00710 ; 

00720 LIB2A 

00730 

00740 

00750 

00010 

00011 

00760 

00770 LIB3 

00780 

00790 



00810 
00820 
00830 
00012 
00013 
00840 
00850 
00860 
00870 



00890 



00910 
00920 
00930 



00950 
00014 
00015 
00960 
00970 ; 
00980 LIB4 



00016 
00017 



01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 



01100 TAB 
01110 



LD 

OR 

JR 

PUSH 

LD 

ADD 

LD 

CP 

JR 

POP 

INC 

JR 

POP 

PUSH 

LD 

@@DSP 

LD 

RST 

LD 

INC 

LD 

CP 

JR 

XOR 

LD 

(a@DSP 

LD 

RST 

DJNZ 

LD 

CALL 

INC 

INC 

INC 

POP 

DEC 

JR 

LD 

@(3DSP 

LD 

RST 

JR 

LD 

GH3DSP 

LD 

RST 

LD 

INC 

LD 

ADD 

LD 

POP 

DJNZ 

LD 

RET 

LD 
(a@DSP 



A,(HL) 

A 

Z,LIB4 

HL 

DE,7 

HL,DE 

A,80H 

(HL) 

Z,LIB2A 

AF 

HL 

LIB2 

HL 
BC 
C,(HL) 

A,2 

40 

B,5 

HL 

A,(HL) 
i i 

Z,$+4 

20H 

C,A 

A,2 

40 

LIB3 

B,5 

TAB 

HL 

HL 

HL 

BC 

C 

NZ,LIB2 

C,CR 

A,2 

40 

LIB1 

C,CR 

A,2 

40 

HL,LIBMSG+10 

(HL) 

A,(LIBX+1) 

A,20H 

(LIBX+1),A 

BC 

LIB0 

HL,0 



C 9 



;Jump on end 

; Index to lib # 

;Init for LIB-A 
;Is this command in 
; the current library? 
;Is not, skip past it 



Get 1st char of command 
Save reg C 
and display in upper 



;Write 6-char LIB word 
; Point to next char 

;If space, don't lower 
; case the char 

;Xfer to C & display it 



Move over 5 spaces 

for start of next command 
Bypass LIB parm vector 



Get across counter 

& decrement 
Loop on < 7 
Write a new line 



;Loop 

;End with new line 



;Bump to next lib 
;Advance RST code also 



;Recover Lib count 
;Loop until all done 
;Set no error 



;Display spaces, 
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248A 3E02 




00018 LD 


A,2 


248C EF 




00019 RST 


40 


248D 10F9 




01120 DJNZ 


TAB ; reg B has count 


248F C9 




01130 RET 
01140 ; 




2490 00 




01150 LIBMSG DB 


0,* Library <A>\CR 


4C 69 


62 


72 61 72 79 20 




3C 41 


3E 0D 




2400 




01160 END 


LIB 



Page 252 



The Source 


LIBRARY Files 


001 


0000 (3@2 


004 


0000 0MOD2 


CLS 


2419 CR 


LF 


000A LIB 


LIB1 


242E LIB2 


LIB3 


244F LIB4 


LIBX 


243E OVLAY$ 


TOF 


2406 TOFERR 


00ADTSK 


751F 00BANK 


INBREAK 


7A4D 00CHNIO 


00CKDRV 


7573 00CKEOF 


00CLOSE 


7702 00CLS 


00CMNDR 


74CB 00CTL 


00 DC STAT 


75B2 00DEBUG 


00DIRRD 


7924 00DIRWR 


@@DIV8 


798D 00DODIR 


00DSPLY 


733F (TERROR 


00FEXT 


7891 00FLAGS 


00FSPEC 


787C 00GATRD 


00GET 


72 B3 00GTDCB 


00GTMOD 


78 E5 00HDFMT 


00HEX8 


79E1 00HEXDEC 


@@INIT 


76D8 00KBD 


@@KEYIN 


732B 00KLTSK 


00LOC 


7741 00LOF 


00LOGOT 


738B 00MSG 


00MUL8 


7963 00OPEN 


00 PAUSE 


7423 00PEOF 


@(3 PR I NT 


73D7 00PRT 


00RAMDIR 


759D 00RDSEC 


00READ 


7795 00REMOV 


00REW 


77AA 00RMTSK 


00RREAD 


77BF 00RSLCT 


00RUN 


7867 00RWRIT 


00SEEKSC 


77E9 00SKIP 


@(3 STEP I 


75F1 00TIME 


00VER 


7813 00VRSEC 


00WHERE 


7303 00WRITE 


00WRSSC 


7684 00WRTRK 


2400 is the 


transfer address 


00000 Total 


errors 



LIB - LS-DOS 6.2 



0000 003 0000 

0000 0MOD4 FFFF 

000D JPLIB 2420 

2400 LIB0 2422 

2435 LIB2A 2447 

2470 LIBMSG 2490 

1E00 TAB 2488 

240F 00ABORT 748C 

7A37 00BKSP 7717 

7477 00CKBRKC 7A9B 

772C 00CKTSK 750A 

7A85 00CMNDI 74B6 

72 DB 00 DATE 744 D 

74F5 00DECHEX 79B7 

7939 00DIV16 79A2 

7588 00DSP 729F 

74E0 00EXIT 74A1 

7A21 00FNAME 78A6 

790F 00GATWR 794E 

78 D0 00GTDCT 78BB 

765A 00HEX16 79F6 

79CC 00HIGH$ 7A0B 

7317 00KEY 728B 

755 E 00LOAD 7852 

7756 00LOGER 7376 

73C2 00MUL16 7978 

76 ED 00 PAR AM 7438 

776B 00POSN 7780 

72EF 00PUT 72C7 

7630 00RDSSC 78FA 

76C3 00RENAM 76AE 

7534 00RPTSK 7549 

761 B 00RSTOR 75 DC 

77 D4 00 SEEK 7606 

77FE 00SLCT 75C7 

7462 00VDCTL 740E 

7645 00WEOF 7828 

783D 00WRSEC 766F 
7699 



Page 00004 



Page 253 



NOTES 



Page 254 



Command: LINK 
Library: SYS6/SYS 
ISAM # : 62H 



Page 255 



The Source 



LIBRARY Files 



LINK - LS-DOS 6.2 



Page 0! 



0000 



00100 ;LBLINK/ASM - LINK Command 

00110 TITLE <LINK - LS-DOS 6.2> 

00120 ; 

00130 CR EQU 13 

00140 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 





03900 *LIST 


ON 










00150 ; 










2400 


00160 


ORG 


2400H 








00170 ; 










2400 11AA24 


00180 LINK 


LD 


DE 9 FCB1 




;Fetch source spec 


2403 


00190 


@@FSPEC 








2403 3E4E 


00001 


LD 


A, 78 






2405 EF 


00002 


RST 


40 






2406 2010 


00200 


JR 


NZ 9 SPCERR1 




;Exit if bad name 


2408 1A 


00210 


LO 


A,(DE) 




;Must be a device 


2409 FE2A 


00220 


CP 


• *• 






240B 207E 


00230 
00240 ; 


JR 


NZ 9 SPCERR 








00250 ; 


Fetch the second de\ 


nee 


i spec 




00260 ; 










240D 11AD24 


00270 


LD 


DE 9 FCB2 




;Fetch destination spec 


2410 


00280 


@@FSPEC 








2410 3E4E 


00003 


LD 


A, 78 






2412 EF 


00004 


RST 


40 






2413 2076 


00290 


JR 


NZ S SPCERR 




;Exit if bad name 


2415 1A 


00300 


LD 


A 9 (DE) 






2416 FE2A 


00310 


CP 


i*> 




;Must also be a device 


2418 2071 


00320 SPCERR1 
00330 ; 


JR 


NZ S SPCERR 








00340 ; 


Make sure source <> 


des 


tination 




00350 ; 










241A 2AAB24 


00360 


LD 


HL 9 (FCBl+l) 




;If devices are the same 


241D ED5BAE24 


00370 


LD 


DE 9 (FCB2+1) 




; then quit 


2421 ED52 


00380 


SBC 


HL,DE 






2423 2866 


00390 
00400 ; 


JR 


Z 9 SPCERR 








00410 ; 


Locate 


a spare DCB 1 


For 


the link 




00420 ; 










2425 110000 


00430 


LD 


DE 5 






2428 


00440 


(a@GTDCB 








2428 3E52 


00005 


LD 


A,82 






242A EF 


00006 


RST 


40 






242B 3E21 


00450 


LD 


A 9 33 




; Init "No device space.. 


242D 2052 


00460 


JR 


NZ 9 I0ERR 






242F 224A24 


00470 
00480 ; 


LD 


(LINKDCB+1) 


9 HL 


;Save pointer 




00490 ; 


Locate 


destination 1 


DCB 


address 




00500 ; 










2432 ED5BAE24 


00510 


LD 


DE,(FCB2+1) 




;Grab DCB name 


2436 


00520 


@@GTDCB 






; Locate its address 


2436 3E52 


00007 


LD 


A, 82 






2438 EF 


00008 


RST 


40 






2439 2046 


00530 


JR 


NZ 9 I0ERR 




;Jump if not found 


243B 226824 


00540 
00550 ; 


LD 


(DSTDCB+DJ 


HL 


;Save destination 




00560 ; 


Locate 


source DCB address 




00570 ; 










243E ED5BAB24 


00580 


LD 


DE 9 (FCB1+1) 




;Get 1st DCB name 


2442 


00590 


@@GTDCB 






;Locate in device tables 
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2442 3E52 

2444 EF 

2445 203A 

2447 E5 

2448 F3 



2449 010000 
244C 2C 
244D 7E 
244E 71 
244F 4F 

2450 2C 

2451 7E 

2452 70 

2453 47 



00009 
00010 



2454 
2455 
2456 
2457 
2459 
245B 
245C 
245F 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
246A 
246B 
246C 
246D 
246E 
246F 
2472 
2473 
2473 
2475 
2476 
2478 
2479 
247A 
247B 
247C 
247D 
2480 



El 

7E 

F5 

E607 

F620 

77 

2A4A24 

Fl 

77 

2C 

71 

2C 

70 

2C 

2C 



71 

2C 

70 

2C 

E5 

114C2F 

14 

3E52 

EF 

28FA . 

El 

73 

2C 

72 

FB 

210000 

C9 



2481 6F 

2482 2600 
2484 F6C0 
2486 4F 



00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 



LD 

RST 

JR 

PUSH 

DI 



A,82 
40 

NZ,IOERR 
HL 



;Jump if not found 
;Save pointer we used 
;Can't interrupt 



Save the old device vector while stuffing new 



LINKDCB LD 
INC 
LD 
LD 
LD 
INC 
LD 
LD 
LD 



00790 



00810 
00820 
00830 



00850 
00860 
00870 
00880 
00890 



00910 
00920 
00930 



00950 
00960 
00970 



00990 
01000 
01010 
00011 
00012 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 



IOERR 



BC , $-$ 

L 

A,(HL) 

(HL),C 

C S A 

L 

A,(HL) 

(HL),B 

B,A 



P/u link DCB address 
Bump to vector 
Save what's there 
Stuff link address 
into DCB of source 
while saving old 
vector for storage 
(could be a FCB) 



Now set LINK bit and rest of LINK DCB block 



POP 

LD 

PUSH 

AND 

OR 

LD 

LD 

POP 

LD 

INC 

LD 

INC 

LD 

INC 

INC 
DSTDCB LD 

LD 

INC 

LD 

INC 

PUSH 

LD 
NAMLP INC 

@@GTDCB 

LD 

RST 

JR 

POP 

LD 

INC 

LD 

EI 

LD 

RET 



HL 

A 9 (HL) 

AF 

7 

20H 

(HL) S A 

HL,(LINKDCB+1) 

AF 

(HL),A 

L 

(HL) S C 

L 

(HL),B 

L 

L 

BC , $-$ 

(HL),C 

L 

(HL),B 

L 

HL 

DE,'/L' 

D 

A, 82 

40 

Z, NAMLP 

HL 

(HL),E 

L 

(HL),D 

HL 9 



Error processing 



LD 
LD 
OR 
LD 



Lj n 

H,0 

0C0H 

C,A 



;Rcvr ptr to source DCB+0 
;Init the LINK bit 
;Save old TYPE byte 
; Strip flags 
;Set Link bit 
;Show source is linked 
;P/u link DCB address 
;Rcvr source TYPE 
;New LINK TYPE 

;Stuff source vector 



; Bypass dest TYPE 

;P/u destination DCB addr 
; & stuff into link DCB 



;Save name field pointer 
; Let's find a link name 
;Bump "2nd" character 
;If we find this name 



; look for another 
;Get name pointer 
; & stuff in the 
; selected link name 

; Start tasks again 
;Show no error 



;Move error # into HL 
:Abbrev & return 
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2487 
2487 
2489 
248A 
248 B 
248E 



248E 
2490 
2491 
2494 
2495 



0003 
0020 
2400 



01170 TERROR 

00013 LD 

00014 RST 
01180 RET 
01190 SPCERR LD 
01200 (a@LOGOT 

00015 IFEQ 

00016 LD 

00017 ENDIF 

00018 LD 

00019 RST 
01210 LD 
01220 RET 

44 01230 SPCERR$ DB 

65 76 69 63 65 20 73 70 

65 63 20 72 65 71 75 69 

72 65 64 0D 

01240 FCB1 DS 3 

01250 FCB2 DS 32 

01260 END LII 



3E1A 
EF 
C9 
219524 



3E0C 
EF 

21FFFF 
C9 



;Bad devspec found 



A, 26 



HL 3 SPCERR$ 

00H S 1 
HL S 

A s 12 
40 
HL s - 1 



'Device spec required' S CR 



;Only 3-bytes needed 
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@@1 


0000 (3@2 


0000 003 


@@4 


0000 0MOD2 


0000 0MOD4 


CR 


000D DSTDCB 


2467 FCB1 


FCB2 


24AD IOERR 


2481 LINK 


LINKDCB 


2449 NAMLP 


2472 SPCERR 


SPCERR$ 


2495 SPCERR1 


2418 (3@ABORT 


(3@ADTSK 


770B (90BANK 


7C23 @@BKSP 


(30BREAK 


7C39 @(aCHNIO 


7663 (PGCKBRKC 


(3(3 CK DRV 


775F @@CKEOF 


7918 (30CKTSK 


00CLOSE 


78 EE (3(3 CLS 


7C71 (3@CMNDI 


@(3CMNDR 


76B7 @@CTL 


74C7 GGDATE 


@<3DCSTAT 


779E @@DEBUG 


76E1 @@DECHEX 


(3@DIRRD 


7B10 @<3DIRWR 


7B25 @@DIV16 


@@DIV8 


7B79 @@DODIR 


7774 (3@DSP 


(3(3DSPLY 


75 2 B (TERROR 


76CC @@EXIT 


(3@FEXT 


7A7D (3(3FLAGS 


7C0D @(3FNAME 


(3@FSPEC 


7A68 @@GATRD 


7AFB (3(3GATWR 


(30 GET 


749F @@GTDCB 


7ABC @(PGTDCT 


(30GTMOD 


7AD1 (30HDFMT 


7846 @@HEX16 


(3(3HEX8 


7BCD (30HEXDEC 


7BB8 (3@HIGH$ 


@@INIT 


78C4 (3@KBD 


7503 (3(3KEY 


@@KEYIN 


7517 @@KLTSK 


774A (3(3|_OAD 


(3(3[_OC 


792D @@LOF 


7942 @@LOGER 


@@L0G0T 


7577 (3(3MSG 


75AE @@MUL16 


(3@MUL8 


7B4F @@OPEN 


78 D9 (3(3 PAR AM 


(3(3 PAUSE 


760F (3@PE0F 


7957 @(3POSN 


SPRINT 


75C3 (a(apRT 


74 DB (3(3 PUT 


@(3RAMDIR 


7789 @@RDSEC 


781C (3@RDSSC 


(SPREAD 


7981 (a@REMOV 


78AF @(3RENAM 


(3(3REW 


7996 <3(3RMTSK 


7720 @@RPTSK 


(3@RREAD 


79AB @(3RSLCT 


7807 (3(3RSTOR 


(3(3 RUN 


7A53 @(3RWRIT 


79C0 @(3SEEK 


00SEEKSC 


79 D5 @@SKIP 


79EA @(3SLCT 


(3(3 STEP I 


77DD @@TIME 


764E (3@VDCTL 


(30VER 


79FF @(aVRSEC 


7831@@WE0F 


(90WHERE 


74 EF @@WRITE 


7A29 @@WRSEC 


(3(3WRSSC 


7870 (jKjiWRTRK 


7885 


2400 is the 


transfer address 




00000 Total 


errors 
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0000 

FFFF 

24AA 

2400 

248B 

7678 

7903 

7C87 

76F6 

76A2 

7639 

7BA3 

7B8E 

748B 

768 D 

7A92 

7B3A 

7AA7 

7BE2 

7BF7 

7477 

7A3E 

7562 

7B64 

7624 

796C 

74B3 

7AE6 

789A 

7735 

77C8 

77F2 

77B3 

75FA 

7A14 

785B 
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NOTES: 
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00100 ;LBLIST/ASM - List Command 

00110 TITLE <LIST - LS-DOS 6.2> 

00120 ; 

00130 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 





03900 *LIST 


ON 




0000 


00140 *GET 


VALUES:3 


;Misc. equates 




03920 ;VALUES/ASM - Version 6 






03930 *LIST OFF 






04200 *LIST i 


ON 






00150 ; 






0006 


00160 @PRT 


EQU 6 




0002 


00170 @DSP 
00180 ; 


EQU 2 




2400 


00190 
00200 ; 
00210 START 


ORG 2400H 




2400 


00220 


@(aCKBRKC 


;Check break 


2400 3E6A 


00001 


LD A, 106 




2402 EF 


00002 


RST 40 




2403 2804 


00230 


JR Z,LISTA 


;Continue if not 


2405 21FFFF 


00240 


LD HL.-l 


; else abort 


2408 C9 


00250 
00260 ; 


RET 






00270 ; 


<BREAK> not hit, Execute Module 




00280 ; 








00290 LISTA 






2409 ED731124 


[ 00300 


LD (SAVESP+1) S SP 


;Save SP 


240D CD2D24 


00310 


CALL LIST 


;List a file 


2410 310000 


00320 SAVESP 


LD SP,$-$ 


;P/u SP address 


2413 


00330 


@@CKBRKC 


;Reset if user pressed 


2413 3E6A 


00003 


LD A, 106 




2415 EF 


00004 


RST 40 




2416 C9 


00340 
00350 ; 


RET 


;Abort 




00360 ; 


I/O Error Processing - 


Display & Abort 




00370 ; 






2417 2600 


00380 IOERR 


LD H s 


;Set HL = Error # 


2419 6F 


00390 


LD L,A 


s 


241A F6C0 


00400 


OR 0C0H 


; Short error message 


241C 4F 


00410 


LD C,A 


; Stuff error # in C 


241D 


00420 


(TERROR 


; Display error 


241D 3E1A 


00005 


LD A 9 26 




241F EF 


00006 


RST 40 




2420 18EE 


00430 
00440 ; 


JR SAVESP 


;Abort 




00450 ; 


Internal Error Message 


Display Routine 




00460 ; 






2422 210727 


00470 SPCREQ 


LD HL S SPCREQ$ 


;File spec Required 


2425 


00480 


@@LOGOT 


;Log error message 




00007 


IFEQ 00H.1 






00008 


LD HL, 






00009 


ENDIF 




2425 3E0C 


00010 


LD A s 12 




2427 EF 


00011 


RST 40 




2428 21FFFF 


00490 ABORT 


LD HL.-l 


; Internal error = -1 


242B 18E3 


00500 
00510 ; 


JR SAVESP 


;P/u stack & return 




00520 ; 


LIST - List a file in 1 


hex or ASCII 




00530 ; 
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242D CD9E26 



2430 
2431 
2432 
2434 
2436 
2438 
243A 
243B 



E5 

7E 

FE28 

2807 

FE0E 

380C 

23 

18F4 



243D 113227 
2440 
2440 3E11 

2442 EF 

2443 C21724 
2446 El 



2447 7E 

2448 23 

2449 FE20 
244B 28FA 
244D 2B 



244E 118527 
2451 
2451 3E4E 

2453 EF 

2454 C22224 



2457 1A 

2458 FE2A 
245A CA2224 



245D EB 
245E 11A527 
2461 012000 

2464 E5 

2465 EDB0 
2467 Dl 



2468 212F27 
246B 

246B 3E4F 
246D EF 



LIBRARY Files 

CALL 



00540 LIST 
00550 ; 
00560 ; 
00570 ; 
00580 

00590 FPLP 
00600 
00610 
00620 
00630 
00640 
00650 
00660 ; 



LIST - LS-DOS 6.2 Page 00002 

RESKFL ;Reset pause, & enter 
Find parameter entries if existent 



PUSH 

LD 

CP 

JR 

CP 

JR 

INC 

JR 



HL 
A,(HL) 

Z 9 GETPRM 

CR+1 

C S RESTPTR 

HL 

FPLP 



;Save command ptr 
;P/u character 
; Parameter (s) ? 
;Yes - go get 'em 
;End of line ? 
;Yes - restore ptr 
;No - bump til end 
;Do til eol or "(" 



Process any parameters entered 
00680 ; 

00690 GETPRM LD DE S PRMTBL$ ; DE => Parameter table 

00700 WAR AM :@PARAM 

00012 LD A s 17 

00013 RST 40 

00710 JP NZ s I0ERR ;NZ - "Parameter Error" 
00720 RESTPTR POP HL Recover ptr 

00730 ; 

Skip command line blanks 



00740 



00760 IGSPC 
00770 
00780 
00790 
00800 
00810 ; 
00820 ; 
00830 : 



LD 

INC 

CP 

JR 

DEC 



A S (HL) 
HL 

I ! 

Z s IGSPC 
HL 



;P/u character 

;Bump ptr 

; Space ? 

;Yes - ignore them 

;HL => First non-space 



Check if the filespec is legal in format 



00850 
00014 
00015 
00860 
00870 
00880 
00890 



LD DE S FCB1 

@@FSPEC 

LD A, 78 

RST 40 

JP NZ.SPCREQ 



; Fetch file spec 
;Filespec legal ? 



00910 
00920 
00930 
00940 
00950 
00960 



;No - filespec required 
If this is a device - don't LIST 

;Is this a device ? 
Z,SPCREQ ;Yes - Filespec req 
Save the original filespec 



LD 
CP 
JP 



A S (DE) 
• *■ 



00990 



01010 
01020 
01030 
01040 
01050 
01060 
00016 
00017 
01070 
01080 



EX 

LD 

LD 

PUSH 

LDIR 

POP 



DE,HL 
DE,FCB2 
BC,32 
HL 

DE 



;HL => Source FCB 

;DE => Duplicate FCB 

;32 bytes tm xfer 

;Save source ptr 

;Xfer 

;DE => Source FCB 



Stuff default extension of /TXT to source 



LD HL,TXTEXT 

@@FEXT 

LD A, 79 

RST 40 



;HL => TXT 

; Stuff TXT if no ext 



Open the file with LRL of 256 
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01090 


» 








246 E 0600 


01100 




LD 


B,0 


;Set LRL (B) = 256 


2470 CDF 926 


01110 




CALL 


OPEN 


;Open file with LRL=256 


2473 2816 


01120 
01130 




JR 


Z, INITLRL 


;Good - LIST it 




01140 




Error 


- Was it a "File 


not Found" Error ? 




01150 










2475 FE18 


01160 




CP 


24 


;"File not Found" ? 


2477 C21724 


01170 
01180 


9 


JP 


NZ,IOERR 


;No - I/O Error 




01190 


9 


OPEN 


original filespec 


instead of TXT 




01200 


9 








247A 0E20 


01210 




LD 


C 9 32 


;BC = 32 bytes to xfer 


247C D5 


01220 




PUSH 


DE 


;DE => FCB1 


247D E5 


01230 




PUSH 


HL 


;Save I/O buff ptr 


247E 21A527 


01240 




LD 


HL,FCB2 


;HL => Filespec 


2481 EDB0 


01250 




LDIR 




;Xfer original filespec 


2483 El 


01260 




POP 


HL 


;HL => I/O buffer 


2484 Dl 


01270 
01280 


S 


POP 


DE 


;DE => unopen FCB 




01290 


9 


Open 


Original Filespec 


without extension 




01300 


9 








2485 CDF 926 


01310 




CALL 


OPEN 


;0pen the file 


2488 C21724 


01320 
01330 


» 


JP 


NZ s IOERR 


;I/0 error - abort 




01340 


9 


Pick 


up the DEC from the FCB 




01350 


9 








248B D5 


01360 


INITLRL 


PUSH 


DE 


;Xfer fcb to IX 


248C DDE1 


01370 




POP 


IX 




248E DD4607 


01380 




LD 


B s (IX+7) 


;P/u DEC 


2491 DD4E06 


01390 




LD 


C s (IX+6) 


; & drive # 


2494 


01400 




@@DIRRD 


;Read in directory record 


2494 3E57 


00018 




LD 


A, 87 




2496 EF 


00019 
01410 


9 


RST 


40 






01420 


» 


Was the LRL parm speci 


fied ? 




01430 


9 








2497 3A6427 


01440 




LD 


A,(LRESP) 


;P/u response 


249A B7 


01450 




OR 


A 




249 B 2008 


01460 
01470 


9 


JR 


NZ, SKIPLRL 


;Go if entered 




01480 


9 


No LRL parm, get from 


directory record 




01490 


9 








249D 7D 


01500 




LD 


A S L 


;Position to DIR+4 


249E C604 


01510 




ADD 


A,4 




24A0 6F 


01520 
01530 


9 


LD 


L 9 A 


;HL => LRL byte (DIR+4) 




01540 


9 


Pick 


up LRL & stuff into LRL parameter 




01550 


9 








24A1 7E 


01560 




LD 


A,(HL) 


;P/u LRL 


24A2 329E25 


01570 
01580 


9 


LD 


(LPARM+1) S A 


;Set dir LRL into parm 




01590 


9 


Pick 


up LRL & stuff into FCB 




01600 


9 








24A5 3A9E25 


01610 


SKIPLRL 


LD 


A,(LPARM+1) 


;P/u possible new LRL 


24A8 DD7709 


01620 




LD 


(IX+9),A 


;Put into FCB 


24AB DDCB01FE 


01630 
01640 


9 


SET 


7,(IX+1) 


;Mark for byte I/O 




01650 


9 


Check 


k if TAB (T) parm 


is flag or numeric 




01660 


9 








24AF 3A7027 


01670 




LD 


A S (TRESP) 


;P/u response byte 
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24B2 E640 
24B4 3A3425 
24B7 2805 



24B9 3C 
24BA 2002 
24 BC 3E08 



24BE 323E25 
24C1 3D 
24C2 FE20 
24C4 3E2C 
24C6 D21724 



24C9 010000 
24 CC 78 
24CD Bl 
24CE 2805 



24 D0 3E06 
24D2 325B26 



24 D5 010000 
24 D8 78 
24D9 Bl 
24DA C27E25 



24 DD 327427 

24E0 010100 
24E3 0B 
24 E4 78 
24E5 Bl 
24E6 2812 
24E8 118527 



24 EB 

24EB 3E03 
24ED EF 
24EE C21724 
24F1 FE0D 
24F3 20F6 



24F5 0B 
24F6 78 



01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 NOTFLG 

01810 

01820 

01830 

01840 

01850 ; 

01860 ; 

01870 ; 

01880 PPARM 

01890 

01900 

01910 

01920 ; 

01930 ; 

01940 ; 

01950 

01960 

01970 ; 

01980 ; 

01990 ; 

02000 HPARM 

02010 

02020 

02030 

02040 ; 

02050 ; 

02060 ; 

02070 

02080 ; 

02090 LINPRM 

02100 

02110 

02120 

02130 

02140 

02150 ; 

02160 ; 

02170 ; 

02180 FND1ST 

00020 

00021 

02190 

02200 

02210 

02220 ; 

02230 ; 

02240 ; 

02250 

02260 



AND 40H 

LD A,(TPARM+1) 

JR Z 9 NOTFLG 



Flag response ? 
P/u value 
No - numeric 



Flag Response - Is it ON (T=8) or OFF (T=l) 
A 



INC 

JR NZ, NOTFLG 

LD A, 8 



;Tab=OFF (NZ) or ON (Z) ? 
;Tab = OFF — > TABEXP=1 
;Tab = ON — > TABEXP=8 



P/u TAB (T) parm value & stuff into routine 



LD 
DEC 
CP 
LD 



(TABEXP+1),A 

A 

32 

A, PAR ERR 



; Stuff away 

;Range can 

;Only be between 1-32. 

;Greater - Parm Error 



JP NC.IOERR 

Was the P (print) parameter entered ? 



LD BC 9 $-$ 

LD A,B 

OR C 

JR Z, HPARM 



;P/u P parameter 
;Was it specified ? 



;No - use @DSP 

Stuff @PRT SVC # in output routine 

LD A 9 @PRT ;@PRT SVC Number 
LD (PUT0UT1+1) 9 A Overwrite @DSP 



Hex Parameter Entered ? 

LD BC 9 $-$ 

LD A,B 

OR C 

JP NZ 9 RPARM 



;P/u Hex parm 
; Entered ? 



;Yes - check out Records 
Routine to LIST a file in ASCII 
LD (BYTCTR),A ;Init counter to 



LD 

DEC 

LD 

OR 

JR 

LD 



BC,1 

BC 

A,B 

C 

Z 9 BGNLIN 

DE 9 FCB1 



;P/u start line parm 
;Count down for start 
;Ready to list ? 

;Go list/print if ready 
;DE => FCB 



Ignore all lines until specified start posn 

;Get a character 



@@GET 

LD A 9 3 

RST 40 

JP NZ 9 I0ERR 

CP CR 

JR NZ 5 FND1ST 



; Error - abort 
;End of line? 
;Keep reading 



Finished with line - decrement LINE count 



DEC 
LD 



BC 
A 9 B 



;Dec line counter 
;Finished 
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24F7 Bl 


02270 


OR 


C 


;Ignoring lines ? 


24F8 20F1 


02280 
02290 ; 


JR 


NZ S FND1ST 


;No - loop until LINES=0 




02300 ; 


Start 


LISTing File 






02310 ; 








24FA 2AE124 


02320 B6NLIN 


LD 


HL,(LINPRM+1) 


;P/u original line # 


24FD 011A27 


02330 


LD 


BC s VARDOT 


;Convert to Decimal ASCII 


2500 CDB226 


02340 
02350 ; 


CALL 


CVTDEC 


; and stuff into string 




02360 ; 


Read • 


in a character fr 


om the file 




02370 ; 








2503 118527 


02380 GETCHR 


LD 


DE S FCB1 


;DE => FCB 


2506 


02390 


@(9 GET 




;Get a byte 


2506 3E03 


00022 


LD 


A s 3 




2508 EF 


00023 


RST 


40 




2509 205 D 


02400 


JR 


NZ,GOTERR 


;Go if read error 


250B 322125 


02410 
02420 ; 


LD 


(PUCHAR+1) 9 A 


;Hang on to char 




02430 ; 


Test i 


if NUM parameter 


was entered 




02440 ; 








250E 010000 


02450 NPARM 


LD 


BC 5 $-o> 


;P/u N parameter 


2511 78 


02460 


LD 


A S B 


;Was it entered ? 


2512 Bl 


02470 


OR 


C 




2513 280B 


02480 
02490 ; 


JR 


Z S PUCHAR 


;No - don't print line # 




02500 ; 


N parn 


i entered - print 


line # & Increment it 




02510 ; 








2515 211A27 


02520 


LD 


HL s VARDOT 


;HL => Buffer with line # 


2518 E5 


02530 


PUSH 


HL 


;Save ptr 


2519 CD7926 


02540 


CALL 


PUTLINE 


; Output line @ HL 


251C El 


02550 


POP 


HL 


; Res tore line # ptr 


251D CDE826 


02560 
02570 ; 


CALL 


INCNUM 


; Increment line # 




02580 ; 


Pick u 


ip character and 


Check if high bit set 




02590 ; 








2520 3E00 


02600 PUCHAR 


LD 


A,$-$ 


;P/u character 


2522 07 


02610 DLOOP 
02620 ; 


RLCA 




;Get HB into Carry flag 




02630 ; 


Reset 


High bit unless 


A8 parameter entered 




02640 ; 








2523 110000 


02650 A8PARM 


LD 


DE s $-$ 


;P/u A8 parm 


2526 14 


02660 


INC 


D 


;Was it entered ? 


2527 15 


02670 


DEC 


D 




2528 2003 


02680 


JR 


NZ 9 A8BIT 


;Yes - don't change byte 


252A CB3F 


02690 


SRL 


A 


;Reset Bit 7 


252C IE 


02700 


DB 


1EH 


;LD E,nn instruction 


252D 0F 


02710 A8BIT 
02720 ; 


RRCA 




;Use all 8 bits 




02730 ; 


Is the 


character a Tab 


? 




02740 ; 








252E F5 


02750 


PUSH 


AF 


;Save C flag 


252F FE09 


02760 


CP 


TAB 


;Was it a tab ? 


2531 201B 


02770 
02780 ; 


JR 


NZ,NOTTAB 


;No - don't check TAB 




02790 ; 


Charac 


ter is a Tab - Was T=N specified ? 




02800 ; 








2533 110800 


02810 TPARM 


LD 


DE,0008H 


;P/u TAB parm (Default=8) 


2536 1C 


02820 


INC 


E 


;TAB = N ? 


2537 ID 


02830 


DEC 


E 




2538 2814 


02840 
02850 ; 


JR 


Z.NOTTAB 


;Yes - don't expand 
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02860 ; 


P/u CO 


lumn # & calculate # of spaces to pad 




02870 ; 








253A 3A7427 


02880 


LD 


A,(BYTCTR) 


;P/u column number 


253D 0E08 


02890 TABEXP 


LD 


C,8 


;P/u TAB expansion # 


253F 91 


02900 CLOOP 


SUB 


C 




2540 30FD 


02910 


JR 


NC, CLOOP 




2542 ED44 


02920 
02930 ; 


NEG 




; Subtract A from Col # 




02940 ; 
02950 ; 
02960 


Output 


A blank spaces 


for tab expansion 


2544 47 


LD 


B,A 


;Put # spaces in B 


2545 3E20 


02970 TP1 


LD 


A,' ' 


;Pad with a space 


2547 CD5826 


02980 


CALL 


PUTOUT 


;Output character 


254A 10F9 


02990 


DJNZ 


TP1 


;B spaces to output 


254C 1803 


03000 
03010 ; 


JR 


WASTAB 


; Check byte counter 




03020 ; 


Charac 


ter was not a tab, display it 




03030 ; 








254E CD5826 


03040 NOTTAB 


CALL 


PUTOUT 


;Print the character 


2551 3A7427 


03050 WASTAB 


LD 


A,(BYTCTR) 


;P/u byte counter 


2554 B7 


03060 


OR 


A 


;If C/R printed 


2555 CC8626 


03070 
03080 ; 


CALL 


Z,CKPAWS 


;Then check for <PAUSE> 




03090 ; 


Check 


for <PAUSE> if \ 


n* bit set on character 




03100 ; 








2558 Fl 


03110 


POP 


AF 


;Get back char 


2559 DC8626 


03120 
03130 ; 


CALL 


C.CKPAWS 


;If high bit was set 




03140 ; 
03150 ; 
03160 


If character = C/R the 


m read in another line 


255C FE0D 


CP 


CR 


;Was it C/R ? 


255E 28A3 


03170 
03180 ; 


JR 


Z,GETCHR 


;Yes - get new line 




03190 ; 


Get another byte from 


file 




03200 ; 








2560 118527 


03210 


LD 


DE,FCB1 


;DE => FCB 


2563 


03220 


@(3GET 




;Get a byte 


2563 3E03 


00024 


LD 


A s 3 




2565 EF 


00025 


RST 


40 




2566 28BA 


03230 
03240 ; 


JR 


Z,DLOOP 


;Good - check character 




03250 ; 


I/O Error on @GET - Output a Carriage Return 




03260 ; 








2568 F5 


03270 GOTERR 


PUSH 


AF 


;Save error code 


2569 3E0D 


03280 


LD 


A,CR 


;Write end of line 


256B CD5826 


03290 


CALL 


PUTOUT 




256E Fl 


03300 
03310 ; 


POP 


AF 


;Rcvr error code 




03320 ; 


If End 


of File Error - 


Exit normally 




03330 ; 








256F 210000 


03340 


LD 


HL,0 


;Set HL = (normal exit) 


2572 FE1C 


03350 


CP 


1CH 


;EOF? 


2574 CA1024 


03360 GTBK 


JP 


Z,SAVESP 


;Exit if so 


2577 FE1D 


03370 


CP 


1DH 


;NRN > ERN? 


2579 28F9 


03380 


JR 


Z,GTBK 


;Yes - leave 


257B C31724 


03390 
03400 ; 


JP 


IOERR 


;0ther - Abort 




03410 ; 


LIST a 


fi le in HEX format 




03420 ; 








257E 010000 


03430 RPARM 


LD 


BC s $-$ 


;P/u starting Record # 


2581 118527 


03440 


LD 


DE S FCB1 


;DE => FCB 
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2584 


03450 




mPOSH 


; Position to Record BC 


2584 3E42 


00026 




LD A 5 66 




2586 EF 


00027 




RST 40 




2587 C21724 


03460 
03470 


» 


JP NZ,IOERR 


;Abort on position error 




03480 


9 


Reset byte counter to 


Zero 




03490 


9 






258A AF 


03500 


DOHEX 


XOR A 


; Ini t byte counter to 


258B 32A225 


03510 
03520 


» 


LD (DOHEXl+l),A 






03530 


s 


Stuff Record Number in Line Number buffer 




03540 


9 






258E ED5B7F25 


03550 




LD DE,(RPARM+1) 


;P/u Record Number 


2592 212327 


03560 




LD HL 9 VARCLN+1 


;HL => Hex ASCII dest 


2595 


03570 




(9(9HEX16 


;Convert DE to ASCII 


2595 3E63 


00028 




LD A, 99 




2597 EF 


00029 
03580 


S 


RST 40 






03590 


9 


Bump Record Number & 


stuff into RPARM 




03600 


S 






2598 13 


03610 




INC DE 


;Bump by one 


2599 ED537F25 


03620 
03630 


S 


LD (RPARM+1),DE 


; & store for next time 


259D 010000 


03640 
03650 


LPARM 

9 


LD BC,$-$ 


;P/u LRL 




03660 


9 


Convert Byte counter 


to Hex & stuff in buff 




03670 


9 






25A0 C5 


03680 


DISBYTE 


PUSH BC 


;Save bytes left in Rec 


25A1 0E00 


03690 


DOHEX1 


LD C,$-$ 


;P/u byte counter 


25A3 212827 


03700 




LD HL,VAREQU 


;HL => Hex ASCII dest 


25A6 


03710 




(3@HEX8 


;Cvrt C to ASCII @ HL 


25A6 3E62 


00030 




LD A, 98 




25A8 EF 


00031 




RST 40 




25A9 CI 


03720 
03730 


9 


POP BC 


;BC = Bytes left in Rec 




03740 


9 


Display Record Number 


/Starting byte string 




03750 


9 






25AA 212227 


03760 




LD HL S VARCLN 


;HL => Display buffer 


25AD CD7926 


03770 
03780 


. 


CALL PUTLINE 


, Display Rec # byte 




03790 


9 


P/u byte counter & add 16 (BPL) & stuff away 




03800 


9 






25B0 3AA225 


03810 




LD A 9 (D0HEX1+1) 


;P/u byte counter 


25B3 0610 


03820 




LD B,16 


;Set B = 16 bytes 


25B5 80 


03830 




ADD A,B 


;Add 16 to byte count 


25B6 32A225 


03840 
03850 




LD (DOHEXl+l),A 


; & stuff into LD C inst 


25B9 217527 


03860 
03870 




LD HL,LINBUF 


;HL => Line buffer 




03880 




Get a byte from the F 


ile 




03890 


9 






25BC 118527 


03900 


DOHEX2 


LD DE,FCB1 


;DE => FCB 


25 BF 


03910 




GKdGET 


;Get a byte 


25 BF 3E03 


00032 




LD A, 3 




25 CI EF 


00033 




RST 40 




25C2 280B 


03920 
03930 


9 


JR Z,D0HEX4 


;Good - stuff byte 




03940 


9 


End of File Error ? 






03950 


9 






25C4 F5 


03960 




PUSH AF 


;Save error code 


25C5 FE1C 


03970 




CP 1CH 


;EOF? 
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25C7 2805 


03980 
03990 




JR Z.DOHEX3 


;Yes - Okay 




04000 




Past End of File Error ? 




04010 








25C9 FE1D 


04020 




CP 1DH 


;NRN>ERN? 


25CB C21724 


04030 
04040 




JP NZ,IOERR 


;Another error 




04050 




Recover Flags & check 


type of Error 




04060 








25CE Fl 


04070 


D0HEX3 


POP AF 


;Recover error code 


25CF 2018 


04080 
04090 


D0HEX4 

9 


JR NZ,D0HEX5 


; Bypass if at end of file 




04100 


S 


Stuff Character in buffer & bump 




04110 


9 






25D1 77 


04120 




LD (HL) S A 


; Stuff byte in buffer 


25D2 23 


04130 
04140 


9 


INC HL 


;Bump ptr 




04150 


9 


Output byte in Hex & 


follow with a space 




04160 


9 






25D3 CD4726 


04170 




CALL CVTHEX 


;0utput the byte in hex 


25D6 3E20 


04180 




LD A,' ' 


; followed by a space 


25D8 CD5826 


04190 
04200 


» 


CALL PUTOUT 






04210 


9 


Output an extra space 


if halfway in line 




04220 


9 






25 DB 78 


04230 




LD A 9 B 


;P/u byte counter 


25DC FE09 


04240 




CP 9 


; Halfway yet? 


25DE CC7526 


04250 
04260 


S 


CALL Z.WR1SPA 


;Yes - display space 




04270 


9 


Dec Chars/Line & # of 


chars left in Rec 




04280 


9 






25E1 05 


04290 




DEC B 


;Count down 


25E2 0D 


04300 




DEC C 


;Count down the LRL 


25E3 2804 


04310 
04320 


9 


JR Z,DOHEX5 


;Done - get next record 




04330 


9 


Finished with Line ? 






04340 


9 






25 E5 78 


04350 




LD A,B 


;Done with line ? 


25E6 B7 


04360 




OR A 




25E7 20D3 


04370 
04380 


9 


JR NZ 9 D0HEX2 


;No - do til 16 chars 




04390 


9 


Finished with Line or 


Logical Record 




04400 


9 






25E9 F5 


04410 


D0HEX5 


PUSH AF 


;End the line 


25 EA 78 


04420 




LD A,B 


;P/u byte counter 


25EB FE10 


04430 




CP 16 


;Done with this line ? 


25 ED 2826 


04440 
04450 


9 


JR Z,PRTLIN2 


;Yes - get another record 




04460 


9 


Display ASCII equival 


snt of line 




04470 


9 






25EF C5 


04480 
04490 


PRTLIN 


PUSH BC 


;Save counters 




04500 




Multiply # of chars not printed by three 




04510 








25F0 78 


04520 




LD A,B 


;P/u # chars not printed 


25F1 87 


04530 




ADD A,A 


;X 2 


25F2 80 


04540 




ADD A,B 


;X 3 


25F3 47 


04550 
04560 


9 


LD B,A 


; Stuff in B 




04570 


9 


Add two extra spaces 


if more than halfway 




04580 


9 
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25F4 FE1B 


04590 


CP 


27 


;Need extra space if 


25F6 3F 


04600 


CCF 




;Not halfway 


25F7 3E01 


04610 


LD 


A,l 


;Plus 1 more space 


25F9 88 


04620 
04630 


ADC 


A,B 


;Carry set for 3 spaces 




04640 


; Positi< 


Dn to ASCII por 


tion of line 




04650 








25FA 47 


04660 


LD 


B,A 


;Set loop counter 


25FB CD6F26 


04670 


CALL 


WRSPA 


;Output B spaces 


25FE CI 


04680 
04690 


POP 


BC 


;Recover the counters 




04700 


, Calculate # of characters to print 




04710 , 








25FF 3E10 


04720 


LD 


A, 16 


;Get # to print 


2601 90 


04730 


SUB 


B 




2602 47 


04740 


LD 


B,A 


;Xfer to B for DJNZ 


2603 217527 


04750 


LD 


HL,LINBUF 


;HL => Line buffer 


2606 C5 


04760 


PUSH 


BC 


;Save C 


2607 0E08 


04770 
04780 , 


LD 


C,8 


; Space after 8 




04790 , 


Display ASCII part of 


line 




04800 , 








2609 7E 


04810 F 


>RTLIN1 LD 


A,(HL) 


;P/u character 


260A 23 


04820 


INC 


HL 


;Bump ptr 


260B CD3B26 


04830 


CALL 


CVTDOT 


;Output each char 


260E 0D 


04840 


DEC 


C 


; Space yet ? 


260F CC7526 


04850 


CALL 


Z,WR1SPA 


;Yes - display space 


2612 10F5 


04860 


DJNZ 


PRTLIN1 


;0utput line 


2614 CI 


04870 
04880 ; 


POP 


BC 


;Recover C 




04890 ; 


End of 


Line - Output 


C/R & check for EOF 




04900 ; 








2615 3E0D 


04910 F 


>RTLIN2 LD 


A S CR 


;Output C/R 


2617 CD5826 


04920 


CALL 


PUTOUT 




261A Fl 


04930 


POP 


AF 


;Recover @GET ret code 


261B 3E1C 


04940 


LD 


A,1CH 


;Init to EOF 


261D C26825 


04950 
04960 ; 


JP 


NZ 3 GOTERR 


;End of fi le - Abort 


2620 CD8626 


04970 
04980 ; 


CALL 


CKPAWS 


;<PAUSE> or <BREAK> ? 




04990 ; 


Are we 


done with the 


Record ? 




05000 ; 








2623 79 


05010 


LD 


A,C 


;P/u # of bytes left 


2624 B7 


05020 


OR 


A 


;Finished ? 


2625 C2A025 


05030 
05040 ; 


JP 


NZ,DISBYTE 


;No - get next line 




05050 ; 


Finished with record 


- Output space & C/R 




05060 ; 








2628 3E20 


05070 


LD 


"s 


; Space 


262A CD5826 


05080 


CALL 


PUTOUT 




262D 3E0D 


05090 


LD 


A,CR 


;Carriage Return 


262F CD5826 


05100 
05110 ; 


CALL 


PUTOUT 






05120 ; 


Increment Line Number 






05130 ; 








2632 212227 


05140 


. LD 


HL.VARCLN 


;HL => Line Number 


2635 CDE826 


05150 


CALL 


INCNUM 


; Increment 


2638 C38A25 


05160 
05170 ; 


JP 


DOHEX 


;Loop for more 




05180 ; 


CVTDOT 


- Output chars 


& convert non-printables 




05190 ; 
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263B FE20 


05200 CVTDOT 


CP 


• • 


; Don't print controls 


263D 3804 


05210 


JR 


CCVTDOT1 




263F FE7F 


05220 


CP 


7FH 


;Print X'20' thru X'7E' 


2641 3815 


05230 


JR 


C, PUTOUT 




2643 3E2E 


05240 CVTDOT] 


. LD 


n s • 


;Otherwise change to ".' 


2645 1811 


05250 
05260 ; 


JR 


PUTOUT 






05270 ; 


CVTHEX 


- Convert A to 


Hex ASCII & Output it 




05280 ; 








2647 F5 


05290 CVTHEX 


PUSH 


AF 


;Save Lower digit 


2648 0F 


05300 


RRCA 




;Get most si g nibble 


2649 0F 


05310 


RRCA 






264A 0F 


05320 


RRCA 






264B 0F 


05330 


RRCA 






264C CD5026 


05340 


CALL 


CVTH1 


;Output upper nibble 


264F Fl 


05350 
05360 ; 


POP 


AF 


;Recover # 


2650 E60F 


05370 CVTH1 


AND 


0FH 


;Mask off upper nibble 


2652 C690 


05380 


ADD 


A,90H 


; Convert to Hex digit 


2654 27 


05390 


DAA 






2655 CE40 


05400 


ADC 


A,40H 




2657 27 


05410 
05420 ; 


DAA 




;Fal 1 into Output byte 




05430 ; 


PUTOUT 


- Put out a byt 


e to *DO/*PR 




05440 ; 








2658 C5 


05450 PUTOUT 


PUSH 


BC 


;Save BC 


2659 4F 


05460 
05470 ; 


LD 


C,A 


;Xfer char to C 




05480 ; 


Output 


byte to *DO or 


*PR 




05490 ; 








265A 3E02 


05500 PUTOUT1 


LD 


A S @DSP 


;@DSP or @PRT SVC # 


265 C EF 


05510 


RST 


28H 




265D C21724 


05520 
05530 ; 


JP 


NZ,IOERR 


;NZ - I/O Error 




05540 ; 


Increment byte counter 






05550 ; 








2660 E5 


05560 


PUSH 


HL 


;Save HL 


2661 217427 


05570 


LD 


HL,BYTCTR 


;HL => Byte counter 


2664 34 


05580 


INC 


(HL) 


;Bump counter 


2665 79 


05590 


LD 


A 3 C 


;P/u byte 


2666 FE0D 


05600 


CP 


CR 


;End of line ? 


2668 2002 


05610 
05620 ; 


JR 


NZ, NOTCR 


;No - rest regs & RETurn 


266A 3600 


05630 


LD 


(HL) 9 


;Reset byte counter 


266C El 


05640 NOTCR 


POP 


HL 


;Restore registers 


266D CI 


05650 


POP 


BC 




266E C9 


05660 
05670 ; 
05680 ; 


RET 




; & RETurn 




05690 ; 


Output 


B spaces to Dis 


3lay or Printer 




05700 ; 








266F CD7526 


05710 WRSPA 


CALL 


WR1SPA 


;Write a space 


2672 10FB 


05720 


DJNZ 


WRSPA 


;Do it B times 


2674 C9 


05730 
05740 ; 


RET 




;RETurn 




05750 ; 


Output 


a space to Disp 


lay or Printer 




05760 ; 








2675 3E20 


05770 WR1SPA 


LD 


A,'.' 


;Space Character 


2677 18DF 


05780 
05790 ; 
05800 ; 


JR 
PUTLINE 


PUTOUT 

- Output a line 


;0utput byte 
i to the video or printer 
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05810 ; 


HL => L 


ine of data to output 




05820 ; 






2679 7E 


05830 PUTLINE 


LD 


A,(HL) ; 


P/u byte 


267A 23 


05840 


INC 


HL ; 


Prepare for next 


267B FE03 


05850 


CP 


ETX 


Check if done none 


267D C8 


05860 


RET 


Z ; 


return if so 


267E CD5826 


05870 


CALL 


PUTOUT 


Char OK output it 


2681 FE0D 


05880 


CP 


CR 


Check for CR 


2683 C8 


05890 


RET 


Z 


return if so 


2684 18F3 


05900 
05910 ; 


JR 


PUTLINE 




05920 ; 


CKPAWS 


- Check for Pause (SHIFT @) 




05930 ; 






2686 


05940 CKPAWS 


@@FLAGS 


;IY => System flags 


2686 3E65 


00034 


LD 


A, 101 


2688 EF 


00035 
05950 ; 


RST 


40 




05960 ; 


Was the 


<BREAK> key pressed ? 




05970 ; 






2689 


05980 


(30CKBRKC ;<BREAK> hit ? 


2689 3E6A 


00036 


LD 


A, 106 


268B EF 


00037 


RST 


40 


268C 201C 


05990 
06000 ; 


JR 


NZ, GOTBRK ;Quit if so 




06010 ; 


Was the 


<SHIFT><@> pressed ? 




06020 ; 






268E FDCB0A4E 06030 


BIT 


1 S (IY+KFLAG$) ;Is the <PAUSE> bit set ? 


2692 C8 


06040 
06050 ; 


RET 


Z ;Return if not <SHIFT><@> 




06060 ; 


Pause - 


Wait for key to continue 




06070 ; 






2693 


06080 CKWAIT 


@@KEY 


;Wait for key press 


2693 3E01 


00038 


LD 


A,l 


2695 EF 


00039 


RST 


40 


2696 FE60 


06090 CKWAIT1 CP 


60H ;Was key a <SHIFT (?>? 


2698 28F9 


06100 


JR 


Z, CKWAIT ; Ignore if it was 


269A FE80 


06110 


CP 


80H ;Was key a Break? 


269C 280C 


06120 
06130 ; 


JR 


Z, GOTBRK ;Quit if so 




06140 ; 


Reset <PAUSE> & <ENTER> bits & RETurn 




06150 ; 






269E 


06160 RESKFL 


@@FLAGS 


;IY => Flag Table 


269E 3E65 


00040 


LD 


A, 101 


26 A0 EF 


00041 


RST 


40 


26A1 FD7E0A 


06170 


LD 


A S (IY+KFLAG$) ;P/u KFLAG$ 


26A4 E6F9 


06180 


AND 


0F9H ;Reset Pause and Enter 


26A6 FD770A 


06190 


LD 


(IY+KFLAG$),A ; Stuff into KFLAG$ 


26A9 C9 


06200 
06210 ; 


RET 






06220 ; 


<BREAK> 


hit - Display C/R & Abort 




06230 ; 






26AA 3E0D 


06240 GOTBRK 


LD 


A S CR 


;Send end of line 


26AC CD5826 


06250 


CALL 


PUTOUT 


;0utput byte 


26AF C32824 


06260 


JP 


ABORT 


; and abort due to BREAK 




06270 ; 








06280 ; 


CVTDEC 


- Convert HL to Decimal & stuff in BC 




06290 ; 






26B2 111027 


06300 CVTDEC 


LD 


DE, 10000 ; Divide by 10000 


26B5 CDCD26 


06310 


CALL 


CVD1 


26B8 11E803 


06320 


LD 


DE,1000 ; Divide by 1000 


26BB CDCD26 


06330 


CALL 


CVD1 
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26BE 116400 


06340 




LD 


DE , 100 


;Divide by 100 


26C1 CDCD26 


06350 




CALL 


CVD1 




26C4 110A00 


06360 




LD 


DE,10 


; Divide by 10 


26C7 CDCD26 


06370 




CALL 


CVD1 




26CA 110100 


06380 
06390 


5 


LD 


DE.l 


;Divide by 1 




06400 


3 


Divide Quotient in HL 


by value in DE 




06410 


3 








26CD AF 


06420 CVD1 


XOR 


A 


;Clear carry set A=0 


26CE ED52 


06430 CVD2 


SBC 


HL,DE 


; Subtract Divisor 


26D0 3803 


06440 




JR 


C.CVD3 


;Done - add back divisor 


26D2 3C 


06450 




INC 


A 


;Bump counter 


26D3 18F9 


06460 
06470 


» 


JR 


CVD2 


;Subtract until a Carry 




06480 


3 


Add divisor to neg rem & cvrt A to ASCII 




06490 


3 








26D5 19 


06500 


CVD3 


ADD 


HL,DE 


;HL = New quotient 


26D6 C630 


06510 




ADD 


A s '0' 


;A = ASCII numeric digit 


26 D8 FE30 


06520 




CP 


'0' 


;Zero ? 


26 DA 2009 


06530 
06540 


» 


JR 


NZ,CVD4 


;No - stuff in buff (BC) 




06550 


> 


Char is 


a Zero - use 


space if leading zero 




06560 


3 








26DC 0B 


06570 




DEC 


BC 


;Backspace buff ptr 


26 DD 0A 


06580 




LD 


A,(BC) 


;P/u last char 


26 DE 03 


06590 




INC 


BC 


;Bump to current 


26 DF FE20 


06600 




CP 


i i 


;Last char a space ? 


26 El 2802 


06610 




JR 


Z 9 CVD4 


;Yes - don't use lead 


26E3 3E30 


06620 
06630 


3 


LD 


A,'0' 


;No - use zero 




06640 


3 


Stuff Numeric ASCII c 


haracter into buffer 




06650 


3 








26 E5 02 


06660 


CVD4 


LD 


(BC),A 


; Stuff char in buff 


26 E6 03 


06670 




INC 


BC 


;Bump ptr 


26E7 C9 


06680 
06690 


» 


RET 




;RETurn 




06700 


» 


INCNUM 


- Increment Line number in buffer (HL) 




06710 


3 








26E8 23 


06720 


INCNUM 


INC 


HL 


;Point to lo-order digit 


26E9 23 


06730 




INC 


HL 




26 EA 23 


06740 




INC 


HL 




26 EB 23 


06750 
06760 


s 


INC 


HL 






06770 


3 


Loop to 


Increment dig 


it and return if done 




06780 


3 








26 EC 7E 


06790 


INCNUM1 


LD 


A,(HL) 


;P/u digit 


26ED F630 


06800 




OR 


•0' 


;Start with possible 


26 EF 3C 


06810 




INC 


A 


;Add 1 


26F0 77 


06820 




LD 


(HL),A 


;Restuff 


26F1 D63A 


06830 




SUB 


'9'+l 


;See if went to 10 


26F3 D8 


06840 




RET 


C 


;Ret if not 


26F4 3630 


06850 




LD 


(HL),'0' 


;Make it 


26F6 2B 


06860 




DEC 


HL 


;B/u one 


26F7 18F3 


06870 
06880 




JR 


INCNUM1 


; & loop 




06890 




OPEN - 


Open a f i le 






06900 










26F9 


06910 OPEN 


@(3FLAGS 




;IY => System Flags 


26F9 3E65 


00042 




LD 


A, 101 




26FB EF 


00043 




RST 


40 




26FC FDCB12C6 06920 




SET 


0,(IY+SFLAG$) 


;P/u SFLAG$ 
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2700 210028 06930 


LD 




HL.IOBUFF ;HL => I/O buffer 


2703 


06940 


@@OPEN 


;Open the fi le 


2703 3E3B 


00044 


LD 




A,59 


2705 EF 


00045 


RST 




40 


2706 C9 


06950 
06960 ; 


RET 




; & RE Turn with condition 


2707 46 


06970 SPCREQ$ DB 




'File spec required' S CR 


69 6C 


65 20 73 70 65 63 






20 72 


65 71 75 69 72 65 






64 00 


06980 ; 
06990 ; 








271A 20 


07000 VARDOT 


DB 




. ',ETX 


20 20 20 20 2E 20 03 








2722 20 


07010 VARCLN 


DB 




i . i 


20 20 


20 20 3A 








2728 58 


07020 VAREQU 


DB 




'XX = - ',ETX 


58 20 3D 20 20 03 








272F 54 


07030 TXTEXT 


DB 




'TXT' 


58 54 


07040 ; 
07050 ; 










07060 ; 


PARAMETER TABLE 




07070 ; 








2732 80 


07080 PRMTBL$ 
07090 ; 


DB 




80 H 




07100 ; 


ASCI 18 


(A8) - Flag input only 




07110 ; 








2733 46 


07120 


DB 




FLAG16 


2734 41 


07130 


DB 




'ASCII8' 


53 43 


49 49 38 








273A 00 


07140 


DB 







273B 2425 


07150 
07160 ; 


DW 




ASPARM+1 


273D 42 


07170 


DB 




FLAG12 


273E 41 


07180 


DB 




'A8' 


38 










2740 00 


07190 


DB 







2741 2425 


07200 
07210 ; 


DW 




A8PARM+1 




07220 ; 


LINE 




Numeric input only 




07230 ; 








2743 84 


07240 


DB 




NUM!4 


2744 4C 


07250 


DB 




'LINE' 


49 4E 


45 








2748 00 


07260 


DB 







2749 E124 


07270 
07280 ; 


DW 




LINPRM+1 




07290 ; 


NUM 


(N) - Flag input only 




07300 ; 








274B 53 


07310 


DB 




FLAG! ABB! 3 


274C 4E 


07320 


DB 




'NUM' 


55 4D 










274F 00 


07330 


DB 







2750 0F25 


07340 
07350 ; 


DW 




NPARM+1 




07360 ; 


HEX 


(H) - Flag input only 




07370 ; 








2752 53 


07380 


DB 




FLAG! ABB !3 


2753 48 


07390 


DB 




'HEX' 


45 58 
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2756 00 

2757 D624 



2759 93 
275A 52 

45 43 
275D 00 
275E 7F25 



2760 93 

2761 4C 

52 4C 

2764 00 

2765 9E25 



2767 41 

2768 50 

2769 00 
276A CA24 



276C 53 
276D 54 

41 42 

2770 00 

2771 3425 

2773 00 



0001 
0010 
0020 
0020 

2800 
0100 

2400 



07400 
07410 
07420 
07430 
07440 
07450 
07460 

07470 
07480 
07490 
07500 
07510 
07520 
07530 



DB 
DW 




HPARM+1 



REC (R) - Numeric input only 



DB 
DB 

DB 
DW 



NUM!ABB!3 
•REC 


RPARM+1 



LRL (L) - Numeric input only 



DB 
DB 



07540 LRESP DB 



07550 
07560 
07570 
07580 
07590 
07600 
07610 
07620 
07630 
07640 
07650 
07660 
07670 



DW 



NUM!ABB!3 
'LRL 1 


LPARM+1 



P - Flag input only 



DB 
DB 
DB 
DW 



FLAG11 
.p. 


PPARM+1 



TAB (T) - Flag input only 



DB 
DB 



07680 TRESP DB 

07690 DW 

07700 ; 

07710 DB 

07720 ; 

07730 ; Buffer Area 

07740 ; 

07750 BYTCTR DS 

07760 LINBUF DS 

07770 FCB1 DS 

07780 FCB2 DS 

07790 ; 

07800 ORG 

07810 IOBUFF DS 

07820 ; 

07830 END 



FLAG! ABB! 3 
'TAB' 



TPARM+1 




1 

16 
32 
32 

$<-8+l<+8 
256 

START 
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<a<ai 


0000 @@2 


0000 


(3@3 


0000 


@@4 


0000 @DSP 


0002 


(3MOD2 


0000 


(3M0D4 


FFFF @PRT 


0006 


A8BIT 


252D 


A8PARM 


2523 ABB 


0010 ABORT 


2428 


AP 


0027 BGNLIN 


24FA 


BREAK 


0080 


BS 


0008 BYTCTR 


2774 CFLAG$ 


0002 


CKPAWS 


2686 CKWAIT 


2693 


CKWAIT1 


2696 


CLOOP 


253F CR 


000 D CVD1 


26CD 


CVD2 


26CE CVD3 


26D5 


CVD4 


26E5 


CVTDEC 


26B2 CVTDOT 


263B 


CVTDOT1 


2643 


CVTH1 


2650 CVTHEX 


2647 


DFLAG$ 


0003 


DISBYTE 


25A0 DLOOP 


2522 


DOHEX 


258A 


DOHEX1 


25A1 DOHEX2 


25 BC 


DOHEX3 


25CE 


D0HEX4 


25CF DOHEX5 


25E9 


ETX 


0003 


FCB1 


2785 FCB2 


27A5 


FLAG 


0040 


FND1ST 


24EB FPLP 


2431 


GETCHR 


2503 


GETPRM 


24 3D GOTBRK 


26AA 


GOTERR 


2568 


GTBK 


2574 HPARM 


24 D5 


IGSPC 


2447 


INCNUM 


26E8 INCNUM1 


26 EC 


INITLRL 


248 B 


IOBUFF 


2800 IOERR 


2417 


KFLAG$ 


000A 


LF 


000A LINBUF 


2775 


LINPRM 


24E0 


LIST 


242D LISTA 


2409 


LPARM 


259D 


LRESP 


2764 NOTCR 


266C 


NOTFLG 


24BE 


NOTTAB 


254E NPARM 


250E 


NUM 


0080 


OPEN 


26F9 PAR ERR 


002 C 


PPARM 


24C9 


PRMTBL$ 


2732 PRTLIN 


25 EF 


PRTLINl 


2609 


PRTLIN2 


2615 PUCHAR 


2520 


PUTLINE 


2679 


PUTOUT 


2658 PUTOUT1 


265A 


RESKFL 


269E 


RESTPTR 


2446 RPARM 


257E 


SAVESP 


2410 


SFLAG$ 


0012 SKIPLRL 


24A5 


SPCREQ 


2422 


SPCREQ$ 


2707 START 


2400 


STR 


0020 


TAB 


0009 TABEXP 


253D 


TP1 


2545 


TPARM 


2533 TRESP 


2770 TXTEXT 


272F 


VARCLN 


2722 VARDOT 


271A VAREQU 


2728 


VFLAG$ 


0015 WASTAB 


2551 


WR1SPA 


2675 


WRSPA 


266F (aPABORT 


AF29 


@@ADTSK 


AFBC 


@@BANK 


B4D4 @@BKSP 


B1B4 @@BREAK 


B4EA 


GGCHNIO 


AF14 (^CKBRKC 


B538 


(3(3 CK DRV 


B010 


(a@CKEOF 


B1C9 (a@CKTSK 


AFA7 


(30CLOSE 


B19F 


@@CLS 


B522 (a@CMNDI 


AF53 


@<<>CMNDR 


AF68 


@@CTL 


AD78 (a@DATE 


AEEA 


(3(3 DC STAT 


B04F 


(3@DEBUG 


AF92 <a@DECHEX 


B454 


@@DIRRD 


B3C1 


(a@DIRWR 


B3D6 @@DIV16 


B43F 


@@DIV8 


B42A 


@@DODIR 


B025 (3@DSP 


AD3C 


(a@DSPLY 


ADDC 


TERROR 


AF7D @@EXIT 


AF3E 


(3(3FEXT 


B32E 


(^FLAGS 


B4BE WNAME 


B343 


(30FSPEC 


B319 


(a^GATRD 


B3AC (JK9GATWR 


B3EB 


(3(3GET 


AD50 


@@GTDCB 


B36D GXaGTDCT 


B358 


(3(3GTMOD 


B382 


GKaHDFMT 


B0F7 @@HEX16 


B493 


(3(3HEX8 


B47E 


(3(3 HEX DEC 


B469 @@HIGH$ 


B4A8 


@@INIT 


B175 


(3(3KBD 


ADB4 @(9KEY 


AD28 


(30KEYIN 


ADC8 


@(3KLTSK 


AFFB @(3LOAD 


B2EF 


(30LOC 


BIDE 


(3(s>LOF 


B1F3 (a@LOGER 


AE13 


(3(3LOGOT 


AE28 


(3(3 MSG 


AE5F (3(3MUL16 


B415 


(3(3MUL8 


B400 


(3(30PEN 


B18A WARANI 


AED5 


(30PAUSE 


AEC0 


(30PEOF 


B208 WOSN 


B21D 


SPRINT 


AE74 


(3(3 PRT 


AD8C (3(3 PUT 


AD64 


@(3RAMDIR 


B03A 


@(3RDSEC 


B0CD (30RDSSC 


B397 


(3(3READ 


B232 


(3(3REMOV 


B160 @(3RENAM 


BUB 


(3(3REW 


B247 


(3(3RMTSK 


AFD1 (3(3RPTSK 


AFE6 


(3(3RREAD 


B25C 
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@@RSLCT 


B0B8 (a@RST0R 


@@RWRIT 


B271 @(aSEEK 


@@SKIP 


B29B @@SLCT 


@@TIME 


AEFF (a@VDCTL 


(^VRSEC 


B0E2 @@WEOF 


@@WRITE 


B2DA (?@WRSEC 


@@WRTRK 


B136 


2400 is the 


transfer address 


00000 Total 


errors 



LIST - LS-DOS 6.2 

B079 @@RUN B304 

B0A3 (s><aSEEKSC B286 

B064 @@STEPI B08E 

AEAB @(s>VER B2B0 

B2C5 (90WHERE ADA0 

B10C @@WRSSC B121 
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;LBLOAD/ASM - LOAD & RUN Commands 
00110 TITLE <L0AD/RUN - LS-DOS 6.2> 
00120 ; 
00130 CR EQU 13 



004 D 


00140 (9RUN 


EQU 


77 




0028 


00150 RST28 


EQU 


28 H 




0000 


00160 *GET 


SVCMAC:3 


;SVC Macro equivalents 




00010 ;SVCMAC/ASM - 


LS-DOS Version 


VI 




00020 *LIST 


OFF 








03900 *LIST 


ON 








00170 ; 








2400 


00180 
00190 ; 


ORG 


2400H 






00200 ; 


RUN entry point 






00210 ; 








2400 C32924 


00220 RUN 
00230 ; 


JP 


RUN0 


;RUN entry point 




00240 ; 


LOAD i 


entry point 






00250 ; 








2403 CDC924 


00260 LOAD 


CALL 


COMMON 


;Parse parms & filespec 


2406 203F 


00270 


JR 


NZ,IOERR 




2408 3AFC24 


00280 


LD 


A,(XPARM+1) 


;If not (X) s go to it 


240B B7 


00290 


OR 


A 




240C 200A 


00300 


JR 


NZ, NEEDPR 




240E 119425 


00310 


LD 


DE S FCB 


;Pt to fcb 


2411 


00320 


@(3L0AD 




2411 3E4C 


00001 


LD 


A, 76 




2413 EF 


00002 


RST 


40 




2414 2031 


00330 


JR 


NZ s IOERR 


;Go on error 


2416 1844 


00340 
00350 ; 


JR 


EXIT 


; or just exit 




00360 ; 


Need 


to prompt for the system disk 




00370 ; 








2418 CD0F25 


00380 NEEDPR 


CALL 


LOADIT 


;Load the file 


241B 202A 


00390 


JR 


NZ s IOERR 


;Exit if error 


241D 210000 


00400 
00410 ; 


LD 


HL s 


;Init no error 




00420 ; 


Get the system disk 


back in system drive 




00430 ; 








2420 E5 


00440 PMTSYS 


PUSH 


HL 


;Save cmd line ptr 


2421 213A25 


00450 


LD 


HL 5 PMTSYS$ 




2424 CD6324 


00460 


CALL 


FLASH 




2427 El 


00470 


POP 


HL 


;Rcvr cmnd line ptr 


2428 C9 


00480 
00490 ; 


RET 








00500 ; 


RUN command entry 






00510 ; 








2429 CDC924 


00520 RUN0 


CALL 


COMMON 


;Parse common args 


242C 2019 


00530 


JR 


NZ,IOERR 


;Go on error 


242E 3AFC24 


00540 


LD 


A,(XPARM+1) 




2431 B7 


00550 


OR 


A 




2432 119425 


00560 


LD 


DE,FCB 




2435 2005 


00570 


JR 


NZ,RUNl 


; Prompt if (X) 


2437 3E4D 


00580 


LD 


A,@RUN 


;RUN SVC number 


2439 C32800 


00590 
00600 ; 


JP 


RST28 




243C E5 


00610 RUN1 


PUSH 


HL 


;Save cmnd line ptr 


243D 119425 


00620 


LD 


DE.FCB 




2440 CD0F25 


00630 


CALL 


LOADIT 




2443 E3 


00640 


EX 


(SP),HL 


;Get cmd ptr & save ept 


2444 28 DA 


00650 


JR 


Z, PMTSYS 


;Run if prog OK or 
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2447 
2449 
244B 
244C 
244 E 
2450 
2451 
2451 
2453 
2454 
2455 



FE3F 

280A 

6F 

2600 

F6C0 

4F 

3E1A 

EF 

C9 



2455 3E0C 

2457 EF 

2458 21FFFF 
245B C9 
245C 210000 
245F C9 



2460 CDB924 
2463 01FD41 
2466 
2466 3E10 

2468 EF 

2469 FD7E0A 
246C E605 
246E 20F0 

2470 CDB924 
2473 



2473 3E0A 

2475 EF 

2476 C24724 
2479 010040 
247C CD9024 
247F 2042 
2481 0E1E 
2483 CD2025 
2486 013333 
2489 CD9024 
248C 2035 
248E 18E3 



2490 
2490 3E6A 

2492 EF 

2493 2808 
2495 0E1E 
2497 CD2025 



00660 
00670 



00690 ; 

00700 IOERR 

00710 

00720 

00730 

00740 

00750 

00760 

00003 

00004 

0817 70 

00780 EXTERR 

00005 



00007 
00008 
00009 
00790 



00810 EXIT 



00830 ; 
00840 ; 
00850 ; 
00860 FLASH0 
00870 FLASH 
00880 
00010 
00011 



00910 

00920 

00930 FLS1 

00012 

00013 

00014 

00015 

00016 

00940 

00950 

00960 

00970 



00990 
01000 
01010 
01020 
01030 
01040 ; 
01050 ; 
01060 ; 
01070 FLS2 
00017 



01080 
01090 
01100 



POP HL 

Error handling 

CP 63 

JR Z, EXTERR 

LD L,A 

LD H,0 

OR 0C0H 

LD C,A 

(TERROR 

LD A, 26 

RST 40 

RET 

@@LOGOT 

IFEQ 00H,1 



pop TRAADR & error 



;If extended error 
; handle by @LOGOT 
;Put error # into HL 

;Set short error and ret 



LD 

ENDIF 

LD 

RST 

LD 

RET 

LD 

RET 



HL, 

A, 12 

40 

HL.-l 

HL,0 



Flash the prompt & await reply 



CALL RESKFLG 

LD BC, 16893 

(a@ PAUSE 

LD A, 16 

RST 40 

LD A.dY+'K'-'A') 

AND 4!1 

JR NZ,FLASH0 

CALL RESKFLG 

(3(3DSPLY 

IFEQ 00H,1 

LD HL S 

ENDIF 

LD A, 10 

RST 40 

JP NZ, IOERR 

LD BC,4000H 

CALL FLS2 

JR NZ,GOTBRK 

LD C S 1EH 

CALL DSP 

LD BC.3333H 

CALL FLS2 

JR NZ s GOTBRK 

JR FLS1 



;Reset 3-bit field 
; Del ay for 250 ms 



;Wait for no ENTER !BRK 

;Reset in case BREAK 
;Display the message 



;Abort on error 

;Blink start 
; Handle BREAK 
;Cursor erase to EOL 

;Wait 

;Wait & ck enter 
;Handle BREAK 
;Loop until ENTER 



FLS2 - Delay a while & ck on <BREAK/ENTER> 



@@CKBRKC 

LD A, 106 

RST 40 

JR Z 9 CKENT 

LD C.1EH 

CALL DSP 



;<BREAK> hit ? 



;No - check <ENTER> 
;Erase Line 
;Output byte 
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249A AF 


01110 


XOR 


A 


;Set NZ 


249B 3C 


01120 


INC 


A 


5 


249C C9 


01130 
01140 ; 


RET 




;And RETurn 


249D FDCB0A56 01150 CKENT 


BIT 


2,(IY+ , K , -'A') 


;Ck ENTER bit 


24A1 2006 


01160 


JR 


NZ,FLS4 


;Go on ENTER down 


24A3 0B 


01170 


DEC 


BC 


;Count down 


24A4 78 


01180 


LD 


A S B 




24A5 Bl 


01190 


OR 


C 




24A6 20E8 


01200 


JR 


NZ,FLS2 




24 A8 C9 


01210 
01220 ; 


RET 




;Return with Z-flag 




01230 ; 


ENTER condition found 






01240 ; 








24 A9 Fl 


01250 FLS4 


POP 


AF 


;Pop return code 


24AA 


01260 FLS5 


@@KBD 




; Clear type ahead buffer 


24AA 3E08 


00019 


LD 


A 9 8 




24AC EF 


00020 


RST 


40 




24AD 28FB 


01270 


JR 


Z,FLS5 


;Loop if have character 


24AF 0E1E 


01280 


LD 


C S 1EH 


;Wipe line 


24B1 CD2025 


01290 


CALL 


DSP 




24B4 0E0E 


01300 


LD 


C s 14 


;Cursor on 


24B6 CD2025 


01310 


CALL 


DSP 




24B9 FD7E0A 


01320 RESKFLG 


; LD 


A.dY+'K'-'A') 


;Reset 3-bit field 


24BC E6F8 


01330 


AND 


0F8H 




24BE FD770A 


01340 


LD 


(IY+'K'-'A'J.A 




24C1 AF 


01350 


XOR 


A 


;Set Z-flag 


24C2 C9 


01360 
01370 ; 


RET 






24C3 217825 


01380 GOTBRK 


LD 


HL, STOPS 


; Point to error message 


24C6 3E3F 


01390 


LD 


A, 63 


;Init extended error 


24C8 C9 


01400 
01410 ; 


RET 




; & return NZ 




01420 ; 


Common 


initialization routine 




01430 ; 








24C9 118A25 


01440 COMMON 


LD 


DE,PRMTBL 


;Parm of X? 


24 CC 


01450 


(3(3 PAR AM 


1 




24CC 3E11 


00021 


LD 


A s 17 




24CE EF 


00022 


RST 


40 




24CF C0 


01460 


RET 


NZ 


;Ret with error code 


24 D0 


01470 COMM1 


(3(aFLAGS 




;6et flag table pointer 


24 D0 3E65 


00023 


LD 


A, 101 




24 D2 EF 


00024 


RST 


40 




24 D3 7E 


01480 COMM1A 


LD 


A,(HL) 


;Skip past spaces 


24 D4 FE20 


01490 


CP 


i i 




24 D6 2003 


01500 


JR 


NZ,C0MM2 




24 D8 23 


01510 


INC 


HL 




24 D9 18F8 


01520 


JR 


COMM1A 




24DB 119425 


01530 COMM2 


LD 


DE,FCB 


;Get filespec 


24 DE 


01540 


(3(9FSPEC 






24DE 3E4E 


00025 


LD 


A, 78 




24 E0 EF 


00026 


RST 


40 




24E1 2005 


01550 


JR 


NZ s COMM3 


;Go on error 


24E3 1A 


01560 


LD 


A,(DE) 


;Device specs not allowed 


24E4 FE2A 


01570 


CP 


i*' 




24E6 2007 


01580 


JR 


NZ,C0MM4 


;Go if OK 


24E8 212725 


01590 COMM3 


LD 


HL,SPCREQ$ 


; Point to error message 


24EB 3E3F 


01600 


LD 


A, 63 


; Ini t extended error 


24ED B7 


01610 


OR 


A 


;Set NZ condition 


24EE C9 


01620 
01630 ; 


RET 







Page 282 



The Source 



LIBRARY Files 



LOAD/RUN - LS-DOS 6.2 



Page 



24 EF 
24F0 

24F3 
24F3 
24F5 
24F6 
24F9 
24FA 
24FB 
24FE 
24 FF 
2500 
2501 
2502 
2505 
2508 
2509 
250A 
250B 



E5 
219125 

3E4F 

EF 

CD0C25 

El 

C0 

110000 

7A 

B3 

C8 

E5 

215925 

CD6324 

Dl 

C0 

EB 

C9 



01640 
01650 
01660 



C0MM4 



250C 3E84 
250E EF 



250F 119425 
2512 FDCB12D6 
2516 
2516 3E4C 

2518 EF 

2519 C8 
251A F5 

251 B CD2024 
251E Fl 
251F C9 

2520 

2520 3E02 

2522 EF 

2523 C8 

2524 C34724 



2527 46 
69 
20 
64 

253A 0F 
ID 
20 
64 
54 

2559 0F 
ID 
20 
64 
54 

2578 0E 
ID 



6C 65 
72 65 
0D 

IE 49 
53 59 
69 73 
45 52 

IE 49 
53 4F 
69 73 
45 52 

43 6F 



00028 

01670 

016S0 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

00029 

00030 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

00031 

00032 

01990 

02000 

02010 

02020 

02030 

20 73 

71 75 

02040 
6E 73 
53 54 
6B 20 
3E ID 
02050 
6E 73 
55 52 
6B 20 
3E ID 
02060 
6D 6D 



XPARM 



DSP 



PUSH 

LD 

@(*FEXT 

LD 

RST 

CALL 

POP 

RET 

LD 

LD 

OR 

RET 

PUSH 

LD 

CALL 

POP 

RET 

EX 

RET 



HL 
HL,CMDEXT 

A, 79 

40 

GOSYS2 

HL 

NZ 

DE,0 

A,D 

E 

Z 

HL 

HL,PMTSRC$ 

FLASH 

DE 

NZ 

DE,HL 



;Save cmdline ptr 
; Default to CMD 



;Get SYS2 for open 
;Pop the INBUF$ pointer 

;Ck on X parm 



Back on no (X) 
Save pointer 
I nit prompt 

Prompt for source disk 
Pointer to DE 
Back on error in HL 
If no error, pointer 
back to HL 



Call SYS2 for open routine 



GOSYS2 LD 
RST 



A,84H 
28H 



;Load sys2 



Loading routine 



LOADIT LD 
SET 



@@LOAD 

LD 

RST 

RET 

PUSH 

CALL 

POP 

RET 

(3@DSP 

LD 

RST 

RET 

JP 



DE,FCB 
2,(IY+'S'- 

A,76 

40 

Z 

AF 

PMTSYS 

AF 



A,2 
40 
Z 
IOERR 



A') ;Turn on RUN flag 
;Load the file 



;Save error ret code 
;Get system disk back 
;Rcvr error ret code 



; Display byte 
;Return if OK 



SPCREQ$ DB 
70 65 63 
69 72 65 

PMTSYS$ DB 
65 72 74 
45 4D 20 
3C 45 4E 
03 

PMTSRC$ DB 
65 72 74 
43 45 20 
3C 45 4E 
03 

STOPS DB 
61 6E 64 



'File spec required' ,CR 



15,29, 30, 'Insert SYSTEM disk <ENTER>' ,29,3 



15,29,30, 'Insert SOURCE disk <ENTER>' ,29,3 



14,29, 'Command aborted', CR 
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20 61 62 6F 72 74 65 64 

0D 

02070 ; 
258A 80 02080 PRMTBL DB 

41 58 00 
258E FC24 02090 DW 

2590 00 02100 NOP 

02110 ; 

2591 43 02120 CMDEXT DB 
4D 44 

2594 00 02130 FCB DB 

001F 02140 DS 

02150 ; 
2403 02160 END 



LOAD/RUN - LS-DOS 6.2 

80H r 41H,'X , ,0 
XPARM+1 

•CMD' 


31 

LOAD 



Page 00005 
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mi 


0000 @@2 


0000 @@3 


0000 


0(34 


0000 (PMOD2 


0000 0MOD4 


FFFF 


@RUN 


004 D CKENT 


249D CMDEXT 


2591 


C0MM1 


24 D0 COMM1A 


24 D3 C0MM2 


24 DB 


COMM3 


24E8 C0MM4 


24 EF COMMON 


24C9 


CR 


000 D DSP 


2520 EXIT 


245C 


EXTERR 


2455 FCB 


2594 FLASH 


2463 


FLASH0 


2460 FLS1 


2473 FLS2 


2490 


FLS4 


24A9 FLS5 


24AA GOSYS2 


250C 


GOTBRK 


24C3 IOERR 


2447 LOAD 


2403 


LOADIT 


250F NEEDPR 


2418 PMTSRCS 


2559 


PMTSYS 


2420 PMTSYS$ 


253A PRMTBL 


258A 


RESKFLG 


24B9 RST28 


0028 RUN 


2400 


RUN0 


2429 RUN1 


243C SPCREQS 


2527 


STOPS 


2578 XPARM 


24FB 00ABORT 


7D1F 


@@ADTSK 


7DB2 @@BANK 


82CA GKaBKSP 


7FAA 


@@BREAK 


82E0 (a@CHNIO 


7D0A @(3CKBRKC 


832E 


00CKDRV 


7E06 @@CKEOF 


7FBF (agCKTSK 


7D9D 


INCLOSE 


7F95 @(aCLS 


8318 00CMNDI 


7D49 


@@CMNDR 


7D5E GXaCTL 


7B6E @@DATE 


7CE0 


@@ DC STAT 


7E45 @@DEBUG 


7D88 @@DECHEX 


824A 


00DIRRD 


81B7 (a@DIRWR 


81CC @@DIV16 


8235 


@@DIV8 


8220 (a@DODIR 


7E1B 00DSP 


7B32 


(a^DSPLY 


7BD2 TERROR 


7D73 @@EXIT 


7D34 


@@FEXT 


8124 (a@FL.AGS 


82B4 @(3FNAME 


8139 


@@FSPEC 


810F @@GATRD 


81 A2 @@GATWR 


81E1 


@(3GET 


7B46 @@GTDCB 


8163 (30GTDCT 


814E 


@@GTMOD 


8178 @@HDFMT 


7EED (90HEX16 


8289 


(30HEX8 


8274 @@HEXDEC 


825F @@HIGH$ 


829E 


@@INIT 


7F6B @(9KBD 


7BAA @@KEY 


7B1E 


@@KEYIN 


7BBE (30KLTSK 


7DF1 (3@L0AD 


80E5 


<a(ai_OC 


7FD4 @@LOF 


7FE9 @@LOGER 


7C09 


(a@LOGOT 


7C1E @@MSG 


7C55 @(<>MUL16 


820B 


(30MUL8 


81F6 GWEN 


7F80 00PARAM 


7CCB 


@@ PAUSE 


7CB6 <9(aPE0F 


7FFE @(aP0SN 


8013 


SPRINT 


7C6A @(aPRT 


7B82 @@PUT 


7B5A 


00RAMDIR 


7E30 @(3RDSEC 


7EC3 (30RDSSC 


818D 


00READ 


8028 (^REMOV 


7F56 @@RENAM 


7F41 


@(9REW 


803 D @@RMTSK 


7DC7 @@RPTSK 


7DDC 


(9@RREAD 


8052 (30RSLCT 


7EAE 00RSTOR 


7E6F 


@@RUN 


80FA (30RWRIT 


8067 0@SEEK 


7E99 


<a(3SEEKSC 


807C @@SKIP 


8091 @@SLCT 


7E5A 


@@STEPI 


7E84 (3@TIME 


7CF5 00VDCTL 


7CA1 


@@VER 


80A6 @@VRSEC 


7ED8 @@WEOF 


80 BB 


@@WHERE 


7B96 GKaWRITE 


80D0 @@WRSEC 


7F02 


00WRSSC 


7F17 @@WRTRK 


7F2C 




2403 is the 


transfer address 






00000 Total 


errors 
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0000 
0000 



00100 ;LBMEMORY/ASM - MEMORY Command 

00110 TITLE <MEM0RY - LS-DOS 6.2> 

00120 ; 

00130 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 



03900 *LIST ON 

00140 *GET VALUES :3 

03920 ;VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00150 ; 

00160 PAR_ERR EQU 44 

00170 LOWEST EQU 2600H 

00180 ; 

00190 ORG 2400H 

00200 ; 

00210 MEMORY @@CKBRKC 

00001 LD A, 106 

00002 RST 40 
00220 JR Z,BEGINA 
00230 LD HL,-1 
00240 RET 
00250 ; 

2409 ED73F725 00260 BEGINA LD (EXIT+1),SP 
00270 ; 

Process any Parameters entered 



0000 



002 C 
2600 

2400 

2400 
2400 3E6A 

2402 EF 

2403 2804 
2405 21FFFF 
2408 C9 



;Misc. equates 



Parameter Error 



;Break key down? 



;0k if not 
: else abort 



;Save SP Address 



240D 112326 

2410 D5 
2411 

2411 3E11 

2413 EF 

2414 El 

2415 C2B525 



2418 CDC325 
241B 20F8 

241D 

241D 3E65 
241F EF 



2420 0100FF 
2423 3A5626 

2426 B7 

2427 283C 
2429 FDCB0246 
242D C2E925 



2430 CB77 
2432 2805 



00280 ; 

00290 ; 

00300 

00310 

00320 

00003 

00004 

00330 

00340 PERR 

00350 ; 

00360 ; 

00370 ; 

00380 GDPARMS CALL 



LD DE 9 PRMTBL$ 

PUSH DE 

WAR AM 

LD A,17 

RST 40 

POP HL 

JP NZ,PRMERR 



;DE => Parameter Table 
;Save Parm table start 
; Process parameters 



;HL => Parm table start 
:NZ - Parameter Error 



Legal input - were the entries acceptable ? 



00390 



00410 
00005 
00006 
00420 ; 
00430 ; 
00440 ; 
00450 CPARM 
00460 
00470 
00480 
00490 
00500 
00510 ; 
00520 ; 
00530 ; 
00540 
00550 
00560 ; 
00570 ; 
00580 ; 



JR 

(5K3FLAGS 

LD 

RST 



CKPARM 
NZ,PERR 



A, 101 
40 



; Valid entries ? 

;No - Parameter error 

;IY => System Flags 



Was the CLEAR (C) parameter entered ? 

LD BC 5 0FF00H ;C = Clear byte 
LD A S (CRESP) ;P/u response 
OR A ;Any response ? 

JR Z,NEXTPRM ;No - get next parm 
BIT 5 (IY+CFLAG$) ;If memory frozen, 
JP NZ,N0MEM ; can't do it 

CLEAR (C) parm entered - is this a flag ? 

BIT 6, A ;Is this a flag ? 

JR Z 9 ISNUMER ;No - check if numeric 



Response is a FLAG - Is it 



OFF, or 
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2434 04 


00590 




INC B ;Yes or No ? 


2435 202E 


00600 




JR NZ, NEXTPRM ;No - get next parm 


2437 180F 


00610 
00620 




JR FILLMEM ;Yes - Fill mem with 0's 




00630 




Response is not a FLAG, check if numeric 




00640 






2439 215E24 


00650 


ISNUMER 


LD HL,FILLBYT+1 ;HL => Byte to Fill 


243C CB7F 


00660 




BIT 7, A ;Numeric response ? 


243E 71 


00670 




LD (HL),C ;Stuff byte in LD (HL),nn 


243F 2007 


00680 
00690 




JR NZ, FILLMEM ;Fill mem with char 




00700 




Response must be a string - Is length = 1 ? 




00710 






2441 E60F 


00720 




AND 00001111B ;P/u length 


2443 3D 


00730 




DEC A ; Better be one 


2444 20CF 


00740 
00750 




JR NZ,PERR ;Not - parameter error 




00760 




Pick up character at address & stuff away 




00770 






2446 0A 


00780 




LD A,(BC) ;P/u character to fill 


2447 77 


00790 




LD (HL),A ;Stuff in LD (HL),nn 




00800 


» 






00810 


5 


Set HL => HIGH$ (if DOS) or L0W$ (0CMNDR) 




00820 


9 




2448 CDA025 


00830 FILLMEM CALL GETHILO ;HIGH$ (HL), LOW$ (DE) 


244B FDCB024E 00840 




BIT 1,(IY+CFLAG$) ; Executing 0CMNDR ? 


244F 2801 


00850 




JR Z, USEHIGH ;No - use HIGH$ 


2451 EB 


00860 




EX DE,HL ;@CMNDR - use LOWS 


2452 110026 


00870 


USEHIGH 


LD DE S MEMORY+200H ;Start clearing here 




00880 


9 






00890 


9 


Calculate amount of memory to fill 




00900 


9 




2455 AF 


00910 




XOR A ;Clear carry 


2456 ED52 


00920 




SBC HL,DE ;Get # to fill 


2458 44 


00930 




LD B,H ;Xfer to BC 


2459 4D 


00940 




LD C,L 




00950 


9 






00960 


9 


Fill user area - HIGH$/L0W$ with spec'd byte 




00970 


9 




245A 62 


00980 




LD H,D ;HL => LOWS 


245B 6B 


00990 




LD L,E 


245C 13 


01000 




INC DE ;DE => LOWS + 1 


245 D 3600 


01010 


FILLBYT 


LD (HL),$-$ ;Stuff in fill byte 


245F EDB0 


01020 




LDIR ;Fill memory 


2461 210000 


01030 GOODEX 


LD HL,0 ;Good Exit 


2464 C9 


01040 




RET 




01050 


9 






01060 


9 


Was the ADDR (A) parameter specified ? 




01070 


9 




2465 3A3726 


01080 


NEXTPRM 


LD A,(ARESP) ;P/u Address response 


2468 B7 


01090 




OR A ;Specified ? 


2469 CA0C25 


01100 




JP Z,HICHECK ;No - get next parm 




01110 


9 






01120 


9 


Check for NUMERIC entry 




01130 


9 




246C CB7F 


01140 




BIT 7,A ;Check NUM bit 


246E 201C 


01150 




JR NZ,APARM ; go if set 




01160 


9 






01170 


9 


Response must be a string - Is length = 1 ? 




01180 


9 




2470 E60F 


01190 




AND 00001111B ;P/u length 
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2472 3D 


01200 


DEC A 


; Better be one 


2473 20A0 


01210 
01220 ; 


JR NZ.PERR 


;Not - parameter error 




01230 ; 


P/u character representation of 'FLAG' 




01240 ; 


- 




2475 2A8D24 


01250 


LD HL,(APARM+1) 


;P/u pointer to char 


2478 7E 


01260 


LD A,(HL) 


;P/u char 


2479 CBAF 


01270 


RES 5,A 


; and make UC 


247B D641 


01280 


SUB 41H 


; Normalize for flag# 


247D FE1A 


01290 


CP 26 


;Check on range 


247F D2ED25 


01300 


JP NC.RANGER 


; Error if too high 


2482 FDE5 


01310 


PUSH IY 




2484 El 


01320 


POP HL 


;P/u base of flags 


2485 1600 


01330 


LD D,0 




2487 5F 


01340 


LD E,A 


;Put offset in DE 


2488 19 


01350 


ADD HL S DE 


;Add them together 


2489 228D24 


01360 
01370 ; 


LD (APARM+1) 5 HL 


;Set value in response wor 




01380 ; 


P/u addr 9 cvrt to Hex 


ASCII & put in string 




01390 ; 






248 C 110000 


01400 APARM 


LD DE,$-$ 


;P/u the address 


248F 217A26 


01410 


LD HL,HEXADD 


;HL => Destination 


2492 


01420 


(3@HEX16 


;Cvrt DE to ASCII @ HL 


2492 3E63 


00007 


LD A s 99 




2494 EF 


00008 
01430 ; 


RST 40 






01440 ; 


Convert DE to Decimal 


ASCII & put in string 




01450 ; 






2495 EB 


01460 


EX DE,HL 


;Set HL = Address 


2496 E5 


01470 


PUSH HL 


;Save addr ptr 


2497 118226 


01480 


LD DE.DECADD 


;DE => Destination 


24 9 A 


01490 


(a@HEXDEC 


;Cvrt HL to ASCII @ DE 


249A 3E61 


00009 


LD A, 97 




249C EF 


00010 


RST 40 




249D El 


01500 
01510 ; 


POP HL 


;HL = Address 




01520 ; 


P/u word & byte at that address 




01530 ; 






249E E5 


01540 


PUSH HL 


;Save address ptr 


249F 4E 


01550 


LD C,(HL) 


;P/u byte 


24A0 51 


01560 


LD D,C 


;P/u the word value 


24A1 23 


01570 


INC HL 


; & stuff into the 


24A2 5E 


01580 
01590 ; 


LD E,(HL) 


; message in hex 




01600 ; 


Convert Byte to Hex ASCII & stuff in string 




01610 ; 






24A3 21A026 


01620 


LD HL,OLDBYTE 


;HL => Destination 


24A6 


01630 


(30HEX8 


;Convert C to ASCII @ HL 


24A6 3E62 


00011 


LD A, 98 




24A8 EF 


00012 
01640 ; 


RST 40 






01650 ; 


Convert Word to Hex ASCII & stuff in string 




01660 ; 






24A9 218C26 


01670 


LD HL,0LDW0RD 


;HL => Destination 


24AC 


01680 


<9@HEX16 


;Cvt DE to ASCII @ HL 


24AC 3E63 


00013 


LD A, 99 




24AE EF 


00014 


RST 40 




24 AF DDE1 


01690 
01700 ; 


POP IX 


;Recover Address ptr 




01710 ; 


Was WORD or BYTE parameter entered ? 




01720 ; 
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24B1 214726 


01730 




LD 


HL,BRESP ;HL => Byte Response 


24B4 113F26 


01740 




LD 


DE,WRESP ;DE => Word Response 


24B7 1A 


01750 




LD 


A,(DE) ;Anything entered ? 


24B8 B6 


01760 




OR 


(HL) 


24B9 2010 


01770 
01780 




JR 


NZ, WHICH ;Yes - which one 




01790 




Neither 


Entered - Modify string 




01800 








24BB 219126 


01810 




LD 


HL.OLDWORD+5 ;End string 


24BE 3629 


01820 




LD 


(HL),')' ; Don't display new word 


24C0 23 


01330 




INC 


HL 


24C1 3620 


01840 




LD 


(HL),' ' 


24C3 23 


01850 




INC 


HL 


24C4 3620 


01860 




LD 


(HL),' ' 


24C6 23 


01870 




INC 


HL 


24C7 3603 


01880 




LD 


(HL),ETX 


24C9 182C 


01890 
01900 




JR 


DSPSTR ;Display string 




01910 




One or 


Both was entered - ensure both not 




01920 








24CB 1A 


01930 WHICH 


LD 


A,(DE) ;Word entered ? 


24CC B7 


01940 




OR 


A 


24CD 2816 


01950 
01960 




JR 


Z, BPARM ;No - get byte 




01970 




Word Entered - Make sure byte wasn't entered 




01980 








24CF 7E 


01990 




LD 


A, (HL) ;Entered ? 


24 D0 B7 


02000 




OR 


A 


24D1 C2B525 


02010 
02020 


» 


JP 


NZ,PRMERR ;Yes - parameter error 




02030 


» 


Pick up 


Word Value & Stuff into Memory 




02040 


s 






24 D4 110000 


02050 


WPARM 


LD 


DE 9 $-$ ;P/u word 


24 D7 DD7200 


02060 




LD 


(IX), D ;Stuff Isb 


24 DA DD7301 


02070 
02080 


» 


LD 


(IX+1),E ;Stuff msb 




02090 


s 


Cvt Word/Byte to Hex ASCII & put in string 




02100 


s 






24DD 219726 


02110 


STUFVAL 


LD 


HL,NEWWORD ;HL => Destination 


24E0 


02120 




0(3 HEX 16 


;Cvrt DE to hex in (HL) 


24E0 3E63 


00015 




LD 


A, 99 


24E2 EF 


00016 




RST 


40 


24E3 1812 


02130 
02140 




JR 


DSPSTR ; Display String 




02150 




Stuff byte into mem if between 0-255 




02160 








24E5 11FFJ30 


02170 


BPARM 


LD 


DE,00FFH ;P/u byte 


24E8 7A 


02180 




LD 


A,D ;Hi-order must = 


24E9 B7 


02190 




OR 


A 


24EA C2B525 


02200 




JP 


NZ,PRMERR ;No - Parm error 


24ED DD7300 


02210 
02220 




LD 


(IX), E ;Stuff LSB into string 




02230 




Convert 


byte to Hex ASCII & stuff in string 




02240 








24F0 4B 


02250 




LD 


C,E ;Set C = new byte 


24F1 21A926 


02260 




LD 


HL,NEWBYTE ;HL => New byte 


24F4 


02270 




@(3HEX8 


;Cvt C to ASCII (a HL 


24F4 3E62 


00017 




LD 


A, 98 


24F6 EF 


00018 
02280 


» 


RST 


40 




02290 


5 


Display 


address string 
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02300 


5 








24F7 217826 


02310 


DSPSTR 


LD 


HL 9 ADDMSG 


;HL => Message 


24FA CDB025 


02320 
02330 


s 


CALL 


DSPLY 


;Display it 




02340 


» 


Display Word/Byte stri 


ng 




02350 


» 








24FD 218C26 


02360 




LD 


HL,OL DWORD 


;HL => "Word string" 


2500 3A4726 


02370 




LD 


A,(BRESP) 


;Byte response 


2503 B7 


02380 




OR 


A 


;Specif ied 


2504 2803 


02390 




JR 


Z 9 DSPSTR2 


;No - display Word string 


2506 21A026 


02400 




LD 


HL 9 OLDBYTE 


;Yes - use Byte string 


2509 CDB025 


02410 
02420 


DSPSTR2 


CALL 


DSPLY 


;Display string 




02430 


s 


HIGH$ & 


LOW$ check - Was HIGH$ entered ? 




02440 


» 








250C CDA025 


02450 


HICHECK 


CALL 


GETHILO 


;HIGH$ (HL), LOWS (DE) 


250F 22E125 


02460 




LD 


(OLDHI),HL 


;Put old HIGH$ in header 


2512 3A2926 


02470 




LD 


A 9 (HRESP) 


;HIGH$ = value ? 


2515 B7 


02480 




OR 


A 




2516 281E 


02490 




JR 


Z,LOCHECK 


;No - check LOW$ 


2518 FDCB0246 


02500 




BIT 


0,(IY+CFLAG$) 


; If memory frozen. 


251C C2E925 


02510 
02520 


s 


JP 


NZ,NOMEM 


; can't do it 




02530 


s 


HIGH$ entered, p/u val 


ue & check range 




02540 


9 








251F 010000 


02550 


HPARM 


LD 


BC 9 $-$ 


;P/u requested new HIGH$ 


2522 ED42 


02560 




SBC 


HL S BC 


;New HIGHS > old HIGH$ ? 


2524 DAED25 


02570 
02580 


3 


JP 


C, RANGER 


;Yes - Range error 




02590 


9 


Create 


Header String 8 


i establish true HIGH$ 




02600 


S 








2527 D5 


02610 




PUSH 


DE 


;Save DE 


2528 50 


02620 




LD 


D 9 B 


;Set DE = HIGH$ + 1 


2529 59 


02630 




LD 


E,C 




252A 13 


02640 




INC 


DE 




252B 21E525 


02650 




LD 


HL,HD_ADD 


; Convert DE to Hex ASCII 


252E 


02660 




(9(3 HEX 16 




; at HL (BC is preserved 


252E 3E63 


00019 




LD 


A, 99 




2530 EF 


00020 




RST 


40 




2531 21F6FF 


02670 




LD 


HL,-HLEN 


;Set HL = actual HIGH$ 


2534 09 


02680 




ADD 


HL,BC 


; including header size 


2535 Dl 


02690 
02700 




POP 


DE 


;Restore L0W$ 




02710 




Was LOW$ entered ? 






02720 










2536 3A3026 


02730 


LOCHECK 


LD 


A,(LRESP) 


;P/u response 


2539 B7 


02740 




OR 


A 


;Entered ? 


253A 2816 


02750 




JR 


Z,CHKBOTH 


;No - check range 


253C FDCB0246 


02760 




BIT 


9 (IY+CFLAG$) 


;If memory frozen, 


2540 C2E925 


02770 
02780 


s 


JP 


NZ 9 N0MEM 


, can't do it 




02790 


s 


LOW$ en 


tered - cannot 


be below LOWEST 




02800 


» 








2543 110000 


02810 


LPARM 


LD 


DE 9 $-$ 


;P/u value entered 


2546 010026 


02820 




LD 


BC 9 L0WEST 


;BC = lowest possible 


2549 EB 


02830 




EX 


DE 9 HL 


; memory location 


254A E5 


02840 




PUSH 


HL 




254B ED42 


02850 




SBC 


HL 9 BC 


;In range ? 


254D El 


02860 




POP 


HL 




254E EB 


02870 




EX 


DE,HL 




254F DAED25 


02880 




JP 


C, RANGER 


;No - display range error 



Page 292 



The Source 


LIBRARY F- 
02890 ; 


iles MEMORY - LS-DOS 


6.2 Page 00006 




02900 ; 


HL = HIGHS, DE = LOW$ - 


do they overlap ? 




02910 ; 






2552 E5 


02920 CHKBOTH PUSH HL 


;HIGH$ must be 


2553 B7 


02930 


OR A 


; greater than or equal 


2554 ED52 


02940 


SBC HL,DE 


; to LOWS. 


2556 El 


02950 


POP HL 




2557 DAED25 


02960 
02970 ; 


JP C, RANGER 


;Less - range error 




02980 ; 


LOW$ and HIGHS are both 


valid - set LOW$ 




02990 ; 






255A EB 


03000 


EX DE,HL 


;Pt DE => HIS, HL => LOW$ 


255B 0601 


03010 


LD B,l 




255D 


03020 


@@HIGH$ 


;Set LOW$ 


255D 3E64 


00021 


LD A s 100 




255F EF 


00022 
03030 ; 


RST 40 






03040 ; 


Was the HIGH parameter 


specified ? 




03050 ; 






2560 3A2926 


03060 


LD A,(HRESP) 


;Was HIGH specified ? 


2563 B7 


03070 


OR A 




2564 2813 


03080 
03090 ; 


JR Z,DSPHI 


;No - don't alter it 




03100 ; 


Yes - Change Exit messa 


ge to include header 




03110 ; 






2566 3E0A 


03120 


LD A,LF 


;Change C/R to a L/F 


2568 32B026 


03130 
03140 ; 


LD (HEADMES) S A 






03150 ; 


Xfer header into high memory 




03160 ; 






256B D5 


03170 


PUSH DE 


;Save HIGHS ptr 


256C 13 


03180 


INC DE 


;Pt to header destination 


256D 21DF25 


03190 


LD HL S HEADER 


;HL => Header 


2570 010A00 


03200 


LD BC,HLEN 


;BC = header length 


2573 EDB0 


03210 


LDIR 


;Xfer to mem 


2575 El 


03220 


POP HL 


;HL => HIGHS (BC = 0) 


2576 


03230 


@@HIGH$ 


;Set HIGHS (func. 0) 


2576 3E64 


00023 


LD A s 100 




2578 EF 


00024 
03240 ; 


RST 40 






03250 ; 


P/u HIGHS/LOWS, cvt to 


Hex, & put in string 




03260 ; 






2579 CDA025 


03270 DSPHI 


CALL GETHILO 


;HIGH$ (HL), LOWS (DE) 


257C E5 


03280 


PUSH HL 


;Save HIGHS ptr 


257D 217226 


03290 


LD HL,LOWISl 


;HL => Destination 


2580 


03300 


@@HEX16 


;Cvt DE to ASCII @ HL 


2580 3E63 


00025 


LD A, 99 




2582 EF 


00026 


RST 40 




2583 Dl 


03310 


POP DE 


;DE = HIGHS 


2584 216326 


03320 


LD HL,HIGHIS1 


;HL => Destination 


2587 


03330 


(3(3 HEX 16 


;Cvt DE to ASCII @ HL 


2587 3E63 


00027 


LD A, 99 




2589 EF 


00028 
03340 ; 


RST 40 






03350 ; 


Display HIGH$ = nnnn & LOW$ = nnnn string 




03360 ; 






258A 215A26 


03370 


LD HL,HIGHIS 


;HL => HIGHS/LOWS string 


258D 


03380 


@@LOGOT 


;Log & display 




00029 


IFEQ 00H,1 






00030 


LD HL, 






00031 


ENDIF 
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258D 3E0C 


00032 


LD 


A, 12 




258F EF 


00033 


RST 


40 




2590 21B026 


03390 


LD 


HL,HEADMES 


;Display Header message 


2593 


03400 


(a@LOGOT 




; if one was inserted 




00034 


IFEQ 


00H,1 






00035 


LD 


HL, 






00036 


ENDIF 






2593 3E0C 


00037 


LD 


A, 12 




2595 EF 


00038 
03410 ; 


RST 


40 






03420 ; 


Was a G 


o Parameter 


Entered ? 




03430 ; 








2596 3A4D26 


03440 GO 


LD 


A,(GRESP) 


;GO entered ? 


2599 B7 


03450 


OR 


A 




259A CA6124 


03460 


JP 


Z,GOODEX 


;No - RETurn HL = 


259D C30000 


03470 GPARM 
03480 ; 


JP 


$-$ 


; Yes - Jump to address 




03490 ; 


GETHILO 


- Get HIGH$ 


in HL, & LOW$ in DE 




03500 ; 








25A0 210000 


03510 GETHILO LD 


HL,0 


;P/u LOW$ 


25A3 54 


03520 


LD 


D,H 


;Set DE = 


25A4 5D 


03530 


LD 


E S L 




25A5 0601 


03540 


LD 


B,l 




25A7 


03550 


@@HIGH$ 






25A7 3E64 


00039 


LD 


A, 100 




25A9 EF 


00040 


RST 


40 




25AA EB 


03560 


EX 


DE,HL 


;Save in DE 


25AB 45 


03570 


LD 


B,L 


;Set B = 


25AC 


03580 


THIGHS 




;Get HIGH$ & RETurn 


25AC 3E64 


00041 


LD 


A s 100 




25AE EF 


00042 


RST 


40 




25AF C9 


03590 
03600 ; 


RET 




;RETurn 




03610 ; 


DSPLY - 


Display a 1 


ine to the video 




03620 ; 








25B0 


03630 DSPLY 


@@DSPLY 




; Display line 




00043 


IFEQ 


00H 9 1 






00044 


LD 


HL, 






00045 


ENDIF 






25B0 3E0A 


00046 


LD 


A, 10 




25B2 EF 


00047 


RST 


40 




25B3 C8 


03640 


RET 


Z 


;Z - RETurn 


25B4 21 


03650 
03660 ; 


DB 


21H 


; Ski p LD A,## instruction 




03670 ; 


IOERR - 


Fatal Error 


Handler 




03680 ; 








25B5 3E2C 


03690 PRMERR 


LD 


A, PAR ERR 


parameter Error 


25B7 6F 


03700 IOERR 


LD 


L,A 


; Error # to HL 


25B8 2600 


03710 


LD 


H,0 




25BA F6C0 


03720 


OR 


0C0H 


; Short error message 


25BC 4F 


03730 


LD 


C,A 


;Save in C 


25BD 


03740 


(TERROR 




;Display error 


25BD 3E1A 


00048 


LD 


A, 26 




25BF EF 


00049 


RST 


40 




25C0 1834 


03750 
03760 ; 


JR 


EXIT 


;Go to exit routine 




03770 ; 


CKPARM 


- Check if P 


arameter types are legal 




03780 ; 


HL => Beginning of 


Parameter Table 




03790 ; 


Z <= Set if Parameters entered were legal 




03800 ; 








25C2 Dl 


03810 GOODPRM 


POP 


DE 


;Clear stack 
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25C3 23 
25C4 7E 
25C5 47 
25C6 E60F 
25C8 C8 



25C9 23 
25CA E5 
25CB 5F 
25CC 1600 
25CE 19 



25CF 7E 
25D0 E6E0 
25D2 57 



25 D3 78 
25D4 A2 
25D5 AA 



25 D6 23 
25D7 23 
25D8 28E8 



25 DA 4B 
25 DB 0600 
25DD El 
25DE C9 



25DF 1808 
25 El 0000 
25E3 05 

26 
25E5 6E 

6E 6E 6E 
25 E9 
000A 



03820 CKPARM INC 



03830 
03840 
03850 
03860 
03870 
03880 
03890 
03900 
03910 
03920 
03930 
03940 
03950 
03960 
03970 
03980 
03990 
04000 



LD 
LD 
AND 
RET 



HL 

A,(HL) 

B,A 

0FH 

Z 



;Bump past 80H 
;P/u type byte 
;Save in B 
;Get "length 
;Zero - finished 



Position HL to response byte 



INC 

PUSH 

LD 

LD 

ADD 



HL 

HL 

E S A 

D,0 

HL,DE 



;HL => Parameter Name 
;Save start of name 
;Set DE = name 
; length. 



Pick up response, mask off junk, & xfer in D 



LD 

AND 

LD 



A 9 (HL) 

0E0H 

D 9 A 



;P/u response 

;Bits 7-5 = response 

:Save in D 



04020 
04030 
04040 
04050 
04060 
04070 



Jas the response bit acceptable by type ? 



LD 

AND 

XOR 



A,B 

D 

D 



;P/u type byte 
;Mask off bits 4-0 
;Result = Z if both set 



INC 
INC 
JR 



04090 ; 

04100 

04110 

04120 

04130 ; 

04140 ; 

04150 ; 

04160 LD 

04170 LD 

04180 POP 

04190 RET 

04200 ; 

04210 ; 

04220 ; 

04230 HEADER JR 

04240 OLDHI DW 

04250 DB 



Position HL to next parameter entry 

;Go past word 
;Z - good entry 

Illegal Entry - Recover Name start & RETurn 

;Set BC = length 



HL 
HL 
Z.GOODPRM 



C,E 
B,0 
HL 



04260 HD ADD DB 



6.2 Memory Header 

MEMSTRT 



5,'&' 

'nnnn' 



;HL => Parameter Name 
;RETurn NZ 



;JR to start of module 
;HIGH$ before this module 
;Use "&" to denote addr„ 

;Hex ASCII address 



$-HEADER 



; Length byte 

; Length of Header 



25E9 21FD25 
25 EC DD 
25ED 211726 



25F0 



04270 MEMSTRT EQU 

04280 HLEN EQU 

04290 ; 

04300 ; 

04310 ; Messages 

04320 ; 

04330 ; 

04340 NOMEM LD HL,N0MEM$ 

04350 DB 0DDH 

04360 RANGER LD HL, RANGERS 

04370 ; 

04380 ; Display & Log message, & RETurn 

04390 ; 

@@L0G0T ; Display/Log message 
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00050 


IFEQ 


00H,1 






00051 


LD 


HL, 






00052 


ENDIF 




25F0 3E0C 




00053 


LD 


A, 12 


25F2 EF 




00054 


RST 


40 


25F3 21FFFF 




04410 ABORT 


LD 


HL,-1 ;Internal Error 


25F6 310000 


1 


04420 EXIT 


LD 


SP,$-$ ;P/u old SP address 


25F9 




04430 


@@CKBRKC ;Clear any Break 


25F9 3E6A 




00055 


LD 


A, 106 


25FB EF 




00056 


RST 


40 


25FC C9 




04440 
04450 ; 


RET 


;RETurn 


25FD 4E 




04460 NOMEMS 


. DB 


'No memory space avai lable 1 9 CR 


6F 20 6D 65 6D 6F 72 


79 




20 73 


70 


61 63 65 20 


61 




76 61 


69 


6C 61 62 6C 


65 




0D 










2617 52 




04470 RANGERS DB 


'Range error' ,CR 


61 6E 


67 


65 20 65 72 


72 




6F 72 


0D 


04480 ; 










04490 ; 


PARAMETER TABLE 






04500 ; 






2623 80 




04510 PRMTBL$ DB 


80H ;6.x type 0PARAM 






04520 ; 










04530 ; 


HIGH 


(H) - Accept Numeric input only 






04540 ; 






2624 94 




04550 


DB 


NUM!ABB!4 


2625 48 




04560 


DB 


'HIGH' 


49 47 


48 








2629 00 




04570 HRESP 


DB 





262A 2025 




04580 
04590 ; 


DW 


HPARM+1 






04600 ; 


LOW ( 


:D - Accept numeric input only 






04610 ; 






262C 93 




04620 


DB 


NUM!ABB!3 


262D 4C 




04630 


DB 


'LOW' 


4F 57 










2630 00 




04640 LRESP 


DB 





2631 4425 




04650 
04660 ; 


DW 


LPARM+1 






04670 ; 


ADD l 


(A) - Accept numeric, string input 






04680 ; 






2633 B3 




04690 


DB 


NUM!STR!ABB!3 


2634 41 




04700 


DB 


'ADD* 


44 44 










2637 00 




04710 ARESP 


DB 





2638 8D24 




04720 
04730 ; 


DW 


APARM+1 






04740 ; 


WORD 


(W) - Accept Numeric input only 






04750 ; 






263A 94 




04760 


DB 


NUM!ABB!4 


263B 57 




04770 


DB 


'WORD' 


4F 52 


44 








263F 00 




04780 WRESP 


DB 





2640 D524 




04790 
04800 ; 


DW 


WPARM+1 






04810 ; 


BYTE 


(B) - Accept Numeric input only 






04820 ; 






2642 94 




04830 


DB 


NUM!ABB!4 


2643 42 




04840 


DB 


'BYTE' 
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59 


54 


45 






2647 00 






04850 BRESP DB 





2648 E624 




04860 DW 


BPARM+1 








04870 ; 










04880 ; GO (G) 


- Accept Numeric input only 








04890 ; 




264A 92 






04900 DB 


NUM!ABB!2 


264B 47 






04910 DB 


'GO' 


4F 










264D 00 






04920 GRESP DB 





264E 9E25 




04930 DW 


GPARM+1 








04940 ; 










04950 ; CLEAR 


(C) - Accept Flag, Numeric or string input 








04960 ; 




2650 F5 






04970 DB 


FLAG!NUM!STR!ABB!5 


2651 43 






04980 DB 


'CLEAR' 


4C 45 


41 


52 




2656 00 






04990 CRESP DB 





2657 2124 




05000 DW 


CPARM+1 








05010 ; 




2659 00 






05020 NOP 
05030 ; 




265A 48 






05040 HIGHIS DB 


'High = X',AP 


69 


67 


68 


20 3D 20 58 27 




2663 78 






05050 HIGHIS1 DB 


'xxxx',AP,' Low = X',AP 


78 


78 


78 


27 20 20 4C 6F 




77 


20 


3D 20 58 27 




2672 78 






05060 LOWIS1 DB 


'xxxx',AP,ETX 


78 


78 


78 


27 03 
05070 ; 




2678 58 






05080 ADDMSG DB 


'X',AP 


27 










267A 6E 






05090 HEXADD DB 


'nnnn',AP,' = ' 


6E 


6E 


6E 


27 20 3D 20 




2682 64 






05100 DECADD DB 


'ddddd (X' 5 AP,ETX 


64 


64 


64 


64 20 28 58 27 




03 






05110 ; 




268C 6E 






05120 OLDWORD DB 


•nnnn'.AP,' => X',AP 


6E 


6E 


6E 


27 20 3D 3E 20 




58 


27 








2697 6E 






05130 NEWWORD DB 


'nnnn',AP,') ' ,ETX 


6E 


6E 


6E 


27 29 20 20 03 
05140 ; 




26A0 6E 






05150 OLDBYTE DB 


■nn'.AP," => X',AP 


6E 


27 


20 


3D 3E 20 58 27 




26A9 6E 






05160 NEWBYTE DB 


'nn'.AP,') '.ETX 


6E 


27 


29 


20 20 03 
05170 ; 




26B0 0D 






05180 HEADMES DB 


CR.'Note : Memory Header Inserted', CR 


4E 


6F 


74 


65 20 3A 20 4D 




65 


6D 


6F 


72 79 20 48 65 




61 


64 


65 


72 20 49 6E 73 




65 
2400 


72 


74 


65 64 0D 

05190 ; 

05200 END 


MEMORY 
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(3(31 


0000 (3@2 


0000 @(33 


0000 


(3(34 


0000 (3mod2 


0000 @M0D4 


FFFF 


ABB 


0010 ABORT 


25F3 


ADDMSG 


2678 


AP 


0027 APARM 


248C 


ARESP 


2637 


BEGINA 


2409 BPARM 


24E5 


BREAK 


0080 


BRESP 


2647 BS 


0008 CFLAG$ 


0002 


CHKBOTH 


2552 CKPARM 


25C3 


CPARM 


2420 


CR 


000D CRESP 


2656 


DECADD 


2682 


DFLAG$ 


0003 DSPHI 


2579 


DSPLY 


25B0 


DSPSTR 


24F7 DSPSTR2 


2509 


ETX 


0003 


EXIT 


25F6 FILLBYT 


245D 


FILLMEM 


2448 


FLAG 


0040 GDPARMS 


2418 


GETHILO 


25 A0 


GO 


2596 GOODEX 


2461 


GOODPRM 


25C2 


GPARM 


259D GRESP 


264D 


HD ADD 


25 E5 


HEADER 


25DF HEADMES 


26B0 HEXADD 


26 7 A 


HICHECK 


250C HIGHIS 


265A 


HIGHIS1 


2663 


HLEN 


000A HPARM 


251F 


HRESP 


2629 


IOERR 


25B7 ISNUMER 


2439 


KFLAG$ 


00QfA 


LF 


000A LOCHECK 


2536 


LOWEST 


2600 


LOWISl 


2672 LPARM 


2543 


LRESP 


2630 


MEMORY 


2400 MEMSTRT 


25E9 


NEWBYTE 


26A9 


NEW WORD 


2697 NEXTPRM 


2465 


NOMEM 


25E9 


NOMEM$ 


25FD NUM 


0080 OLDBYTE 


26A0 


OLDHI 


25E1 OLDWORD 


268C 


PAR ERR 


002 C 


PERR 


2415 PRMERR 


25B5 


PRMTBLS 


2623 


RANGER 


25ED RANGERS 


2617 


SFLAG$ 


0012 


STR 


0020 STUFVAL 


24 DD 


TAB 


0009 


USEHIGH 


2452 VFLAG$ 


0015 


WHICH 


24CB 


WPARM 


24D4 WRESP 


263F 


(3@ ABORT 


99FB 


(3(3ADTSK 


9A8E (3(3BANK 


9FA6 


(3(3BKSP 


9C86 


@@ BREAK 


9FBC (3(3CHNIO 


99E6 


@@CKBRKC 


A00A 


(3@CKDRV 


9AE2 @(3CKE0F 


9C9B 


@(3CKTSK 


9A79 


(3@CLOSE 


9C71 (3@CLS 


9FF4 


(3@CMNDI 


9A25 


(3(3CMNDR 


9A3A @(3CTL 


984A 


(3(3 DATE 


99 BC 


@@DCSTAT 


9B21 @(3DEBUG 


9A64 


(3(3DECHEX 


9F26 


(3(3DIRRD 


9E93 GK3DIRWR 


9EA8 


(3(3DIV16 


9F11 


@@DIV8 


9EFC @(3DODIR 


9AF7 


(3@DSP 


980E 


(3@DSPLY 


98 AE (TERROR 


9A4F 


(3(3EXIT 


9A10 


@(3FEXT 


9E00 (3@FLAGS 


9F90 @(3FNAME 


9E15 


@(3FSPEC 


9DEB (3@GATRD 


9E7E 


(3@GATWR 


9EBD 


(3(3 GET 


9822 (3(3GTDCB 


9E3F 


(30GTDCT 


9E2A 


@(3GTM0D 


9E54 (3@HDFMT 


9BC9 


@@HEX16 


9F65 


(3(3HEX8 


9F50 (3(3HEXDEC 


9F3B 


@(3HIGH$ 


9F7A 


@@INIT 


9C47 @@KBD 


9886 


(3(3 KEY 


97 FA 


(3(3 KE YIN 


989A @(3KLTSK 


9ACD 


(3(3LOAD 


9DC1 


(3(3L0C 


9CB0 @@LOF 


9CC5 


(3@L0GER 


98 E5 


(3(3LOGOT 


98 FA (3@MSG 


9931 


(3(3MUL16 


9EE7 


@(3MUL8 


9ED2 (3(30PEN 


9C5C 


(3(3 PAR AM 


99A7 


@(3PAUSE 


9992 (3(3PEOF 


9CDA 


(3(3POSN 


9CEF 


(3(3 PR I NT 


9946 (3(3PRT 


985 E 


(3(3 PUT 


9836 


(3(3RAMDIR 


9B0C (3(3RDSEC 


9B9F 


(3@RDSSC 


9E69 


(3(3READ 


9D04 (3(3REMOV 


9C32 


@(3RENAM 


9C1D 


(3(3 RE W 


9D19 @(3RMTSK 


9AA3 


@(3RPTSK 


9AB8 


(3@RREAD 


9D2E @(3RSLCT 


9B8A 


(3@RSTOR 


9B4B 


<3(3RUN 


9DD6 (3(3RWRIT 


9D43 


'313SEEK 


9B75 


(30SEEKSC 


9D58 (3(3SKIP 


9D6D 


(3(3SLCT 


9B36 


(3(3 STEP I 


9B60 @@TIME 


99 Dl 


(3(3VDCTL 


997D 


(3(3 VER 


9D82 @@VRSEC 


9BB4 


(3@WEOF 


9D97 


(3(3WHERE 


9872 @@WRITE 


9DAC 


(3(3WRSEC 


9BDE 


(3@WRSSC 


9BF3 @(3WRTRK 


9C08 
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Command: PURGE 
Library: SYS7/SYS 
ISAM # : 72H 
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The Source 


LIBRARY Fi 


les 


PURGE - LS-DOS 6 


.2 Page 00001 




00100 


;LBPURGE/ASM - 


PURGE Command 




0000 


00110 
00120 


» 


TITLE 


<PURGE - LS-DOS 


5.2> 


000A 


00130 LF 


EQU 


10 




000D 


00140 CR 


EQU 


13 




002C 


00150 


PAR ERF 


, EQU 


44 


; Parameter Error 


42 E0 


00160 


PASSWORD 


EQU 42E0H 






00170 


> 








0000 


00180 


*GET 


SVCMAC: 


3 


;SVC Macro equivalents 




00010 


;SVCMAC/ASM - LS-DOS Version VI 






00020 *LIST 


OFF 








03900 


*LIST 


ON 








00190 


» 








2400 


00200 
00210 


» 


ORG 


2400H 




2400 


00220 PURGE 


@@CKBRKC 


;Break key down? 


2400 3E6A 


00001 




LD 


A, 106 




2402 EF 


00002 




RST 


40 




2403 2804 


00230 




JR 


Z, BEGINA 


;Ok if not 


2405 21FFFF 


00240 




LD 


HL,-1 


; else abort 


2408 C9 


00250 
00260 


» 


RET 






2409 ED73F327 


00270 


BEGINA 


LD 


(SAVESP+D.SP 


;Save stack pointer 


240D 7E 


00280 PURGE 1 


LD 


A,(HL) 


;Bypass cmd line blanks 


240E 23 


00290 




INC 


HL 




240F FE20 


00300 




CP 


i i 




2411 28FA 


00310 




JR 


Z,PURGE1 




2413 11B828 


00320 




LD 


DE, BLANKS 


;Pt to filespec area 


2416 0608 


00330 




LD 


B,8 


,Init for file name 


2418 FE2D 


00340 




CP 


i __ i 


;If -, set up flag 


241A 2005 


00350 




JR 


NZ,PUR0 




241C 323E25 


00360 




LD 


(MFLG+1),A 




241F 7E 


00370 




LD 


A,(HL) 




2420 23 


00380 




INC 


HL 




2421 CD2727 


00390 PUR0 


CALL 


PRSPEC 




2424 FE2F 


00400 




CP 


7' 


,Ck on file EXT entered 


2426 200A 


00410 




JR 


NZ,PUR1 


.Jump if no extension 


2428 11C028 


00420 




LD 


DE 9 BLANKS+8 


Point to ext field 


242B 0603 


00430 




LD 


B s 3 


,Max 3 chars 


242D 7E 


00440 




LD 


A,(HL) 




242E 23 


00450 




INC 


HL 




242F CD2727 


00460 




CALL 


PRSPEC 


Ck on EXT 


2432 FE3A 


00470 


PUR1 


CP 


* ! 


Drive entered? 


2434 0E00 


00480 




LD 


C s i 


I nit to drive 


2436 201A 


00490 




JR 


NZ S PRMERRA ; 


Quit if no drive # 


2438 7E 


00500 




LD 


A S (HL) ; 


P/u drive # 


2439 23 


00510 




INC 


HL ; 


Bump to next field 


243A CD2F29 


00520 




CALL 


PATCH1 ; 


Ck drive range 0-7 


243D 79 


00530 


PUR 2 


LD 


A,C j 


Xfer drive to regA 


243E 327C26 


00540 




LD 


(TSTMPW+1) 9 A ; 


& stuff for later 


2441 


00550 




@@CKDRV 


! 


Ck if drive available 


2441 3E21 


00003 




LD 


A s 33 




2443 EF 


00004 




RST 


40 




2444 3E20 


00560 




LD 


A, 32 ; 


"drive not avail... 


2446 CD3829 


00570 




CALL 


PATCH 2 ; 


Ck WP or missing disk 


2449 


00580 




(sKPGTDCT 


s 


DCT to reg IY 


2449 3E51 


00005 




LD 


A s 81 




244B EF 


00006 




RST 


40 




244C 11E728 


00590 




LD 


DE S PRMTBL$ ; 


Get parms 


244F 


00600 




@(3 PAR AM 






244F 3E11 


00007 




LD 


A s 17 
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LIBRARY Fi 


iles 


PURGE - LS-DOS 


6.2 Page 00002 


2451 EF 


00008 




RST 


40 




2452 C2DB27 


00610 


PRMERRA JP 


NZ,PRMERR 


;Jump on error 


2455 210000 


00620 


DATPRM 


LD 


HL,0 


;P/u date="from-to" 


2458 7C 


00630 




LD 


A 9 H 




2459 B5 


00640 




OR 


L 




245A 2835 


00650 




JR 


Z 9 PUR3 


;Bypass if not entered 


245C 7E 


00660 




LD 


A 9 (HL) 


;Check for "-to" 


245D FE2D 


00670 




CP 


i _ i 




245F 2818 


00680 




JR 


Z s CKTO 




2461 3E80 


00690 




LD 


A 9 80H 


;Set from bit 


2463 32C328 


00700 




LD 


(FTFLG) 9 A 


;Note from entered 


2466 CD5727 


00710 




CALL 


PAKDAT 


;Pack the date entry 


2469 C2DD27 


00720 




JP 


NZ 5 I0ERR 


;Quit if bad date 


246C ED43C428 


! 00730 




LD 


(FMPAKD) 9 BC 




2470 7E 


00740 




LD 


A 9 (HL) 




2471 FE22 


00750 




CP 


i it i 




2473 2810 


00760 




JR 


Z.FRCTO 




2475 FE2D 


00770 




CP 


i _ i 


;Check for "-to" 


2477 2018 


00780 




JR 


NZ 9 PUR3 




2479 23 


00790 


CKTO 


INC 


HL 


; Bypass the '-' 


247A 7E 


00800 




LD 


A 9 (HL) 


;Ck for end of parm 


247B FE22 


00810 




CP 


i 1! 1 




247D 2812 


00820 




JR 


Z 9 PUR3 


;Go on parm end 


247F CD5727 


00830 




CALL 


PAKDAT 


; else pack the date 


2482 C2DD27 


00840 




JP 


NZ 9 I0ERR 


;Quit on bad date 


2485 3 AC 328 


00850 FRCTO 


LD 


A 9 (FTFLG) 




2488 F601 


00860 




OR 


1 


;Set TO bit 


248A 32C328 


00870 




LD 


(FTFLG) 9 A 




248D ED43C628 


00880 




LD 


(T0PAKD) 9 BC 


; Stuff for later 


2491 3AB025 


00890 


PUR 3 


LD 


A 9 (QPARM+1) 


;Query parm used? 


2494 B7 


00900 




OR 


A 




2495 2806 


00910 




JR 


Z 9 DOEVER 


;Go if not 


2497 CD1527 


00920 




CALL 


CKINDO 


; Invalid command during 


249A C2DD27 


00930 




JP 


NZ s IOERR 


; <DO> processing 


249D CD7B26 


00940 


DOEVER 


CALL 


TSTMPW 


;Ck on master password 


24A0 C2DD27 


00950 




JP 


NZ 9 I0ERR 


;Go if worng 


24A3 3A7C26 


00960 




LD 


A S (TSTMPW+1) 


;P/u drive 


24A6 4F 


00970 




LD 


C 9 A 




24A7 FD5609 


00980 




LD 


D 9 (IY+9) 


;Get DIR cylinder 


24AA 1E01 


00990 




LD 


E,l 


;Pt to HIT sector 


24AC 21002C 


01000 




LD 


HL 9 HITBUF 




24 AF 


01010 




(3@FLA6S 




;Pt IY => Flags 


24AF 3E65 


00009 




LD 


A, 101 




24B1 EF 


00010 




RST 


40 




24B2 


01020 




@(9RDSSC 




;Read the HIT 


24B2 3E55 


00011 




LD 


A, 85 




24B4 EF 


00012 




RST 


40 




24B5 3E16 


01030 




LD 


A,16H 


; Ini t "HIT read error.. . 


24B7 C2DD27 


01040 




JP 


NZ 9 I0ERR 


;Abort on read error 


24BA 1818 


01050 
01060 


s 


JR 


SCNH3 






01070 


5 


Major 1 


oop to scan HIT 


for files 




01080 


i 








24BC El 


01090 


SCNHIT 


POP 


HL 




24BD CI 


01100 


SCNH1 


POP 


BC 


;Rcvr HIT ptr DEC 


24BE 262C 


01110 




LD 


H 9 HITBUF<-8 


;Pt to hi -order buffer 


24C0 68 


01120 




LD 


L,B 


;Set lo-order DEC 


24C1 7D 


01130 


SCNH2 


LD 


A 9 L 




24C2 C620 


01140 




ADD 


A 9 32 


;Pt to next one in 


24C4 6F 


01150 




LD 


L,A 


;Same dir sector 


24C5 300D 


01160 




JR 


NC.SCNH3 


;Jump if still in sector 
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LIBRARY Fi 


les 


PURGE - LS-DOS 


6.2 Page 00003 


24C7 2C 


01170 




INC 


L 


;Bump to next dir sector 


24C8 FE1F 


01180 




CP 


1FH 


;End of the line? 


24 CA 2008 


01190 




JR 


NZ,SCNH3 


;Loop if not 


24CC 0E0D 


01200 




LD 


C,CR 




24CE 


01210 




(3(3 DSP 




; Write new line & exit 


24CE 3E02 


00013 




LD 


A,2 




24 D0 EF 


00014 




RST 


40 




24D1 C3F827 


01220 
01230 




JP 


EXIT 






01240 




Routine 


to check on dir 


record in use 




01250 










24 D4 7D 


01260 


SCNH3 


LD 


A,L 


; Ignore BOOT & DIR 


24D5 E6FE 


01270 




AND 


0FEH 




24 D7 28E8 


01280 




JR 


Z,SCNH2 




24D9 7E 


01290 




LD 


A,(HL) 


;P/u HIT hash byte 


24 DA B7 


01300 




OR 


A 




24DB 28E4 


01310 




JR 


Z,SCNH2 


; Ignore if spare 


24 DD 45 


01320 




LD 


B,L 


;Save DEC 


24 DE C5 


01330 




PUSH 


BC 




24DF 7D 


01340 




LD 


njL 


;Get record # in L 


24E0 E6E0 


01350 




AND 


0E0H 




24E2 6F 


01360 




LD 


L 9 A 




24 E3 A8 


01370 




XOR 


B 


;Get sector # in A 


24E4 FEFF 


01380 


SCNH3A 


CP 


0FFH 


;Same as what's in core? 


24E6 280D 


01390 




JR 


Z.SCNH4 


; Bypass if same 


24E8 32E524 


01400 




LD 


(SCNH3A+1) 9 A 


; Update indicator byte 


24EB 


01410 




@@DIRRD 




;Read this directory 


24EB 3E57 


00015 




LD 


A,87 




24ED EF 


00016 




RST 


40 




24EE C2DD27 


01420 




JP 


NZ s IOERR 


;Quit on read error 


24F1 7C 


01430 




LD 


A,H 


;Set SBUFF pointer 


24F2 32F624 


01440 




LD 


(SCNH4+1) 9 A 




24F5 2600 


01450 


SCNH4 


LD 


H s 


;Pt to dir buf hi -order 


24F7 7E 


01460 




LD 


A S (HL) 


;L set to lo-order 


24F8 CB67 


01470 




BIT 


4,A 


; Ignore if not assigned 


24FA 28C1 


01480 




JR 


Z.SCNH1 




24FC CB7F 


01490 




BIT 


7 S A 


;Ignore if it's an 


24 FE 20 BD 


01500 




JR 


NZ,SCNH1 


; extended dir record 


2500 CB77 


01510 




BIT 


6 S A 


;Jump if not a SYS file 


2502 280A 


01520 




JR 


Z,CKINV 




2504 110000 


01530 


SPARM 


LD 


DE s 


;P/u S-parm 


2507 7A 


01540 




LD 


A,D 




2508 B3 


01550 




OR 


E 


; Ignore this one if 


2509 CABD24 


01560 




JP 


Z S SCNH1 


; S-parm not entered 


250C 180C 


01570 
01580 


9 


JR 


CKNAM 






01590 


S 


Non-SYS 


file 






01600 


5 








250E CB5F 


01610 CKINV 


BIT 


3, A 


;Jump if visible 


2510 2808 


01620 




JR 


Z, CKNAM 




2512 110000 


01630 


IPARM 


LD 


DE 5 


;I-parm 


2515 7A 


01640 




LD 


A,D 


; Ignore if I-parm not 


2516 B3 


01650 




OR 


E 


; entered as this file 


2517 CABD24 


01660 
01670 


s 


JP 


Z 5 SCNH1 


; is invisible 




01680 


9 


Parms match, grab filename & check class 




01690 


9 








251A E5 


01700 CKNAM 


PUSH 


HL 


;Save ptr to record 


251B 7D 


01710 




LD 


A,L 


;Pt to fi lenarne in dir 


251C C605 


01720 




ADD 


A s 5 




251E 6F 


01730 




LD 


L 5 A 
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251F 11B828 


01740 




LD 


DE, BLANKS 


;Pt to parsed input 


2522 060B 


01750 




LD 


B,ll 


;Ck name/ext (11-chars) 


2524 1A 


01760 


SCNH5 


LD 


A,(DE) 




2525 FE24 


01770 




CP 


'$' 


; Wi 1 d char? 


2527 2807 


01780 




JR 


Z,SCNH6 


;Always a match 


2529 BE 


01790 




CP 


(HL) 


;Not global, char match? 


252A 2804 


01800 




JR 


Z,SCNH6 


;Ck more if match 


252C FE20 


01810 




CP 


i i 


;Blank = end of ck 


252E 200D 


01820 




JR 


NZ,MFLG 


;If not blank, no match 


2530 23 


01830 


SCNH6 


INC 


HL 


;Bump pointers 


2531 13 


01840 




INC 


DE 




2532 10F0 


01850 




DJNZ 


SCNH5 


;Loop for 11 chars 


2534 3A3E25 


01860 




LD 


A,(MFLG+1) 


;Bypass if a match but 


2537 B7 


01870 




OR 


A 


; - exclude given 


2538 C2BC24 


01880 




JP 


NZ,SCNHIT 




253B 1806 


01890 




JR 


SCNH6A 




253D 3E00 


01900 MFLG 


LD 


A,0 


; Ignore if no match & 


253F B7 


01910 




OR 


A 


; no exclude given 


2540 CABC24 


01920 




JP 


Z,SCNHIT 




2543 El 


01930 


SCNH6A 


POP 


HL 


;Rcvr ptr to DIR+0 


2544 E5 


01940 
01950 


» 


PUSH 


HL 






01960 


» 


Now c 


heck if date matcl 


hes 




01970 


9 








2545 23 


01980 




INC 


HL 


;Pt to date field 


2546 CD4627 


01990 




CALL 


UNPACK 


;Alter date for cpr 


2549 3AC328 


02000 




LD 


A,(FTFLG) 




254C 07 


02010 




RLCA 




;Tst fm bit 


254D 3010 


02020 




JR 


NC,SCNH6B 




254F 7A 


02030 




LD 


A S D 


; Ignore if no date 


2550 B3 


02040 




OR 


E 


; in DIR for file 


2551 CABC24 


02050 




JP 


Z,SCNHIT 




2554 2AC428 


02060 




LD 


HL,(FMPAKD) 


;P/u user entry 


2557 EB 


02070 




EX 


DE,HL 




2558 CDD527 


02080 




CALL 


CPHLDE 


;HL-DE 


255B EB 


02090 




EX 


DE,HL 




255C DABC24 


02100 




JP 


CSCNHIT 


;Go if out of range 


255F 3AC328 


02110 


SCNH6B 


LD 


A,(FTFLG) 




2562 0F 


02120 




RRCA 




;Tst TO bit 


2563 300E 


02130 




JR 


NC, MATCHES 


;Go if no TOPARM 


2565 7A 


02140 




LD 


A,D 


; else ck if file is dated 


2566 B3 


02150 




OR 


E 




2567 CABC24 


02160 




JP 


Z,SCNHIT 


;Go if no dir date 


256A 2AC628 


02170 




LD 


HL,(TOPAKD) 


;P/u user's packed date 


256D CDD527 


02180 




CALL 


CPHLDE 


;HL-DE 


2570 DABC24 


02190 




JP 


CSCNHIT 


;Go if out of range 


2573 El 


02200 


MATCHES 


POP 


HL 


;Rcvr pointer to DIRREC 


2574 E5 


02210 


DONAM 


PUSH 


HL 




2575 7i; 


02220 




LD 


A,L 


; & point to file name 


2576 C605 


02230 




ADD 


A, 5 




2578 6F 


02240 




LD 


L,A 




2579 11CC28 


02250 




LD 


DE 9 FCB1$ 


;Pt to name/ext buffer 


257C 0608 


02260 




LD 


B s 8 


;Max 8-char name 


257E 7E 


02270 


DONAM1 


LD 


A,(HL) 


;Move filename into 


257F FE20 


02280 




CP 


i i 


; buffer until space 


2581 2805 


02290 




JR 


Z,DONAME2 


; or 8 characters 


2583 12 


02300 




LD 


(DE),A 




2584 23 


02310 




INC 


HL 




2585 13 


02320 




INC 


DE 




2586 10F6 


02330 




DJNZ 


DONAM1 




2588 7D 


02340 


DO NAME 2 


LD 


A,L 


;Point to file ext 



Page 305 



The Source 
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PURGE - LS-D 


2589 80 


02350 


ADD 


A S B 


258A 6F 


02360 


LD 


L S A 


258B 7E 


02370 


LD 


A,(HL) 


258C FE20 


02380 


CP 


i i 


258E 2810 


02390 


JR 


Z,DONAM5 


2590 3E2F 


02400 


LD 


A,'/' 


2592 12 


02410 


LD 


(DE) 9 A 


2593 13 


02420 


INC 


DE 


2594 0603 


02430 


LD 


B,3 


2596 7E 


02440 D0NAM4 


LD 


A,(HL) 


2597 FE20 


02450 


CP 


i i 


2599 2805 


02460 


JR 


Z 9 D0NAM5 


259B 12 


02470 


LD 


(DE) 9 A 


259C 23 


02480 


INC 


HL 


259D 13 


02490 


INC 


DE 


259E 10F6 


02500 


DJNZ 


D0NAM4 


25A0 3E3A 


02510 DONAM5 


LD 


A, ':' 


25A2 12 


02520 


LD 


(DE) 9 A 


25A3 13 


02530 


INC 


DE 


25A4 3A7C26 


02540 


LD 


A,(TSTMPW+1) 


25A7 F630 


02550 


OR 


'0' 


25A9 12 


02560 


LD 


(DE) 9 A 


25AA 13 


02570 


INC 


DE 


25AB 3E03 


02580 


LD 


A s 3 


25AD 12 


02590 


LD 


(DE) S A 


25AE D5 


02600 


PUSH 


DE 


25AF 11FFFF 


02610 QPARM 


LD 


L/L. «j **** Jl 


25B2 7A 


02620 


LD 


A 9 D 


25B3 B3 


02630 


OR 


E 


25B4 CA3D26 


02640 
02650 ; 


JP 


Z 9 N0PRMPT 


25B7 


02660 


@@DSPLY 


' PRGFIL$ 




00017 


IFEQ 


01H.1 


25B7 217728 


00018 


LD 


HL 9 PRGFIL$ 




00019 


ENDIF 




25BA 3E0A 


00020 


LD 


A 9 10 


25BC EF 


00021 


RST 


40 


25BD Dl 


02670 


POP 


DE 


25BE El 


02680 


POP 


HL 


25BF D5 


02690 


PUSH 


DE 


25C0 23 


02700 


INC 


HL 


25C1 CB76 


02710 


BIT 


6 9 (HL) 


25C3 2808 


02720 


JR 


Z 9 SCDAT1 


25C5 3E20 


02730 


LD 


A,' ' 


25C7 12 


02740 


LD 


(DE) 9 A 


25C8 13 


02750 


INC 


DE 


25C9 3E2B 


02760 


LD 


A,' + ' 


25CB 12 


02770 


LD 


(DE) S A 


25CC 13 


02780 


INC 


DE 


25CD 3E20 


02790 SCDAT1 


LD 


A,' ' 


25CF 12 


02800 


LD 


(DE) 9 A 


25D0 13 


02810 


INC 


DE 


25D1 23 


02820 


INC 


HL 


25D2 EB 


02830 


EX 


DE 9 HL 


25D3 367B 


02840 


LD 


(HL) 9 '{' 


25D5 23 


02850 


INC 


HL 


25D6 EB 


02860 


EX 


DE,HL 


25D7 7E 


02870 


LD 


A 9 (HL) 


25D8 B7 


02880 


OR 


A 


25D9 283D 


02890 


JR 


Z 9 SCDAT4 


25DB 0F 


02900 


RRCA 
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;Is there an extension? 

;Bypass if not 

; Stuff ext separator 

; Ini t 3-char ext max 
;Transfer up to space 
; or 3 chars 



;Add the drivespec 



;P/u drivespec 

;Make it ASCII & stuff 



; Terminate with ETX 

;Save pointer 
;Query each f i le? 



;Not if not Q=N 
;"Purge file?... 



;Rcvr ptr to file buf ETX 
;Rcvr ptr to 1st dir byte 

;Pt to MOD bit 
;Test MOD flag 
;Go if not mod'ed 
;Put a space 



; and the mod sign 

;Write a space 

;Advance to date field 
: Stuff left brace 



; Ignore if no date saved 
;Has date, get day 
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LIBRARY F 


iles 


PURGE - L 


25 DC 0F 


02910 


RRCA 




25 DD 0F 


02920 


RRCA 




25DE E61F 


02930 


AND 


1FH 


25E0 062F 


02940 


LD 


B,2FH 


25E2 04 


02950 SCDAT2 


INC 


B 


25E3 D60A 


02960 


SUB 


10 


25E5 30FB 


02970 


JR 


NC.SCDAT2 


25E7 C63A 


02980 


ADD 


A, 3 AH 


25E9 F5 


02990 


PUSH 


AF 


25 EA 78 


03000 


LD 


A,B 


25 EB 12 


03010 


LD 


(DEM 


25 EC 13 


03020 


INC 


DE 


25ED Fl 


03030 


POP 


AF 


25 EE 12 


03040 


LD 


(DE),A 


25 EF 13 


03050 


INC 


DE 


25F0 3E2D 


03060 


LD 


A,'-' 


25F2 12 


03070 


LD 


(DEM 


25F3 13 


03080 


INC 


DE 


25F4 E5 


03090 


PUSH 


HL 


25F5 2B 


03100 


DEC 


HL 


25F6 7E 


03110 


LD 


A,(HL) 


25F7 E60F 


03120 


AND 


0FH 


25F9 3D 


03130 


DEC 


A 


25FA 4F 


03140 


LD 


C,A 


25FB 07 


03150 


RLCA 




25FC 81 


03160 


ADD 


A,C 


25FD 4F 


03170 


LD 


C,A 


25 FE 0600 


03180 


LD 


B,0 


2600 219428 


03190 


LD 


HL s MONTBL 


2603 09 


03200 


ADD 


HL,BC 


2604 0E03 


03210 


LD 


C,3 


2606 EDB0 


03220 


LDIR 




2608 3E2D 


03230 


LD 


A,'-' 


260A 12 


03240 


LD 


(DEM 


260B 13 


03250 


INC 


DE 


260C 3E38 


03260 


LD 


A, '8' 


260E 12 


03270 


LD 


(DEM 


260F 13 


03280 


INC 


DE 


2610 El 


03290 


POP 


HL 


2611 7E 


03300 


LD 


A,(HL) 


2612 E607 


03310 


AND 


7 


2614 C630 


03320 


ADD 


A s '0' 


2616 12 


03330 


LD 


(DEM 


2617 13 


03340 


INC 


DE 


2618 3E03 


03350 SCDAT4 


LD 


A, 3 


261A 12 


03360 


LD 


(DEM 


261 B 


03370 


@@DSPLY FCB1$ 




00022 


IFEQ 


01H 9 1 


261B 21CC28 


00023 


LD 


HL,FCB1$ 




00024 


ENDIF 




261 E 3E0A 


00025 


LD 


A, 10 


2620 EF 


00026 


RST 


40 


2621 


03380 


@@DSPLY 


QMARK$ 




00027 


IFEQ 


01H S 1 


2621 218428 


00028 


LD 


HL,QMARK$ 




00029 


ENDIF 




2624 3E0A 


00030 


LD 


A, 10 


2626 EF 


00031 


RST 


40 


2627 21C828 


03390 


LD 


HL,LILBUF$ 


262A 010003 


03400 


LD 


BC,3<8 


262D 


03410 


@@KEYIN 





Page 00006 



;Convert day to decimal 
; by counting # of 10' s 
;Sub 10 from day # 

;Cvrt lo order to ASCII 
;Save day low order 
; Stuff day hi order 

;Bump 

;Rcvr lo order day # 

; Stuff low order 

;Bump pointer to msg 

;Init seperator 

; and stuff in buffer 

;Pt to month field 

;Save DIR ptr 

;Pt to DIR+1 (month+) 

;P/u month etc 

; Strip off flags 

;(mon-l)*3 indexes string 

; conversion table 



;Add offset to tbl start 

;Move 3-char month 
;Suff separator char 

;Advance to year field 
; Stuff 8 of 1980 

;Bump msg ptr 
;Rcvr DIR+2 
;P/u year field 
; Remove day 
;Cvrt to ASCII 
; Stuff -> msg 

;Show etx for display 
; Display filename 



;Display ??? 



;Get response y 9 n 
;For Yes, No 
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The Source 


LIBRARY Fi 


les 


PURGE - LS-DOS 


6.2 Page 0000/ 


262D 3E09 


00032 


LD 


A s 9 




262F EF 


00033 


RST 


40 




2630 DAEC27 


03420 


JP 


C, BREAK 


;Abort on <BREAK> 


2633 7E 


03430 


LD 


A,(HL) 


;P/u response 


2634 CBAF 


03440 


RES 


5, A 


;Strip 1/c if entered 


2636 FE59 


03450 


CP 


, Y . 


;Is it yes? 


2638 C2BC24 


03460 


JP 


NZ,SCNHIT 


;Bypass if not 


263B E3 


03470 


EX 


(SP) S HL 


;Place dummy HL below 


263C E5 


03480 


PUSH 


HL 


; pointer 


263D FDCB0A46 


03490 NOPRMPT 


BIT 


s (IY+ , K , -'A') 


;Ck if BREAK bit in 


2641 C2EC27 


03500 


JP 


NZ, BREAK 


; KFLAG is active 


2644 


03510 


@@LOGOT 


PURGES 


;Dsply "Purging: " 




00034 


IFEQ 


01H,1 




2644 218A28 


00035 
00036 


LD 
ENDIF 


HL S PURGE$ 




2647 3E0C 


00037 


LD 


A s 12 




2649 EF 


00038 


RST 


40 




264A El 


03520 


POP 


HL 


;Get pointer where ETX is 


264B 360D 


03530 


LD 


(HL) S CR 


; & replace with CR 


264D 


03540 


(a@LOGOT FCB1$ 


;Dsply fi lename 




00039 


IFEQ 


01H,1 




264D 21CC28 


00040 
00041 


LD 
ENDIF 


HL,FCBl$ 




2650 3E0C 


00042 


LD 


A, 12 




2652 EF 


00043 


RST 


40 




2653 El 


03550 


POP 


HL 


;Pop durmiy or DIRREC ptr 


2654 CI 


03560 


POP 


BC 


;Get drive & DEC 


2655 C5 


03570 


PUSH 


BC 




2656 78 


03580 


LD 


A,B 


;P/u the DEC 


2657 321629 


03590 


LD 


(FCB+7) S A 


; & stuff 


265A 3A7C26 


03600 


LD 


A S (TSTMPW+1) 


;P/u drive 


265D 321529 


03610 


LD 


(FCB+6) S A 


; & stuff 


2660 3E01 


03620 


LD 


A,l 


;Set up FCB for remove 


2662 321029 


03630 


LD 


(FCB+1),A 




2665 3E80 


03640 


LD 


A S 80H 


;Show FCB as open 


2667 320F29 


03650 


LD 


(FCB) S A 




266A 110F29 


03660 


LD 


DE,FCB 


;Remove the f i le 


266D 


03670 


@@REMOV 


i 




266D 3E39 


00044 


LD 


A s 57 




266F EF 


00045 


RST 


40 




2670 C2DD27 


03680 


JP 


NZ 9 I0ERR 


;Jump on error 


2673 3EFF 


03690 


LD 


A s 0FFH 


;Show we don't have the 


2675 32E524 


03700 


LD 


(SCNH3A+1) S A 


; latest dir record 


2678 C3BD24 


03710 
03720 ; 


JP 


SCNH1 


;Loop 




03730 ; 


Routine 


j to get the master password & match it 




03740 ; 








267B 0E00 


03750 TSTMPW 


LD 


C s $~3> 


;Init to drive requested 


267D CD0427 


03760 


CALL 


GATRD 


;Read GAT into GATBUF 


2680 C0 


03770 


RET 


NZ 


;Back on error 


2681 2ACE2B 


03780 


LD 


HL 5 (GATBUF+0CEH) 


2684 11E042 


03790 


LD 


DE S PASSWORD 


;Password=" PASSWORD" ? 


2687 AF 


03800 


XOR 


A 




2688 ED52 


03810 


SBC 


HL,DE 




268A C8 


03820 
03830 ; 


RET 


Z 


;Back if PASSWORD 




03840 ; 


MPW is 


not "PASSWORD" 


- check entry match 




03850 ; 








268B 110000 


03860 PWPARM 


LD 


DE,0 


;P/u MPW string addr 


268E 212B28 


03870 


LD 


HL,MPW$ 


;Init prompt 


2691 CDA226 


03880 


CALL 


GETMPW 


;Hash parm or entry 
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LIBRARY Files 



PURGE - LS-DOS 6.2 



Page 



2694 C0 

2695 EB 

2696 2ACE2B 
2699 AF 
269A ED52 
269C 214328 
269F 3E3F 
26A1 C9 



26A2 CDA926 
26A5 C0 
26A6 3EE4 
26A8 EF 
26A9 7A 
26AA B3 
26AB 281D 
26AD 3C 
26AE 281A 



26B0 
26B3 
26B4 
26B6 
26B7 
26B9 
26BB 
26BD 
26BF 
26C1 
26C3 
26C4 
26C5 
26C6 
26C8 



21002A 

E5 

0608 

1A 

FE0D 

282F 

FE2C 

282B 

FE22 

2827 

13 

77 

23 

10EE 

1825 



26CA CD1527 
26CD C0 
26CE 



26CE 
26 D0 
26D1 
26D2 
26D5 
26D8 
26 D9 
26D9 
26 DB 
26 DC 
26 DF 
26 E0 
26E2 
26 E3 



3E0A 

EF 

C0 

010008 

21002A 

E5 

3E09 

EF 

DAEC27 

EB 

2600 

68 

19 



03890 

03900 

03910 

03920 

03930 

03940 

03950 

03960 

03970 

03980 

03990 

04000 GETMPW 

04010 

04020 

04030 

04040 GMPW1 

04050 

04060 

04070 

04080 

04090 ; 

04100 ; 

04110 ; 

04120 

04130 

04140 

04150 GMPW2 

04160 

04170 

04180 

04190 

04200 

04210 

04220 

04230 

04240 

04250 

04260 

04270 ; 

04280 ; 

04290 ; 

04300 GMPW3 

04310 

04320 

00046 

00047 

00048 

00049 

00050 

04330 

04340 

04350 

04360 

04370 

00051 

00052 

04380 

04390 

04400 

04410 

04420 



RET 

EX 

LD 

XOR 

SBC 

LD 

LD 

RET 



NZ 

DE 9 HL ;Xfer hashed MPW to DE 

HL,(GATBUF+0CEH) ;Grab pack MPW & 



A 

HL,DE 

HL,BADMPW$ 
A, 63 



check if user entered 

the pack MPW 
I nit error pointer 
Set extended error 
Z or NZ 



Routine to get 8-char password 

;Test if user entered MPW 



CALL 

RET 

LD 

RST 

LD 

OR 

JR 

INC 

JR 



GMPW1 

NZ 

A,0E4H 

28H 

A 9 D 

E 

Z,GMPW3 

A 

Z 9 GMPW3 



;Hash password (DE) to HL 
;Ret to what called 
;Test if user entered MPW 

; Prompt if not 
; or no operand 



Place entered password into buffer 



LD 

PUSH 

LD 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

INC 

LD 

INC 

DJNZ 

JR 



HL, BUFFER 

HL 

B 9 8 

A,(DE) 

CR 

Z 9 GMPW4 
i i 

Z,GMPW4 
i ii i 

Z 9 GMPW4 

DE 

(HL),A 

HL 

GMPW2 

GMPW5 



;Max entry of 8 chars 
;P/u pswd char 
;End of the line? 
;Space out if so 
; Comma separator? 

;Closing quote? 



;Xfer the char 
;Loop for 8 



Not entered as parm, grab from keyboard 

;Can't prompt in <D0> 
;Display request 



CALL CKINDO 

RET NZ 
@(<>DSPLY 

IFEQ 00H,1 



HL, 



A, 10 

40 

NZ 

BC 9 8<8 

HL 9 BUFFER 

HL 



LD 

ENDIF 

LD 

RST 

RET 

LD 

LD 

PUSH 

@@KEYIN 

LD A 9 9 

RST 40 

JP C, BREAK 

EX DE,HL 

LD H,0 

LD L 9 B 

ADD HL,DE 



;Max 8 chars input 
;Pt to buffer 

;Get parm input 



;Exit on Break 
;Buf start to DE 
;Buf len to HL 

;Pt to 1st unused pos 
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LIBRARY F 


iles 


PURGE - LS 


-DOS 6.2 Page 00009 


26E4 3E08 


04430 


LD 


A, 8 


;Calculate spaces neede 


26E6 90 


04440 


SUB 


B 




26 E7 2806 


04450 


JR 


Z,GMPW5 


;Ret if none needed 


26 E9 47 


04460 


LD 


B,A 


;Set counter for spaces 


26EA 3620 


04470 GMPW4 


LD 


(HL),' ' 


; & put them in 


26 EC 23 


04480 


INC 


HL 




26 ED 10FB 


04490 
04500 ; 


DJNZ 


GMPW4 






04510 ; 


Convert 


(SP) throu< 


3h (SP)+7 to upper case 




04520 ; 








26EF El 


04530 GMPW5 


POP 


HL 


;Rcvr pointer to buf 


26F0 E5 


04540 


PUSH 


HL 




26 Fl 0608 


04550 


LD 


B,8 


;Loop through field 


26F3 7E 


04560 GMPW6 


LD 


A,(HL) 




26F4 FE61 


04570 


CP 


'a' 




26F6 3806 


04580 


JR 


C.GMPW7 




26F8 FE7B 


04590 


CP 


'z'+l 




26FA 3002 


04600 


JR 


NC,GMPW7 




26FC CBAE 


04610 


RES 


5,(HL) 


;L/c -> U/C 


26 FE 23 


04620 GMPW7 


INC 


HL 




26FF 10F2 


04630 


DJNZ 


GMPW6 




2701 Dl 


04640 


POP 


DE 


;Rcvr ptr to start 


2702 AF 


04650 


XOR 


A 


;Indicate no error 


2703 C9 


04660 
04670 ; 


RET 








04680 ; 


Routine 


to read the 


; granule allocation table 




04690 ; 








2704 D5 


04700 GATRD 


PUSH 


DE 




2705 E5 


04710 


PUSH 


HL 




2706 FD5609 


04720 


LD 


D s (IY+9) 


;Dir cylinder 


2709 21002B 


04730 


LD 


HL,GATBUF 




270C 5D 


04740 


LD 


E,L 


;Set to sector 


270D 


04750 


@@RDSSC 






270D 3E55 


00053 


LD 


A, 85 




270F EF 


00054 


RST 


40 




2710 El 


04760 


POP 


HL 




2711 Dl 


04770 


POP 


DE 




2712 3E14 


04780 


LD 


A,14H 


; Init "GAT read error 


2714 C9 


04790 
04800 ; 


RET 




;Z or NZ 




04810 ; 


Routine 


to check if 


<DO> active 




04820 ; 








2715 FDE5 


04830 CKINDO 


PUSH 


IY 




2717 


04840 


@@FLAGS 






2717 3E65 


00055 


LD 


A, 101 




2719 EF 


00056 


RST 


40 




271A FDCB126E 04850 


BIT 


5 9 ( I Y+ ■ S ' - ' 


A') ;Set if DO active 


271E FDE1 


04860 


POP 


IY 




2720 C8 


04870 


RET 


Z 




2721 210428 


04880 


LD 


HL,NOINDO$ 




2724 3E3F 


04890 


LD 


A s 63 




2726 C9 


04900 
04910 ; 


RET 








04920 ; 


Parse fi le name or 


ext on command line 




04930 ; 








2727 FE24 


04940 PRSPEC 


CP 


'$' 


;Wi Id character? 


2729 2814 


04950 


JR 


Z,PRS2 


;Always a match 


272B FE41 


04960 


CP 


'A' 


;Ck on fi lename entry 


272D 3006 


04970 


JR 


NC S PRS1 


;Jump if possible alpha 


272F FE3A 


04980 


CP 


•9'+l 


;Ck on 0-9 


2731 D0 


04990 


RET 


NC 


;Bad if > 9 and < A 
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LIBRARY F 


iles 


PURGE - LS-DOS 


6.2 Page 00010 


2732 FE30 


05000 


CP 


'0' 




2734 D8 


05010 


RET 


C 


;Bad if < 


2735 FE61 


05020 PRS1 


CP 


'a' 


;Cvrt to UC if needed 


2737 3806 


05030 


JR 


C.PRS2 




2739 FE7B 


05040 


CP 


'z'+l 




273B 3002 


05050 


JR 


NC.PRS2 




273D CBAF 


05060 


RES 


5,A 




273F 12 


05070 PRS2 


LD 


(DE),A 


;Xfer char to buffer 


2740 13 


05080 


INC 


DE 


;Bump dest ptr 


2741 7E 


05090 


LD 


A,(HL) 


;Get next char 


2742 23 


05100 


INC 


HL 


;Burnp source ptr 


2743 10E2 


05110 


DJNZ 


PRSPEC 


;Loop 8 max 


2745 C9 


05120 
05130 ; 


RET 








05140 ; 


Routine to extract date 


i from directory 




05150 ; 








2746 7E 


05160 UNPACK 


LD 


A,(HL) 


;P/u DIR+1 


2747 E60F 


05170 


AND 


0FH 


;Remove flags 


2749 57 


05180 


LD 


D S A 


;Save month 


274A 23 


05190 


INC 


HL 


;Pt to DIR+2 


274B 7E 


05200 


LD 


A,(HL) 




274C E6F8 


05210 


AND 


0F8H 


; Strip year 


274E 5F 


05220 


LD 


E,A 


;Save day in E 


274F 7E 


05230 


LD 


A,(HL) 




2750 AB 


05240 


XOR 


E 


; Strip day fm year 


2751 0F 


05250 


RRCA 




;Shift year to 5-7 


2752 0F 


05260 


RRCA 






2753 0F 


05270 


RRCA 






2754 B2 


05280 


OR 


D 


; Merge with month 


2755 57 


05290 


LD 


D,A 




2756 C9 


05300 
05310 ; 


RET 








05320 ; 


Pack 


user date string 






05330 ; 








2757 7E 


05340 PAKDAT 


LD 


A,(HL) 




2758 0E2F 


05350 


LD 


C,7' 


; Ini t separator 


275A CDA227 


05360 


CALL 


PARSDAT 


; Parse entry 


275D 203C 


05370 


JR 


NZ,BADFMT 


;Jump on format error 


275F EB 


05380 


EX 


DE S HL 




2760 3AC828 


05390 


LD 


A S (LILBUF$) 


;Is year a leap year? 


2763 E603 


05400 


AND 


3 




2765 215C28 


05410 


LD 


HL,MAXDAYS+1 


;Set Feb to have 29 days 


2768 2001 


05420 


JR 


NZ,$+3 


; if so 


276A 34 


05430 


INC 


(HL) 




276B 3ACA28 


05440 


LD 


A,(LILBUF$+2) 


;P/u month 


276E 3D 


05450 


DEC 


A 


;Range check 


276F FE0C 


05460 


CP 


12 




2771 3028 


05470 


JR 


NC,BADFMT 


;Go if or >12 


2773 2B 


05480 


DEC 


HL 


; Point to Jan entry 


2774 85 


05490 


ADD 


A,L 


; Index the month 


2775 6F 


05500 


LD 


L,A 




2776 7C 


05510 


LD 


A,H 




2777 CE00 


05520 


ADC 


A,0 




2779 67 


05530 


LD 


H 9 A 




277A 3AC928 


05540 


LD 


A S (LILBUF$+1) 


;P/u day entry 


277D 3D 


05550 


DEC 


A 


;Reduce for test (0->FF) 


277E BE 


05560 


CP 


(HL) 




277F 301A 


05570 


JR 


NC.BADFMT 


;Go if too large (or 0) 


2781 21CA28 


05580 


LD 


HL 9 LILBUF$+2 


;Pt to month 


2784 7E 


05590 


LD 


A S (HL) 


;P/u month 


2785 2B 


05600 


DEC 


HL 


;Pt to day 
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LIBRARY Fi 


les 


PURGE - LS-DOS 6 


2 Page 00011 


2786 47 


05610 




LD 


B,A 


.Save month in B 


2787 7E 


05620 




LD 


A,(HL) 


P/u day 


2788 2B 


05630 




DEC 


HL 


,Pt to year 


2789 07 


05640 




RLCA 




.Shift day to 3-7 


278A 07 


05650 




RLCA 






278B 07 


05660 




RLCA 






278C 4F 


05670 




LD 


C,A 




278D 7E 


05680 




LD 


A,(HL) 


P/u year 


278E D650 


05690 




SUB 


80 


.Adjust for offset 


2790 3001 


05700 




JR 


NC,$+3 


;If entry < 1980, 


2792 AF 


05710 




XOR 


A 


then use 1980 


2793 0F 


05720 




RRCA 




.Shift into bits 5-7 


2794 0F 


05730 




RRCA 






2795 0F 


05740 




RRCA 






2796 B0 


05750 




OR 


B 


& merge with month 


2797 47 


05760 




LD 


B,A 




2798 EB 


05770 




EX 


DE,HL 




2799 AF 


05780 




XOR 


A 


;Set Z s no error 


279A C9 


05790 
05800 


» 


RET 






279B 216728 


05810 


BADFMT 


LD 


HL,BADFMT$ 


.Init error pointer 


279E 3E3F 


05820 




LD 


A, 63 


;Set extended error 


27A0 B7 


05830 




OR 


A 




27A1 C9 


05840 
05850 




RET 








05860 




Routine 


to parse DATE/TIME entry 




05870 










27A2 11CA28 


05880 


PARS DAT 


LD 


DE,LILBUF$+2 


; Point to buf end 


27A5 0603 


05890 




LD 


B,3 


;Process 3 fields 


27A7 D5 


05900 


PRSD1 


PUSH 


DE 


;Save pointer 


27A8 CDB727 


05910 




CALL 


PRSD2 


;Get a digit pair 


27AB Dl 


05920 




POP 


DE 


;Recover pointer 


27AC C0 


05930 




RET 


NZ 


;Ret if bad digit pair 


27AD 12 


05940 




LD 


(DE),A 


, else stuff the value 


27AE IB 


05950 




DEC 


DE 


;Backup the pointer 


27AF 05 


05960 




DEC 


B 


;Loop countdown 


27B0 C8 


05970 




RET 


Z 




27B1 7E 


05980 




LD 


A,(HL) 


;Ck for valid separator 


27B2 23 


05990 




INC 


HL 


;Bump pointer 


27B3 B9 


06000 




CP 


C 


Separator char required 


27B4 28F1 


06010 




JR 


Z.PRSD1 


;Loop if match 


27B6 C9 


06020 
06030 


9 


RET 




; else ret bad (NZ) 




06040 


» 


Routine 


to parse a digit 


pair 




06050 


» 








27B7 CDCE27 


06060 


PRSD2 


CALL 


PRS4 


;Get a digit 


27BA 3010 


06070 




JR 


NC 5 PRSD3 


;Jump if bad digit 


27BC 5F 


06080 




LD 


E,A 


;Multiply by ten 


27BD 07 


06090 




RLCA 






27BE 07 


06100 




RLCA 






27BF 83 


06110 




ADD 


A,E 




27C0 07 


06120 




RLCA 






27C1 5F 


06130 




LD 


E,A 




27C2 CDCE27 


06140 




CALL 


PRS4 


;Get another digit 


27C5 3005 


06150 




JR 


NC.PRSD3 


;Jump on bad digit 


27C7 83 


06160 




ADD 


A,E 


;Accumulate new digit 


27C8 5F 


06170 




LD 


E,A 


;Save 2-digit value 


27 C9 AF 


06180 




XOR 


A 


;Clear flags 


27CA 7B 


06190 




LD 


A,E 


;Xfer field value 


27CB C9 


06200 
06210 


» 


RET 
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27CC B7 




06220 


PRSD3 


OR 


A 


;Set NZ 


27CD C9 




06230 




RET 






27CE 7E 




06240 


PRS4 


LD 


A,(HL) 


;P/u a digit & 


27CF 23 




06250 




INC 


HL 


; convert to binary 


27D0 D630 




06260 




SUB 


•0' 




27D2 FE0A 




06270 




CP 


10 




27D4 C9 




06280 
06290 




RET 










06300 




Routine 


to compare DE to 


HL 






06310 










27D5 7C 




06320 CPHLDE 


LD 


A,H 




27D6 92 




06330 




SUB 


D 




27D7 C0 




06340 




RET 


NZ 




27D8 7D 




06350 




LD 


A,L 




27D9 93 




06360 




SUB 


E 




27DA C9 




06370 
06380 




RET 










06390 




Error processing 








06400 










27DB 3E2C 




06410 


PRMERR 


LD 


A, PAR ERR 


parameter Error 


27DD FE3F 




06420 


IOERR 


CP 


63 


;Extended error? 


27DF 281E 




06430 




JR 


Z,EXTERR 




27E1 6F 




06440 




LD 


L,A 




27E2 2600 




06450 




LD 


H,0 




27E4 F6C0 




06460 




OR 


0C0H 


;Abbrev & return 


27E6 4F 




06470 




LD 


C,A 




27E7 




06480 




TERROR 






27E7 3E1A 




00057 




LD 


A 5 26 




27 E9 EF 




00058 




RST 


40 




27EA 1806 




06490 
06500 




JR 


SAVESP 








06510 




BREAK handler routine 








06520 










27 EC 




06530 


BREAK 


(a@CKBRKC 


;Clear Break Bit 


27EC 3E6A 




00059 




LD 


A ,106 




27EE EF 




00060 




RST 


40 




27EF 21FFFF 




06540 ERREXIT 


LD 


HL S -1 




27F2 310000 




06550 


SAVESP 


LD 


SP,$~$ 


;Restore the stack 


27F5 22F927 




06560 




LD 


(RETCOD), HL 




27F8 




06570 


EXIT 


EQU 


$ 


;Exit clears Break 


27F8 210000 




06580 




LD 


HL,0 




27F9 




06590 RETCOD 


EQU 


$-2 




27FB 




06600 




@@CKBRKC 




27FB 3E6A 




00061 




LD 


A, 106 




27FD EF 




00062 




RST 


40 




27FE C9 




06610 
06620 


» 


RET 






27 FF 




06630 
00063 
00064 
00065 


EXTERR 


@@LOGOT 
IFEQ 
LD 
ENDIF 


00H,1 
HL, 




27FF 3E0C 




00066 




LD 


A, 12 




2801 EF 




00067 




RST 


40 




2802 18EB 




06640 




JR 


ERREXIT 




2804 49 




06650 


NOINDO$ 


DB 


1 Invalid command 


during <DO> ' 


6E 76 


61 


6C 69 64 20 63 






6F 6D 


6D 


61 6E 


64 20 64 






75 72 


69 


6E 67 


20 3C 44 






4F 3E 


20 












2820 70 




06660 




DB 


'processing' ,CR 




72 6F 


63 


65 73 


73 69 6E 
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67 

282B 4D 
61 
73 
20 

2843 49 
6E 
61 
73 

285B IF 
1C 
IF 

2867 42 
61 
66 

2877 50 
75 
65 

2884 7D 
20 

288A 50 
75 
03 

2894 4 A 
61 
41 
6E 
65 
44 

28B8 20 
20 
20 

28C3 00 



0D 

73 74 
73 77 
20 20 

76 61 
73 74 
73 77 

IF IE 
IE IF 

64 20 
6F 72 



72 67 
3A 20 

3F 20 

72 67 



6E 46 
70 72 
4A 75 
70 4F 
65 63 

20 20 
20 



0002 
0004 
001 B 

28E7 



0040 
0020 
0010 
28E8 53 

49 4E 56 
28ED 1325 
28 EF 53 

53 59 53 
28F4 0525 
28F6 73 

4D 50 57 
28FB 8C26 
28FD 55 

51 55 45 
2904 B025 
2906 34 

44 41 54 
290C 5624 



06670 MPW$ DB 
65 72 20 70 61 
6F 72 64 20 3F 
20 20 20 03 
06680 BADMPW$ DB 
6C 69 64 20 6D 
65 72 20 70 61 
6F 72 64 0D 
06690 MAXDAYS DB 
IF IE IF IF IE 

06700 BADFMT$ DB 

64 61 74 65 20 
6D 61 74 0D 
06710 ; 

06720 PRGFIL$ DB 

65 20 66 69 6C 
03 

06730 QMARK$ DB 
20 03 

06740 PURGES DB 
69 6E 67 3A 20 

06750 MQNTBL DM 
65 62 4D 61 72 
4D 61 79 4A 75 
6C 41 75 67 53 
63 74 4E 6F 76 

06760 BLANKS DM 
20 20 20 20 20 



06770 FTFLG DB 

06780 FMPAKD DS 2 

06790 TOPAKD DS 2 

06800 LILBUF$ DS 4 

06810 FCB1$ DS 27 

06820 ; 

06830 ; Parameter table 

06840 ; 

06850 PRMTBLS DB 

06860 VAL EQU 

06870 SW EQU 

06880 STR EQU 

06890 SGL EQU 

06900 DB 



Master password ? 



s 3 



'Invalid master password', CR 

31 ,28,31,30,31, 30, 31 ,31, 30, 31, 30, 31 
'Bad date format', CR 

'Purge file: ' ,3 

'} ? ',3 
'Purging: ' ,3 

' JanFebMarAprMayJunJulAugSepOctNovDec ' 



80 H 
80H 
40H 
20 H 
10H 
SW!SGL!3,'INV',0 



06910 

06920 

00 

06930 

06940 

00 

06950 

06960 

52 59 

06970 

06980 

45 00 

06990 



DW IPARM+1 

DB SW!SGL!3,'SYS',0 

DW SPARM+1 

DB SW!STR!SGL!3 S 'MPW',0 

DW PWPARM+1 

DB SW ! SGL !5,' QUERY ' ,0 

DW QPARM+1 

DB STR!SGL!4,'DATE',0 

DW DATPRM+1 
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290E 00 


07000 
07010 ; 


NOP 






0020 


07020 FCB 


DS 


32 




292F D630 


07030 PATCH1 


SUB 


'0' 


;Cvrt to binary 


2931 FE08 


07040 


CP 


7+1 




2933 D2DB27 


07050 


JP 


NC,PRMERR 




2936 4F 


07060 


LD 


C,A 




2937 C9 


07070 
07080 ; 


RET 






2938 C2DD27 


07090 PATCH2 


JP 


NZ,IOERR 


;Go on CKDRV error 


293B 3E0F 


07100 


LD 


A, 15 


;Init WP error 


293D DADD27 


07110 


JP 


C,IOERR 


;Exit if WP 


2940 C9 


07120 
07130 ; 


RET 






2A00 


07140 


ORG 


$<-8+l<+8 




0100 


07150 BUFFER 


DS 


256 




0100 


07160 GATBUF 


DS 


256 




0100 


07170 HITBUF 


DS 


256 




2CFF 


07180 LAST 
07190 ; 


EQU 


$-1 




2400 


07200 


END 


PURGE 
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mi 


0000 @@2 


0000 @@3 


0000 


(3(34 


0000 @MOD2 


0000 @M0D4 


FFFF 


BADFMT 


279B BADFMT$ 


2867 


BADMPW$ 


2843 


BEGINA 


2409 BLANKS 


28B8 


BREAK 


27 EC 


BUFFER 


2A00 CKINDO 


2715 


CKINV 


250E 


CKNAM 


251A CKTO 


2479 


CPHLDE 


27D5 


CR 


000D DATPRM 


2455 


DOEVER 


249D 


DONAM 


2574 DONAM1 


257E 


D0NAM4 


2596 


DONAM5 


25A0 DONAME2 


2588 


ERREXIT 


27EF 


EXIT 


27F8 EXTERR 


27FF 


FCB 


290F 


FCB1$ 


28CC FMPAKD 


28C4 


FRCTO 


2485 


FTFLG 


28C3 GATBUF 


2B00 


GATRD 


2704 


GETMPW 


26A2 GMPW1 


26A9 


GMPW2 


26B6 


GMPW3 


26CA GMPW4 


26EA GMPW5 


26EF 


GMPW6 


26F3 GMPW7 


26FE 


HITBUF 


2C00 


IOERR 


27DD IPARM 


2512 


LAST 


2CFF 


LF 


000A LILBUFS 


28C8 


MATCHES 


2573 


MAXDAYS 


285B MFLG 


253D 


MONTBL 


2894 


MPW$ 


282B NOINDO$ 


2804 


NOPRMPT 


263D 


PAKDAT 


2757 PARSDAT 


27A2 


PAR ERR 


002 C 


PASSWORD 


42 E0 PATCH1 


292F 


PATCH2 


2938 


PRGFIL$ 


2877 PRMERR 


27 DB 


PRMERRA 


2452 


PRMTBL$ 


28E7 PRS1 


2735 


PRS2 


273F 


PRS4 


27CE PRSD1 


27A7 


PRSD2 


27B7 


PRSD3 


27CC PRSPEC 


2727 


PUR0 


2421 


PUR1 


2432 PUR2 


243D 


PUR3 


2491 


PURGE 


2400 PURGES 


288A 


PURGE 1 


240 D 


PWPARM 


268B QMARK$ 


2884 


QPARM 


25AF 


RETCOD 


27F9 SAVESP 


27F2 


SCDAT1 


25CD 


SCDAT2 


25 E2 SCDAT4 


2618 


SCNH1 


24BD 


SCNH2 


24C1 SCNH3 


24 D4 


SCNH3A 


24E4 


SCNH4 


24F5 SCNH5 


2524 


SCN.H6 


2530 


SCNH6A 


2543 SCNH6B 


255F 


SCNHIT 


24BC 


SGL 


0010 SPARM 


2504 


STR 


0020 


SW 


0040 TOPAKD 


28C6 


TSTMPW 


267B 


UNPACK 


2746 VAL 


0080 @@ABORT 


AB4A 


(a@ADTSK 


ABDD (a@BANK 


B0F5 00BKSP 


ADD5 


@@BREAK 


B10B @(3CHNI0 


AB35 


00CKBRKC 


B159 


@@CKDRV 


AC31 (3(3CKEOF 


ADEA 


@(3CKTSK 


ABC 8 


@@CLOSE 


ADC0 @(3CLS 


B143 


<a@CMNDI 


AB74 


@@CMNDR 


AB89 (a@CTL 


A999 


(a@DATE 


AB0B 


00DCSTAT 


AC70 @@DEBUG 


ABB 3 


(a<s>DECHEX 


B075 


@(9DIRRD 


AFE2 @@DIRWR 


AFF7 


@@DIV16 


B060 


00DIV8 


B04B (PGDODIR 


AC 46 


@@DSP 


A95D 


@(9DSPLY 


A9FD TERROR 


AB9E 


@@EXIT 


AB5F 


(?(3FEXT 


AF4F (a@FLAGS 


B0DF 


@@FNAME 


AF64 


00FSPEC 


AF3A @(aGATRD 


AFCD 


@@GATWR 


B00C 


@@GET 


A971 @@GTDCB 


AF8E 


@@GTDCT 


AF79 


(a@GTMOD 


AFA3 @(9HDFMT 


AD18 


@@HEX16 


B0B4 


@@HEX8 


B09F @@HEXDEC 


B08A @@HIGH$ 


B0C9 


@@INIT 


AD96 @@KBD 


A9D5 


@(3KEY 


A949 


@@KEYIN 


A9E9 @@KLTSK 


AC1C 


@@LOAD 


AF10 


@@LOC 


ADFF @@LOF 


AE14 


@@LOGER 


AA34 


@@LOGOT 


AA49 (a@MSG 


AA80 @@MUL16 


B036 


(s>(s>MUL8 


B021 @@OPEN 


ADAB 


m PAR AM 


AAF6 


(?@PAUSE 


AAE1 @@PEOF 


AE29 


@@POSN 


AE3E 


(SPRINT 


AA95 m PRT 


A9AD 


@@PUT 


A985 


@@RAMDIR 


AC5B (3I9RDSEC 


ACEE 


00RDSSC 


AFB8 


@@READ 


AE53 @@REMOV 


AD81 


(apRENAM 


AD6C 


@(j>REW 


AE68 @@RMTSK 


ABF2 


(30RPTSK 


AC 07 
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@@RREAD AE7D @@RSLCT ACD9 @@RSTOR AC9A 

@@RUN AF25 @@RWRIT AE92 @@SEEK ACC4 

©GSEEKSC AEA7 @@SKIP AEBC (9@SLCT AC85 

@@STEPI ACAF <3(3TIME AB20 @@VDCTL AACC 

@@VER AED1 @(s>VRSEC AD03 @@WE0F AEE6 

00WHERE A9C1 @@WRITE AEFB (a@WRSEC AD2D 

@@WRSSC AD42 @@WRTRK AD57 

2400 is the transfer address 

Total errors 
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ISAM # : 18H 
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00100 ;LBREMOVE/ASM - REMOVE command 

00110 TITLE <REM0VE - LS-DOS 6.2> 

00120 ; 

00130 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 



;Misc. equates 



2400 

2400 
2400 3E6A 

2402 EF 

2403 2804 
2405 21FFFF 

2408 C9 

2409 ED731B24 
240D CD3724 

2410 1805 



2412 21FFFF 
2415 1803 

2417 210000 
241A 310000 
241D 

241D 3E6A 
241F EF 
2420 C9 



2421 212C25 
2424 



2424 3E0C 

2426 EF 

2427 21FFFF 
242A 18EE 



242C 6F 
242D 2600 
242F F6C0 

2431 4F 
2432 

2432 3E1A 

2434 EF 

2435 18E3 



Z,BEGINA 
HL,-1 



(SAVESP+1),SP 

REMOV 

EXIT 



;Break key down? 



;0k if not 
: else abort 



;Save Stack 

;Do the removing 



03900 *LIST ON 

00140 *GET VALUES: 3 

03920 ; VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00150 ; 

00160 ORG 2400H 

00170 ; 

00180 REMOVE (s>(aCKBRKC 

00001 LD A, 106 

00002 RST 40 
00190 JR 
00200 LD 
00210 RET 
00220 ; 

00230 BEGINA LD 

00240 CALL 

00250 JR 
00260 ; 

00270 ; Exit Routine - Clear any <BREAK> & return 

00280 ; 

00290 BRKABT 

00300 LD HL.-l 

00310 JR SAVESP 

00320 ; 

00330 EXIT LD HL,0 

00340 SAVESP LD SP,$-$ 

00350 (a^CKBRKC 

00003 LD A, 106 

00004 RST 40 
00360 RET 
00370 ; 

00380 ; Special Message Exit 
00390 ; 

00400 SPCREQ LD HL,SPCREQ$ 

00410 0GLOGOT 

IFEQ 00H,1 
LD HL, 

00007 ENDIF 

00008 LD A, 12 

00009 RST 40 

00420 ERREXIT LD HL,-1 

00430 

00440 

00450 

00460 

00470 IOERR LD L,A 

00480 LD H,0 

00490 OR 0C0H 

00500 LD C,A 

00510 TERROR 

00010 LD A, 26 

00011 RST 40 
00520 JR SAVESP 
00530 ; 



;Abort with error 

;Set ret cod if exiting 

;P/u stack 

;Clear <BREAK> if entered 



and Return 



JR SAVESP 
I/O Error Exit 



;Get stack & RET 



;Error # to HL 

;Abbrev, return 
;Error code to reg C 



;P/u stack & return 
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2437 E5 

2438 AF 

2439 El 
243A C22C24 



243D 

243D 3E6A 
243F EF 
2440 20D0 

2442 2B 

2443 23 

2444 7E 

2445 FE20 
2447 28FA 
2449 D8 



244A 115B25 
244D 

244D 3E4E 
244F EF 
2450 C22124 
2453 E5 



2454 D5 

2455 EB 

2456 114C25 
2459 CD0B25 
245C 3E0D 
245 E 12 
245F Dl 



2460 1A 

2461 FE2A 
2463 2843 



2465 
2465 3E3B 

2467 EF 

2468 2804 
246A FE2A 
246C 20CB 



246E 3A5C25 
2471 E607 
2473 FE02 
2475 3E25 



LIBRARY Files REMOVE - LS-DOS 6.2 Page 

00540 ; REMOV - Remove file(s) or device(s) 

00550 ; 

00560 REMOV PUSH HL ;Save INBUF$ pointer 

00570 REMOV0 XOR A ;Set Z-flag for loop 

00580 REMOV1 POP HL 



00590 



00610 
00620 
00630 
00012 
00013 



JP NZ,IOERR 

Skip leading spaces - exit on terminator 

;Check for break 



(90CKBRKC 
LD A, 106 
RST 40 
JR 



NZ,BRKABT 



00650 
00660 



DEC 



HL 
HL 
A,(HL) 



; abort if so 
; Ski p past spaces 



00670 REMOV2 INC 

00680 LD 

00690 CP ' ' 

00700 JR Z.REMOV2 

00710 RET C 

00720 ; 

00730 ; Hit a non-space char - is this a filespec ? 

00740 ; 

00750 REMOV3 LD DE,FCB 



;Return on terminator 



00760 
00014 
00015 
00770 
00780 
00790 
00800 
00810 



@@FSPEC 

LD A,78 

RST 40 

JP NZ,SPCREQ 

PUSH HL 



;Fetch the filespec 



;Jump on spec error 
;Save INBUF$ pointer 



Transfer Filespec to buff without password 



00830 



00850 
00860 
00870 
00880 



PUSH 

EX 

LD 

CALL 

LD 

LD 

POP 



DE 

DE,HL 

DE,FILESPC 

MOVSPC 

A,CR 

(DE),A 

DE 



;Save FCB ptr 
;Pt HL => FCB 
;DE => Filespec 
;Move filespec 
;End spec with C/R 



00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 



;Recover FCB 
Are we Removing a Device ? 

;Is it a device? 
Z,RMVDVC 
Removing a File - Does it exist ? 



LD 
CP 
JR 



A,(DE) 



GWEN 

LD A, 59 

RST 40 

JR Z,GOODOPN 

CP 42 

JR NZ,REMOVl 



Z - it does exist 
LRL Open Fault ? 
No - abort 



;Open the file 
00016 
00017 
00990 
01000 
01010 
01020 ; 
01030 ; 
01040 ; 

01050 GOODOPN LD A,(FCB+1) ;P/u access level 
01060 AND 7 

01070 CP 2 ;REMOVE access ? 

01080 LD A, 37 ;No - "Illegal access 



Successful Open - Can we Remove the file ? 
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2477 D22C24 


01090 
01100 ; 


JP 


NC s IOERR 


; attempted to ..." 




01110 ; 


Is ther 


e a drivespec 


. in the filespec ? 




01120 ; 








247A 214C25 


01130 


LD 


HL,FILESPC 


;HL => Filespec 


2470 7E 


01140 FLOOP 


LD 


A S (HL) 


;P/u char 


247E FE0E 


01150 


CP 


CR+1 


;End of Filespec ? 


2480 300E 


01160 
01170 ; 


JR 


NC s CHKDSPC 






01180 ; 


Drivespec wasn't specified - put it on 




01190 ; 








2482 363A 


01200 


LD 


(HL),':' 


;Append drivespec onto 


2484 23 


01210 


INC 


HL 


; end of filespec 


2485 3A6125 


01220 


LD 


A 9 (FCB+6) 


;Xfer drive # to A 


2488 C630 


01230 


ADD 


A 9 '0' 


;Convert to ASCII 


248A 77 


01240 


LD 


(HL) S A 




248B 23 


01250 


INC 


HL 


;Bump 


248C 360D 


01260 


LD 


(HL).CR 


;End of filespec 


248E 1805 


01270 
01280 ; 


JR 


SHOWFIL 


;Dsply name & remove it 




01290 ; 


Stop when ":*' hit or 


terminator 




01300 ; 








2490 FE3A 


01310 CHKDSPC 


CP 


i . i 


;Already have one ? 


2492 23 


01320 


INC 


HL 




2493 20E8 


01330 
01340 ; 


JR 


NZ s FLOOP 






01350 ; 


Display 


"Removing Fi 


lespec" & remove it 




01360 ; 








2495 CD9D24 


01370 SHOWFIL 


CALL 


SHOWIT 


; "Removing:" 


2498 


01380 


00REMOV 




;Remove the f i le 


2498 3E39 


00018 


LD 


A, 57 




249A EF 


00019 


RST 


40 




249 B 189C 


01390 
01400 ; 


JR 


REMOVl 


;Loop for more 




01410 ; 


Display 


Filespec or 


Devspec 




01420 ; 








249D 214225 


01430 SHOWIT 


LD 


HL, SHOWS 


;Show what we are 


24A0 D5 


01440 


PUSH 


DE 


;Save FCB ptr 


24A1 


01450 


(a@DSPLY 




; removing 




00020 


IFEQ 


00H S 1 






00021 


LD 


HL, 






00022 


ENDIF 






24A1 3E0A 


00023 


LD 


A, 10 




24A3 EF 


00024 


RST 


40 




24A4 Dl 


01460 


POP 


DE 




24A5 2092 


01470 


JR 


NZ,REM0V1 


;NZ - abort 


24A7 C9 


01480 
01490 ; 


RET 




; else RETurn Z 




01500 ; 


Routine 


to Remove a 


device 




01510 ; 








24A8 D5 


01520 RMVDVC 


PUSH 


DE 


;Xfer FCB ptr to IX 


24 A9 DDE1 


01530 


POP 


IX 




24AB DD5E01 


01540 


LD 


E,(IX+1) 


;P/u device name 


24AE DD5602 


01550 
01560 ; 


LD 


D,(IX+2) 






01570 ; 


Routine 


to find a de 


vice in the device tables 




01580 ; 








24B1 


01590 


@(<>GTDCB 




;Find this DCB 


24B1 3E52 


00025 


LD 


A, 82 




24B3 EF 


00026 


RST 


40 




24B4 2083 


01600 


JR 


NZ,REM0V1 


;Abort if not found 
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01610 ; 










01620 ; 


Found device in tables, 


is it kill able? 




01630 ; 








24B6 ED534025 


01640 DEV4 


LD 


(RENDEV+1),DE 


;Try to rename it 


24BA E5 


01650 


PUSH 


HL 


;Save address pointer 


24BB 213F25 


01660 


LD 


HL,RENDEV 


;New & old names same 


24BE 50 


01670 


LD 


E,L 




24BF 54 


01680 


LD 


D,H 




24 C0 


01690 


@@RENAM 




24C0 3E38 


00027 


LD 


A, 56 




24C2 EF 


00028 


RST 


40 




24C3 El 


01700 


POP 


HL 


;Rcvr address pointer 


24C4 FE13 


01710 


CP 


19 


;If not "illegal name" 


24C6 C23924 


01720 
01730 ; 


JP 


NZ,REM0V1 


; error, is protected 




01740 ; 


Device 


not system device - is it in use? 




01750 ; 








24C9 CB5E 


01760 CKNILL 


BIT 


3,(HL) 


;Test NIL device 


24 CB 2006 


01770 


JR 


NZ, REMOVIT 


;OK if NIL (not in use) 


24CD 3E27 


01780 


LD 


A,27H 


; else "device in use" 


24CF B7 


01790 


OR 


A 




24 D0 C33924 


01800 
01810 ; 


JP 


REM0V1 


; and return error 




01820 ; 


Remove 


the device 






01830 ; 








24D3 CD0325 


01840 REMOVIT 
01850 ; 


CALL 


SCND4 


;Zero 8-byte DCB area 




01860 ; 


Any other device routes 


to the removed one? 




01870 ; 








24 D6 114B49 


01880 SCNDCB 


LD 


DE.'IK' 


; Point to begin of area 


24 D9 


01890 


00GTDCB 




24D9 3E52 


00029 


LD 


A, 82 




24 DB EF 


00030 


RST 


40 




24 DC CB66 


01900 SCND1 


BIT 


4,(HL) 


;Routed device? 


24DE 2811 


01910 


JR 


Z,SCND2 


;Jump if not 


24E0 E5 


01920 


PUSH 


HL 


;Save DCB pointer 


24E1 2C 


01930 


INC 


L 


; Bypass TYPE code 


24E2 7E 


01940 


LD 


A,(HL) 


;P/u route vector 


24E3 2C 


01950 


INC 


L 


; lo-order 


24E4 66 


01960 


LD 


H 9 (HL) 


;P/u vector hi -order 


24E5 6F 


01970 


LD 


L,A 




24E6 7E 


01980 


LD 


A,(HL) 


;P/u TYPE code of nest 


24E7 El 


01990 


POP 


HL 


;Rcvr DCB pointer 


24E8 B7 


02000 


OR 


A 


;If TYPE=0, we killed 


24E9 2006 


02010 


JR 


NZ,SCND2 


; the routed device 


24EB 3E08 


02020 


LD 


A, 8 




24ED B6 


02030 


OR 


(HL) 


;Convert to NIL if so 


24EE 77 


02040 


LD 


(HL),A 




24EF 18E5 


02050 
02060 ; 


JR 


SCNDCB 






02070 ; 


Point 1 


:o next device 






02080 ; 








24F1 7D 


02090 SCND2 


LD 


M g L 


;Advance to next DCB area 


24F2 C608 


02100 


ADD 


A s 8 


;Loop through all 


24F4 6F 


02110 


LD 


L,A 


; devices while checking 


24F5 20E5 


02120 
02130 ; 


JR 


NZ,SCND1 


;Loop until table end 




02140 ; 


Device 


table cleared, now zero the DCB/FCB 




02150 ; 








24F7 DDE5 


02160 


PUSH 


IX 


;Xfer vector to HL 


24F9 El 


02170 


POP 


HL 
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24FA CD0325 


02180 




CALL 


SCND4 




24FD CD9D24 


02190 




CALL 


SHOWIT 


;Show "Removing:" 


2500 C33824 


02200 
02210 


» 


JP 


REMOV0 


;Next ... 


2503 0608 


02220 


SCND4 


LD 


B,8 


;Clear 8 bytes 


2505 AF 


02230 




XOR 


A 




2506 77 


02240 


SCND5 


LD 


(HL),A 


;Go for it 


2507 23 


02250 




INC . 


HL 




2508 10FC 


02260 




DJNZ 


SCND5 




250A C9 


02270 
02280 


» 


RET 








02290 


» 


Transfi 


er a filespec 


from HL to DE 




02300 


s 








250B 7E 


02310 


MOV S PC 


LD 


A,(HL) 


;P/u a spec character 


250C FE2F 


02320 




CP 


'/' 


;Extension ? 


250E 2008 


02330 




JR 


NZ,CKSPACE 


;No - check if space 


2510 23 


02340 




INC 


HL 


;Is the next character 


2511 7E 


02350 




LD 


A,(HL) 


; valid ? 


2512 FE41 


02360 




CP 


'A' 




2514 3802 


02370 




JR 


CCKSPACE 


;No - don't output it 


2516 2B 


02380 




DEC 


HL 


;Back one 


2517 7E 


02390 




LD 


A 9 (HL) 


;P/u slash 


2518 FE20 


02400 CKSPACE 


CP 


i i 




251A D8 


02410 




RET 


C 


;Stop on space or less 


251B FE2E 


02420 




CP 


i i 


; Password ? 


251D 2009 


02430 




JR 


NZ s MOVSPCl 




251F 23 


02440 


SKIPPW 


INC 


HL 




2520 7E 


02450 




LD 


A S (HL) 




2521 FE20 


02460 




CP 


■ i 




2523 D8 


02470 




RET 


C 


;Back on terminator 


2524 FE3A 


02480 




CP 


■ . i 




2526 20F7 


02490 




JR 


NZ 9 SKIPPW 




2528 EDA0 


02500 MOVSPC1 


LDI 




;Move the char 


252A 18DF 


02510 
02520 


» 


JR 


MOVSPC 




252C 46 


02530 SPCREQ$ DB 


'File spec i 


required' ,CR 


69 6C 65 


20 73 


70 65 63 






20 72 65 


71 75 


69 72 65 






64 0D 












253F 2A 


02540 RENDEV 


DB 


'*LS' 




4C 53 












2542 52 


02550 SHOWS 


DB 


'Removing: 


i 


65 6D 6F 


76 69 


6E 67 3A 






20 












000F 


02560 FILESPC 


DS 


15 




255B 00 


02570 FCB 


DB 







001 F 


02580 
02590 


» 


DS 


31 




2400 


02600 




END 


REMOVE 
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(3(c) 1 


0000 002 


0000 @@3 


0000 


(a@4 


0000 @MOD2 


0000 0MOD4 


FFFF 


ABB 


0010 AP 


0027 


BEGINA 


2409 


BREAK 


0080 BRKABT 


2412 


BS 


0008 


CFLAG$ 


0002 CHKDSPC 


2490 


CKNILL 


24C9 


CK SPACE 


2518 CR 


000D DEV4 


24B6 


DFLAGS 


0003 ERREXIT 


2427 


ETX 


0003 


EXIT 


2417 FCB 


255B 


FILESPC 


254C 


FLAG 


0040 FLOOP 


247D GOODOPN 


246E 


IOERR 


242C KFLAG$ 


000A LF 


000A 


MOVSPC 


250B MOVSPC1 


2528 


NUM 


0080 


PAR ERR 


002C REMOV 


2437 


REMOV0 


2438 


REMOV1 


2439 REMOV2 


2443 


REMOV3 


244A 


REMOVE 


2400 REMOV IT 


24 D3 


RENDEV 


253F 


RMVDVC 


24A8 SAVESP 


241A 


SCND1 


24 DC 


SCND2 


24F1 SCND4 


2503 


SCND5 


2506 


SCNDCB 


24 D6 SFLAG$ 


0012 


SHOWS 


2542 


SHOWFIL 


2495 SHOWIT 


249D 


SKIPPW 


251F 


SPCREQ 


2421 SPCREQ$ 


252C 


STR 


0020 


TAB 


0009 VFLAG$ 


0015 


@(3ABORT 


817D 


@@ADTSK 


8210 @@BANK 


8728 


@@BKSP 


8408 


@@BREAK 


873E @(s»CHNIO 


8168 


@@CKBRKC 


878C 


(i>(aCKDRV 


8264 (a@CKEOF 


841D 


@@CKTSK 


81FB 


@@CLOSE 


83F3 GX3CLS 


8776 


@@CMNDI 


81A7 


(a@CMNDR 


81 BC @@CTL 


7FCC 


00DATE 


813E 


GGDCSTAT 


82A3 @@DEBUG 


81E6 


(a@DECHEX 


86A8 


@@DIRRD 


8615 (iXaDIRWR 


862A 


@@DIV16 


8693 


@@DIV8 


867E @(3DODIR 


8279 


@@DSP 


7F90 


@(aDSPLY 


8030 TERROR 


81D1 


@@EXIT 


8192 


@@FEXT 


8582 DFLAGS 


8712 


00FNAME 


8597 


@@FSPEC 


856 D GQGATRD 


8600 @@GATWR 


863F 


@@GET 


7FA4 @@GTDCB 


85C1 


G@GTDCT 


85 AC 


@(s>GTMOD 


85D6 (9@HDFMT 


834B 


@(3HEX16 


86 E7 


@@HEX8 


86 D2 W HEX DEC 


86BD @@HIGH$ 


86 FC 


@@INIT 


83C9 (a@KBD 


8008 @(a KEY 


7F7C 


@@KEYIN 


801C @@KLTSK 


824F 


@@LOAD 


8543 


@@LOC 


8432 @@LOF 


8447 


@@LOGER 


8067 


@@LOGOT 


807 C GK3MSG 


80B3 (a@MUL16 


8669 


(a@MUL8 


8654 @@OPEN 


83DE 


(PGPARAM 


8129 


@@ PAUSE 


8114 (<>(apEOF 


845C 


@(3POSN 


8471 


SPRINT 


80C8 (a@PRT 


7FE0 (a@PUT 


7FB8 


(a^RAMDIR 


828E GGRDSEC 


8321 


@(9RDSSC 


85 EB 


(SPREAD 


8486 @@REMOV 


83B4 (a<aRENAM 


839F 


@@REW 


849 B @@RMTSK 


8225 


GXaRPTSK 


823A 


@@RREAD 


84B0 @(9RSLCT 


830C (JXPRSTOR 


82CD 


@@RUN 


8558 (90RWRIT 


84C5 


00SEEK 


82F7 


@@SEEKSC 


84DA mSKIP 


84 EF 


00SLCT 


82 B8 


m STEP I 


82E2 (a@TIME 


8153 


(30VDCTL 


80FF 


@@VER 


8504 (PGVRSEC 


8336 


(a(<>WEOF 


8519 


(a^WHERE 


7FF4 @@WRITE 


852E 


(aiawRSEC 


8360 


@@WRSSC 


8375 @@WRTRK 


838A 






2400 is the 


transfer address 








00000 Total 


errors 
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00100 ;LBRENAME/ASM - RENAME Command 

00110 TITLE <RENAME - LS-DOS 6.2> 

00120 ; 

00130 *GET SVCMAC:3 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00140 *GET VALUES: 3 

03920 ; VALUES/ASM - Version 6 

03930 *LIST OFF 

04200 *LIST ON 

00150 ; 



;SVC Macro equivalents 



;Misc. equates 



0000 


00160 
00170 


INH 

» 


EQU 





;Inhibit LRL Fault 


2400 


00180 
00190 


» 


ORG 


2400H 




2400 


00200 RENAME 


(3(3CKBRKC 


; Break key down? 


2400 3E6A 


00001 




LD 


A, 106 




2402 EF 


00002 




RST 


40 




2403 2804 


00210 




JR 


Z.BEGINA 


;Ok if not 


2405 21FFFF 


00220 




LD 


HL.-l 


; else abort 


2408 C9 


00230 
00240 


» 


RET 






2409 ED733224 00250 


BE6INA 


LD 


(SAVESP+D.SP 


;Save SP 


240D CD3824 


00260 




CALL 


RE NAM 


; Rename File/ Device 


2410 210000 


00270 




LD 


HL.0 


; Ini t successful 


2413 281C 


00280 
00290 




JR 


Z, SAVESP 


;Z - successful rename 




00300 




I/O Error Processing 






00310 










2415 6F 


00320 


IOERR 


LD 


L,A 


; Error # to HL 


2416 2600 


00330 




LD 


H,0 




2418 F6C0 


00340 




OR 


0C0H 


;Set to brief & return 


241A 4F 


00350 




LD 


C,A 


;Xfer error code 


241B 


00360 




(TERROR 






241B 3E1A 


00003 




LD 


A, 26 




241D EF 


00004 




RST 


40 




241E 1811 


00370 
00380 




JR 


SAVESP 


;Restore stack & RET 




00390 




Internal Message Error 


Processing 




00400 










2420 21C325 


00410 


SPCERR 


LD 


HL,SPCERR$ 




2423 DD 


00420 




DB 


0DDH 




2424 21D725 


00430 


DUPNAM 


LD 


HL,DUPNAM$ 




2427 DD 


00440 




DB 


0DDH 




2428 21EB25 


00450 TOWHAT 


LD 


HL,TOWHAT$ 




242B 


00460 




(30LOGOT 








00005 




IFEQ 


00H,1 






00006 




LD 


HL, 






00007 




ENDIF 






242B 3E0C 


00008 




LD 


A, 12 




242D EF 


00009 




RST 


40 




242E 21FFFF 


00470 
00480 




LD 


HL,-1 






00490 




Clean up stack & clear 


any pending <BREAK>s 




00500 










2431 310000 


00510 


SAVESP 


LD 


SP,$-$ 


;P/u original SP 


2434 


00520 




GXaCKBRKC 


;Clear any <BREAK> 


2434 3E6A 


00010 




LD 


A, 106 




2436 EF 


00011 




RST 


40 




2437 C9 


00530 




RET 
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2438 
2439 
243C 
243C 

243 E 
243F 
2440 
2440 
2442 
2443 
2446 
2446 
2448 
2449 
244B 

244 E 

244 E 
2450 
2451 
2454 
2457 
2459 
245C 

245 F 
2462 
2463 
2465 
2468 
2469 
246B 



E5 
117526 

3E4E 

EF 

El 

3E65 

EF 

112326 

3E4E 
EF 

20D5 
110326 

3E4E 

EF 

C43C25 

3A0326 

FE0F 

DA2824 

212326 

110326 

7E 

FE2A 

CA0625 

1A 

FE2A 

28B3 



00540 ; 
00550 ; 
00560 ; 
00570 RE NAM 
00580 
00590 
00012 
00013 



RENAM - Rename a filespec or devspec 



246D 117526 
2470 FDCB12C6 
2474 
2474 3E3B 

2476 EF 

2477 C0 

2478 ED4B7B26 



247C E5 
247D 7E 
247E FE0E 
2480 300F 



2482 363A 

2484 23 

2485 79 

2486 C630 

2488 77 

2489 32A924 
248C 23 
248D 360D 



00610 

00014 

00015 

12)0620 

00630 

00016 

00017 

00640 

00650 

00660 

00013 

00019 

00670 

00680 REN1 

00690 

00700 

00710 

00720 

00730 

00740 

00750 

00760 

00770 

00780 

00790 ; 

00800 ; 

00810 ; 

00820 



00840 
00020 
00021 
00850 
00860 
00870 



00900 

0091$ FLOOP 

00920 

00930 

00940 ; 

00950 ; 

00960 ; 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 



PUSH HL 

LD DE.TEMPFCB 

(a@FSPEC 

LD A, 78 

RST 40 

POP HL 

@(3FLAGS 

LD A, 101 

RST 40 

LD DE,OLDFCB 

GGFSPEC 

LD A, 78 

RST 40 

JR NZ.SPCERR 

LD DE.NEWFCB 

(a@FSPEC 

LD A, 78 

RST 40 

CALL 

LD 

CP 

JP 

LD 

LD 

LD 

CP 

JP 

LD 

CP 

JR 



;Save and line ptr 
;Xfer Filespec to buffer 



; Ignore error 
;IY => Flag Table 



NZ.CVRTUC 

A,(NEWFCB) 

CR+2 

CTOWHAT 

HL,OLDFCB 

DE.NEWFCB 

A,(HL) 
• *« 

Z.DEVREN 
A,(DE) 

Z.SPCERR 



;Get filespec 



;Quit if bad source name 
;Get new name 



Cvrt partial spec to UC 
If new name starts out 
with something less 
than X'0E', to what ? 



;Check on device rename 



;01d is file, new must 
: be also 



Renaming Files - Can we OPEN old file ? 



LD 

SET 

@@0PEN 

LD 

RST 

RET 

LD 



DE.TEMPFCB ;Can we OPEN it ? 

INH,(IY+SFLAG$) ; Inhibit open bit set 

A, 59 

40 

NZ ;NZ - "File not Found" 

BC,(TEMPFCB+6) ;P/u drive #/DEC 



Good Open - Is there a drivespec in string ? 



PUSH HL 

LD A,(HL) 

CP CR+1 

JR NC.CHKDSPC 



;Save ptr 
;P/u char 
;End of Filespec ? 



Drivespec wasn't specified - put it on 



LD (HL),':' 

INC HL 

LD A,C 

ADD A,'0' 

LD (HL),A 

LD (OLD_DRV+l),A 

INC HL 

LD (HL),CR 



;Append drivespec onto 
; end of filespec 
;Xfer drive # to A 
;Convert to ASCII 

; Self -modify NEW FCB 

;Bump 

;End of filespec 
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248F 1809 



2491 FE3A 

2493 23 

2494 20E7 

2496 7E 

2497 32A924 
24 9A El 
249B 110326 
249E CD6125 



24A1 D5 
24A2 1A 
24A3 13 
24A4 FE3A 
24A6 20FA 
24A8 3E00 
24AA 12 
24AB Dl 



24AC E5 
24AD D5 
24AE EB 
24AF 117526 
24B2 FDCB12C6 
24B6 

24B6 3E4E 
24B8 EF 
24B9 

24B9 3E3B 
24BB EF 
24BC CA2424 
24BF Dl 
24C0 El 
24C1 E5 
24C2 D5 



01050 
01060 



24C3 
24C6 
24C9 
24CC 
24 CF 
24 Dl 
24 D2 
24 D3 
24 D6 
24 D8 
24 D9 



114D26 

CDE524 

21FE25 

010400 

EDB0 

El 

E5 

CDE524 

3E0D 

12 



24D9 214326 

24 DC 3E0C 
24 DE EF 



01080 ; 

01090 CHKDSPC 

01100 

01110 

01120 

01130 

01140 DQMATCH 

01150 

01160 

01170 ; 

01180 ; 

01190 ; 

01200 

01210 F2LOOP 

01220 

01230 

01240 

01250 OLD_DRV 

01260 

01270 

01280 ; 

01290 ; 

01300 ; 

01310 

01320 

01330 

01340 

01350 

01360 

00022 

00023 

01370 

00024 

00025 

01380 

01390 

01400 

01410 REN2 

01420 

01430 ; 

01440 ; 

01450 ; 

01460 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

00026 

00027 

00028 

00029 

00030 



JR DOMATCH ;Get defaults 
Stop when ":" hit or terminator 

' : ■ ;Already have one ? 



CP ':' 

INC HL 

JR NZ,FLOOP 

LD A,(HL) '. 

LD (OLD_DRV+l) 9 A 

POP HL 

LD DE.NEWFCB 

CALL MATCH 



;P/u drive # 
; Self -modify NEW FCB 
;HL => Old FCB 
;DE => New FCB 



Make sure NEW drivespec is same as OLD one 



PUSH 

LD 

INC 

CP 

JR 

LD 

LD 

POP 



DE 

A S (DE) 

DE 

NZ 9 F2L00P 
A s $-$ 
(DE) S A 
DE 



;Save New 
:Go until ":" 



;P/u OLD drivespec 
; Overwrite 
;Restore DE 



Does the NEW filename already exist ? 



PUSH HL 

PUSH DE 

EX DE 9 HL 

LD DE 9 TEMPFCB 

SET INH,(IY+SFLAG$) 

@@FSPEC 

LD A, 78 

RST 40 

@@OPEN 

LD A 9 59 

RST 40 

JP Z 9 DUPNAM 

POP DE 

POP HL 

PUSH HL 

PUSH DE 



;Save OLD ptr 
;Save NEW ptr 

;DE => Temp buffer 

;Xfer filespec 

;Fi le already exist ? 



;Error if so 
;Restore ptrs 

;OLD Filename/Device 
;NEW Filename/ Device 



Xfer the OLD & NEW specs to SPECS minus PASSWORD 

;Move the OLD spec 



LD 

CALL 

LD 

LD 

LDIR 

POP 

PUSH 

CALL 

LD 

LD 



DE 9 SPECS$ 
MOV S PC 
HL,TO$ 
BC 9 4 . 



HL 
HL 

MOVSPC 
A,CR 
(DE) 9 A 
(a@LOGOT RENAMS 
IFEQ 01H.1 
LD HL 9 RENAM$ 

ENDIF 

LD A,12 
RST 40 



;Move ' to ' 
;Recover NEW spec 

;Move the NEW spec 

; Terminate with CR 
;Send names to video 



Page 330 



The Source 


LIBRARY Fi 


les 


RENAME - LS 


-DOS 


6.2 Page 00004 


24 DF El 


01570 




POP 


HL 




;Recover new 


24E0 Dl 


01580 




POP 


DE 




;Recover old 


24E1 


01590 




@@RENAM 






; Rename file 


24E1 3E38 


00031 




LD 


A, 56 






24E3 EF 


00032 




RST 


40 






24E4 C9 


01600 
01610 




RET 






;Return with condition 




01620 
01630 
01640 f 




MOV S PC 


- Create Sec 


3ndary Spec 


24E5 7E 


WVSPC 


LD 


A,(HL) 




;P/u a spec character 


24E6 FE2F 


01650 




CP 


7' 




;Extension ? 


24 E8 2008 


01660 




JR 


NZ, CKSPACE 




;No - check if space 


24EA 23 


01670 




INC 


HL 




;Is the next character 


24EB 7E 


01680 




LD 


A,(HL) 




; valid ? 


24EC FE41 


01690 




CP 


'A' 






24 EE 3802 


01700 




JR 


C, CKSPACE 




;No - don't output it 


24F0 2B 


01710 




DEC 


HL 




;Back one 


24F1 7E 


01720 




LD 


A,(HL) 




;P/u slash 


24F2 FE20 


01730 CKSPACE CP 


i i 






24F4 D8 


01740 




RET 


C 




;Exit on terminator 


24F5 FE2E 


01750 




CP 


i i 




;If password, ignore it 


24F7 2009 


01760 




JR 


NZ,MOVSPCl 






24F9 23 


01770 


SKIPPW 


INC 


HL 






24FA 7E 


01780 




LD 


A,(HL) 






24FB FE20 


01790 




CP 


' ' 






24FD D8 


01800 




RET 


C 




;Back on terminator 


24FE FE3A 


01810 




CP 


■ . i 






2500 20F7 


01820 




JR 


NZ, SKIPPW 






2502 EDA0 


01830 f 


40VSPC1 


LDI 






;Move the char 


2504 18DF 


01840 
01850 




JR 


MOVSPC 








01860 




Routine 


to rename a 


dev 


ice 




01870 












2506 1A 


01880 I 


3EVREN 


LD 


A,(DE) 




;01d was device, new must 


2507 FE2A 


01890 




CP 


• *i 




; also be a device spec 


2509 C22024 


01900 
01910 




JP 


NZ,SPCERR 




;Abort if bad 




01920 




Does the Source Dev 


spec 


exist ? 




01930 












250C E5 


01940 




PUSH 


HL 




;Save Old Device name 


250D D5 


01950 




PUSH 


DE 




;Save New Device name 


250E 23 


01960 




INC 


HL 




;Bump past "*" 


250F 5E 


01970 




LD 


E,(HL) 




;Set DE = Device name 


2510 23 


01980 




INC 


HL 






2511 56 


01990 




LD 


D,(HL) 






2512 


02000 




(90GTDCB 






;Does it exist ? 


2512 3E52 


00033 




LD 


A, 82 






2514 EF 


00034 




RST 


40 






2515 C21524 


02010 
02020 , 




JP 


NZ, IOERR 




;NZ - "Dev not Available" 




02030 ; 




P/u the 


Job Log DCB 


Address (last DCB) 




02040 ; 












2518 44 


02050 




LD 


B,H 




;Save DCB ptr in BC 


2519 4D 


02060 




LD 


C,L 






251A 114A4C 


02070 




LD 


DE,'LJ* 




;Find *JL 


251D 


02080 




(a@GTDCB 








251D 3E52 


00035 




LD 


A, 82 






251F EF 


00036 




RST 


40 






2520 23 


02090 




INC 


HL 




;Pt HL => Past Protected 


2521 B7 


02100 




OR 


A 




; system Device table. 


2522 ED42 


02110 




SBC 


HL,BC 




protected Device ? 
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2524 3E28 


02120 


LD 


A 9 40 


;Init errcode 


2526 D21524 


02130 
02140 ; 


JP 


NC,IOERR 


;Jump on error 




02150 ; 


Does the destination 


device already exist ? 




02160 ; 








2529 El 


02170 


POP 


HL 


;HL => New Devspec 


252A E5 


02180 


PUSH 


HL 




252B 23 


02190 


INC 


HL 


;Bump past "*" 


252C 5E 


02200 


LD 


E,(HL) 


;Set DE = Device name 


252D 23 


02210 


INC 


HL 




252E 56 


02220 


LD 


D,(HL) 




252F 


02230 


00GTDCB 




;Already Exist ? 


252F 3E52 


00037 


LD 


A s 82 




2531 EF 


00038 


RST 


40 




2532 3E27 


02240 


LD 


A,39 


;Yes - Device in use 


2534 CA1524 


02250 


JP 


Z,IOERR 




2537 Dl 


02260 


POP 


DE 


;Restore NEW & OLD ptrs 


2538 El 


02270 


POP 


HL 




2539 C3C124 


02280 
02290 ; 


JP 


REN2 






02300 ; 


Routine 


xfers partia 


il filespec & cvrts to UC 




02310 ; 








253C 7E 


02320 CVRTUC 


LD 


A 9 (HL) 




253D FE0D 


02330 


CP 


CR 




253F C8 


02340 


RET 


Z 


;Ret if no new name 


2540 2B 


02350 


DEC 


HL 


;Backup to 1st separato 


2541 7E 


02360 COP0 


LD 


A S (HL) 




2542 23 


02370 


INC 


HL 




2543 FE20 


02380 


CP 


i i 


;Skip past spaces 


2545 28FA 


02390 


JR 


Z S COP0 




2547 2B 


02400 


DEC 


HL 




2548 0620 


02410 


LD 


B s 32 


;Max 32 chars 


254A 7E 


02420 COP1 


LD 


A,(HL) 


;Transfer the partial 


254B FE61 


02430 COP2 


CP 


'a' 


;Cvrt 1c <a-z> to uc 


254 D 3806 


02440 


JR 


C,COP3 




254F FE7B 


02450 


CP 


'z'+l 




2551 3002 


02460 


JR 


NC s COP3 




2553 D620 


02470 


SUB 


20 H 




2555 12 


02480 COP3 


LD 


(DE) 9 A 


;Filespec until paren 


2556 FE0D 


02490 


CP 


CR 


; or <ENTER> 


2558 C8 


02500 


RET 


Z 




2559 FE28 


02510 


CP 


'(' 




255B C8 


02520 


RET 


Z 




255C 23 


02530 


INC 


HL 


; or end-of-line 


255D 13 


02540 


INC 


DE 


; or 32 chars max 


255E 10EA 


02550 


DJNZ 


COP1 




2560 C9 


02560 
02570 ; 


RET 








02580 ; 


Match < 


iource & dest 


ination for defaults 




02590 ; 








2561 D5 


02600 MATCH 


PUSH 


DE 


;Save NEW spec 


2562 E5 


02610 


PUSH 


HL 


;Save OLD spec 


2563 1A 


02620 


LD 


A,(DE) 


;P/u a dest character 


2564 FE41 


02630 


CP 


'A' 




2566 DCA325 


02640 


CALL 


C 5 MATCH7 


;Match if not a filenan 


2569 062F 


02650 


LD 


B,'/' 




256B CD7C25 


02660 


CALL 


MATCH 2 




256E 063A 


02670 


LD 


B,':' 




2570 CD7C25 


02680 


CALL 


MATCH2 




2573 062E 


02690 


LD 


B,'.' 




2575 CD7C25 


02700 


CALL 


MATCH2 
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2578 El 


02710 




POP 


HL 




2579 Dl 


02720 




POP 


DE 




257A C9 


02730 
02740 


9 


RET 






257B 13 


02750 


MATCH1 


INC 


DE 




257C 1A 


02760 


MATCH2 


LD 


A,(DE) 


Scan destination until 


257D B8 


02770 




CP 


B ; 


the test character is 


257E 280E 


02780 




JR 


Z S MATCH3 


found or until some 


2580 FE41 


02790 




CP 


'A' 


other special char 


2582 30F7 


02800 




JR 


NC,MATCH1 


is reached 


2584 FE30 


02810 




CP 


'0' 


Loop on <0-9> 


2586 3808 


02820 




JR 


C.MATCH4 




2588 FE3A 


02830 




CP 


'9'+l 




258A 38EF 


02840 




JR 


C.MATCH1 




258C 1802 


02850 




JR 


MATCH4 




258E 13 


02860 


MATCH3 


INC 


DE 




258F C9 


02870 
02880 


9 


RET 








02890 


9 


Found 


some other special 


char - Need the field 




02900 


» 








2590 E5 


02910 MATCH4 


PUSH 


HL 


.Save pointer to source 


2591 7E 


02920 MATCH5 


LD 


A S (HL) 


;Scan source until the 


2592 23 


02930 




INC 


HL 


, desired field is 


2593 FE03 


02940 




CP 


ETX 


; found (if it is 


2595 280A 


02950 




JR 


Z S MATCH6 


; supplied by the user) 


2597 FE0D 


02960 




CP 


CR 




2599 2806 


02970 




JR 


Z,MATCH6 




259B B8 


02980 




CP 


B 




259C 20F3 


02990 




JR 


NZ,MATCH5 




259E CDAF25 


03000 




CALL 


MATCH9 


;Move source field 


25A1 El 


03010 MATCH6 


POP 


HL 




25A2 C9 


03020 
03030 


S 


RET 








03040 


9 


Routi 


nes to move a source field to destination 




03050 


9 








25A3 7E 


03060 


MATCH7 


LD 


A,(HL) 


;P/u source character 


25A4 FE30 


03070 




CP 


■0' 


;Back when out of range 


25A6 D8 


03080 




RET 


C 




25A7 FE3A 


03090 




CP 


« 9*4-1 




25A9 3803 


03100 




JR 


C.MATCH8 




25AB FE41 


03110 




CP 


'A' 




25AD D8 


03120 




RET 


C 




25AE 23 


03130 MATCH8 


INC 


HL 


;Advance source ptr 


25AF E5 


03140 MATCH9 


PUSH 


HL 


;Save HL and make it 


25B0 62 


03150 




LD 


H,D 


; the destination ptr 


2581 6B 


03160 




LD 


L,E 




25B2 4E 


03170 MATCH10 LD 


C,(HL) 


;Get char at destination 


25B3 77 


03180 




LD 


(HL),A 


; and put in new one 


25B4 23 


03190 




INC 


HL 


;Next dest loc. 


25B5 79 


03200 




LD 


A,C 


;What was there? 


25B6 FE03 


03210 




CP 


ETX 


;Go until ETX 


25B8 2804 


03220 




JR 


Z S MATCH11 




25BA FE0D 


03230 




CP 


CR 


; or end of line 


25BC 20F4 


03240 




JR 


NZ,MATCH10 




25 BE 77 


03250 MATCH11 


LD 


(HL),A 




25BF El 


03260 




POP 


HL 




25C0 13 


03270 




INC 


DE 




25C1 18E0 


03280 
03290 


9 


JR 


MATCH7 




25C3 53 


03300 


SPCERRS 


DB 


'Specification error', CR 


70 65 


63 69 66 


69 63 61 
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74 


69 


6F 6E 20 65 72 72 




6F 


72 


0D 




25 D7 44 




03310 DUPNAM$ DB 


'Duplicate file name',CR 


75 


70 6C 69 63 61 74 65 




20 66 


69 6C 65 20 6E 61 




6D 


65 


0D 




25 EB 52 




03320 TOWHAT$ DB 


'Rename it to what?' ,CR 


65 


6E 


61 6D 65 20 69 74 




20 


74 


6F 20 77 68 61 74 




3F 


0D 






25FE 20 




03330 TO$ DB 


' to ' ,ETX 


74 


6F 


20 03 




2603 0D 




03340 NEWFCB DB 


CR ;Init to cr 


001 F 




03350 DS 


31 


0020 




03360 OLDFCB DS 


32 


2643 52 




03370 RENAM$ DB 


'Renaming: ' 


65 


6E 


61 6D 69 6E 67 3A 




20 








0028 




03380 SPECS$ DS 


40 


0020 




03390 TEMPFCB DS 


32 


2695 0000 


03400 OLD FIL DW 





2697 




03410 LAST EQU 
03420 ; 


$ 


2400 




03430 END 


RENAME 



Page 00007 
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001 


0000 002 


0000 003 


0000 


004 


0000 0MOD2 


0000 0MOD4 


FFFF 


ABB 


0010 AP 


0027 BEGINA 


2409 


BREAK 


0080 BS 


0008 CFLAG$ 


0002 


CHKDSPC 


2491 CKSPACE 


24F2 COP0 


2541 


COP1 


254A C0P2 


254B COP3 


2555 


CR 


000D CVRTUC 


253C DEVREN 


2506 


DFLAG$ 


0003 DOMATCH 


249A DUPNAM 


2424 


DUPNAM$ 


25 D7 ETX 


0003 F2LOOP 


24A2 


FLAG 


0040 FLOOP 


247D INH 


0000 


IOERR 


2415 KFLAG$ 


000A LAST 


2697 


LF 


000 A MATCH 


2561 MATCH1 


257B 


MATCH10 


25B2 MATCH11 


25BE MATCH2 


257C 


MATCH3 


258E MATCH4 


2590 MATCH5 


2591 


MATCH6 


25A1 MATCH7 


25A3 MATCH8 


25 AE 


MATCH 9 


25AF MOVSPC 


24E5 MOVSPC1 


2502 


NEWFCB 


2603 NUM 


0080 OLDFCB 


2623 


OLD DRV 


24A8 OLD FIL 


2695 PAR ERR 


002 C 


RENT 


2454 REN? 


24 CI RE NAM 


2438 


RENAM$ 


2643 RENAME 


2400 SAVESP 


2431 


SFLAG$ 


0012 SKIPPW 


24F9 SPCERR 


2420 


SPCERR$ 


25C3 SPECS$ 


264 D STR 


0020 


TAB 


0009 TEMPFCB 


2675 TO$ 


25FE 


TOWHAT 


2428 TOWHAT$ 


25 EB VFLAG$ 


0015 


00 ABORT 


890E 00ADTSK 


89A1 00BANK 


8EB9 


00BKSP 


8B99 00BREAK 


8ECF 00CHNIO 


88F9 


00CKBRKC 


8F1D 00CKDRV 


89F5 00CKEOF 


8BAE 


00CKTSK 


898C 00CLOSE 


8B84 00CLS 


8F07 


00CMNDI 


8938 00CMNDR 


894 D 00CTL 


875D 


(30 DATE 


88CF 00DCSTAT 


8A34 00DEBUG 


8977 


00DECHEX 


8E39 00DIRRD 


8DA6 00DIRWR 


8DBB 


00DIV16 


8E24 00DIV8 


8E0F 00DODIR 


8A0A 


00 DSP 


8721 00DSPLY 


87C1 00ERROR 


8962 


00EXIT 


8923 00FEXT 


8D13 00FLAGS 


8EA3 


00FNAME 


8D28 00FSPEC 


8CFE 00GATRD 


8D91 


00GATWR 


8DD0 00GET 


8735 00GTDCB 


8D52 


00GTDCT 


8D3D 00GTMOD 


8D67 00HDFMT 


8ADC 


00HEX16 


8E78 00HEX8 


8E63 00HEXDEC 


8E4E 


00HIGH$ 


8E8D 00INIT 


8B5A 00KBD 


8799 


0(3 KEY 


870D 00KEYIN 


87AD 00KLTSK 


89E0 


00LOAD 


8CD4 00LOC 


8BC3 00LOF 


8BD8 


00LOGER 


87F8 00LOGOT 


880 D 00MSG 


8844 


00MUL16 


8DFA 00MUL8 


8DE5 00OPEN 


8B6F 


@(3 PAR AM 


88BA 00PAUSE 


88 A5 00PEOF 


8BED 


00POSN 


8C02 00PRINT 


8859 00PRT 


8771 


00 PUT 


8749 00RAMDIR 


8A1F 00RDSEC 


8AB2 


00RDSSC 


8D7C 00READ 


8C17 00REMOV 


8B45 


00RENAM 


8B30 00REW 


8C2C 00RMTSK 


89 B6 


00RPTSK 


89CB 00RREAD 


8C41 00RSLCT 


8A9D 


00RSTOR 


8A5E 00RUN 


8CE9 00RWRIT 


8C56 


00 SEEK 


8A88 00SEEKSC 


8C6B 00SKIP 


8C80 


00SLCT 


8A49 00STEPI 


8A73 00TIME 


88 E4 


00VDCTL 


8890 00VER 


8C95 00VRSEC 


8AC7 


00WEOF 


8CAA 00WHERE 


8785 00WRITE 


8CBF 


00WRSEC 


8AF1 00WRSSC 


8B06 00WRTRK 


8B1B 


2400 is the 


transfer address 






00000 Total 


errors 
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LIBRARY Files 



RESET - LS-DOS 6.2 



Page 00001 



00100 ;LBRESET/ASM - RESET Command 

00110 TITLE <RESET - LS-DOS 6.2> 

130120 ; 

00130 CR EQU 13 

00140 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 





03900 


*LIST 


ON 






00150 


» 






2400 


00160 
00170 


s 


ORG 2400H 






00180 


9 


Save stack & call reset code 




00190 


S 






2400 ED732124 


00200 RESET 


LD (SAVESP+1),SP 


;Save Stack ptr 


2404 CD2724 


00210 




CALL RESET1 


;Call Reset routine 


2407 210000 


00220 




LD HL,0 


; I ni t successful 


240A 2814 


00230 
00240 


9 


JR Z 9 SAVESP 


;Z - Exit clean 




00250 


9 


I/O Error Processing 






00260 


9 






240C 6F 


00270 


IOERR 


LD L S A 


; Error # to HL 


240D 2600 


00280 




LD H s 




240F F6C0 


00290 




OR 0C0H 


;Abbrev s return 


2411 4F 


00300 




LD C S A 




2412 


00310 




(TERROR 




2412 3E1A 


00001 




LD A s 26 




2414 EF 


00002 




RST 40 




2415 1809 


00320 
00330 


9 


JR SAVESP 


;P/u stack & return 




00340 


9 


Internal Message Exit 






00350 


9 






2417 21F824 


00360 


SPCREQ 


LD HL S SPCREQ$ 


;"Devspec req.. . 


241A 


00370 
00003 
00004 
00005 




0GLOGOT 
IFEQ 00H,1 
LD HL, 
ENDIF 




241A 3E0C 


00006 




LD A s 12 




241C EF 


00007 




RST 40 




241D 21FFFF 


00380 
00390 


9 


LD HL.-1 


;Set abort code 




00400 


9 


P/u stack & clear any 


pending <BREAK> 




130410 


9 






2420 310000 


00420 


SAVESP 


LD SP s $-$ 


;P/u stack ptr 


2423 


00430 




(a@CKBRKC 


;Clear any Break 


2423 3E6A 


00008 




LD A, 106 




2425 EF 


00009 




RST 40 




2426 C9 


00440 
00450 


9 


RET 






00460 


9 


RESET1 - Reset a Files 


pec or Devspec 




00470 


9 






2427 112D25 


00480 RESET1 


LD DE,FCBDEV 


;Get file/device spec 


242A 


00490 




G0FSPEC 




242A 3E4E 


00010 




LD A, 78 




242C EF 


00011 




RST 40 




242D C21724 


00500 




JP NZ, SPCREQ 


;Must reset something 


2430 1A 


00510 




LD A,(DE) 


;File reset used to 


2431 FE2A 


00520 




CP '*' 


; reset the 


2433 C26624 


00530 




JP NZ,RESFIL 


; "file open bit 


2436 ED5B2E25 


00540 




LD DE,(FCBDEV+1) 


;P/u the device name 


243A 


00550 




@@GTDCB 


;Find in device tables 


243A 3E52 


00012 




LD A,82 
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243C EF 


00013 


RST 


40 




243D C0 


00560 


RET 


NZ ; 


NZ - "Device not Avail" 


243E E5 


00570 


PUSH 


HL ; 


Save pointer to table 


243F CD8124 


00580 


CALL 


CLSFILS 


Reset routes to files 


2442 El 


00590 


POP 


HL 


Get DCB pointer 


2443 C0 


00600 
00610 


RET 


NZ 


NZ - I/O Error 




00620 


; Unhook 


the device chain 






00630 








2444 E5 


00640 


PUSH 


HL 




2445 F3 


00650 


DI 




Don't stop me now 


2446 CD9D24 


00660 


CALL 


FIXDCB 1 


Fix up the DCB 


2449 FB 


00670 


EI 




,Now you can interrupt 


244A 212D25 


00680 


LD 


HL,FCBDEV 


Determine if system 


244 D 54 


00690 


LD 


D,H 


device by attempting 


244E 5D 


00700 


LD 


E,L 


to rename it 


244F 


00710 


G»(dRENAy 


, 


The error code wi 11 be 


244F 3E38 


00014 


LD 


A, 56 




2451 EF 


00015 


RST 


40 




2452 El 


00720 


POP 


HL 


either 19 or 40 


2453 FE28 


00730 


CP 


40 


Protected system device? 


2455 2804 


00740 


JR 


Z 9 SYSDVC 




2457 3608 


00750 


LD 


(HL),8 


Show device is NIL 


2459 AF 


00760 


XOR 


A 


Set Z 


245A C9 


00770 
00780 


RET 
» 




Z - successful 




00790 


, RESET of system device 






00800 


> 






245B E5 


00810 ! 


SYSDVC PUSH 


HL ; 


Save DCB ptr 


245C 2C 


00820 


INC 


l ; 


If DCB vector is X'0000' 


245D 7E 


00830 


LD 


A,(HL) ; 


then do NOT reset the 


245 E 2C 


00840 


INC 


L ; 


NIL bit 


245F B6 


00850 


OR 


(HL) 




2460 El 


00860 


POP 


HL 




2461 C8 


00870 


RET 


Z ; 


Z - return 


2462 CB9E 


00880 


RES 


3,(HL) ; 


Make sure NIL is off 


2464 AF 


00890 


XOR 


A ; 


Set Z & Return 


2465 C9 


00900 
00910 , 


RET 








00920 s 


Reset the "fi le open bit' 


of a fi le 




00930 ; 








2466 


00940 F 


IESFIL (3(3FLAGS 


3 


Get flag table pointer 


2466 3E65 


00016 


LD 


A, 101 




2468 EF 


00017 


RST 


40 




2469 FDCB12C6 00950 


SET 


0,(IY+ , S , -'A') ; 


Inhibit file open bit 


246D 


00960 


@@OPEN 






246D 3E3B 


00018 


LD 


A, 59 




246F EF 


00019 


RST 


40 




2470 C0 


00970 


RET 


NZ ; 


NZ - I/O Error 


2471 7E 


00980 


LD 


A S (HL) ; 


Make sure access level 


2472 E607 


00990 


AND 


7 ; 


is at least UPDATE 


2474 FE05 


01000 


CP 


5 




2476 3E25 


01010 


LD 


A.37 ; 


Init "Illegal access... 


2478 C0 


01020 


RET 


NZ ; 


NZ - I/O error 


2479 EB 


01030 


EX 


DE,HL 




247A CBF6 


01040 


SET 


6,(HL) ; 


Set "close authority 


247C EB 


01050 


EX 


DE,HL ; 


to reset dir bit 


247 D 


01060 


@@CLOSE 






247D 3E3C 


00020 


LD 


A, 60 




247F EF 


00021 


RST 


40 




2480 C9 


01070 


RET 


s 


Return w/ condition 
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01080 ; 


les 


RESET - LS 


-DOS 6.2 Page 00003 




01090 ; 


Find th 


e last device route & close any open file 




01100 ; 








2481 CB66 


01110 CLSFILS 


BIT 


4,(HL) 


;Jump if no route 


2483 2807 


01120 


JR 


Z,CLSFILl 




2485 23 


01130 


INC 


HL 


;Else p/u link address 


2486 7E 


01140 


LD 


A,(HL) 


; and test that one 


2487 23 


01150 


INC 


HL 


; for a chain 


2488 66 


01160 


LD 


H,(HL) 




2489 6F 


01170 


LD 


L,A 




248A 18F5 


01180 


JR 


CLSFILS 




248C CB7E 


01190 CLSFIL1 BIT 


7,(HL) 


;A file? 


248E C8 


01200 


RET 


Z 


;Ret if not 


248F 114D25 


01210 


LD 


DE,FCBFIL 


;Pt to fcb area 


2492 D5 


01220 


PUSH 


DE 




2493 012000 


01230 


LD 


BC,32 




2496 EDB0 


01240 


LDIR 




;Fill from device vector 


2498 Dl 


01250 


POP 


DE 


;Recover start 


2499 


01260 


@@CLOSE 




;Close the file 


2499 3E3C 


00022 


LD 


A, 60 




249B EF 


00023 


RST 


40 




249C C9 


01270 
01280 ; 


RET 




;Ret with Z 5 NZ status 




01290 ; 


Routine 


to fix up 


a system DCB 




01300 ; 








249D CB66 


01310 FIXDCB 


BIT 


4,(HL) 


;If routed, recover the 


249F 2810 


01320 


JR 


Z.FIXl 


; original data from 


CJ-T Mi. CO 


01330 


PUSH 


HL 


; DCB+3 to DCB+5 


24A2 54 


01340 


LD 


D,H 


;DCB start to DE 


24A3 5D 


01350 


LD 


E,L 




24A4 2C 


01360 FIX0 


INC 


L 


;Pt to old stored 


24A5 2C 


01370 


INC 


L 


; information 


24A6 2C 


01380 


INC 


L 




24A7 010300 


01390 


LD 


BC,3 




24AA EDB0 


01400 


LDIR 




;Xfer to DCB 


24 AC El 


01410 


POP 


HL 




24AD CBA6 


01420 


RES 


4 S (HL) 


;Reset Routed bit 


24AF 18EC 


01430 


JR 


FIXDCB 




24B1 CB6E 


01440 FIX1 


BIT 


5,(HL) 


;If linked, recover the 


24B3 2819 


01450 


JR 


Z 9 FIX2 


; original data from 


24B5 E5 


01460 


PUSH 


HL 


; the LINK DCB source & 


24B6 2C 


01470 


INC 


L 


; clear the LINK DCB 


24B7 5E 


01480 


LD 


E,(HL) 


;P/u the LINK vector 


24B8 2C 


01490 


INC 


L 




24B9 56 


01500 


LD 


D,(HL) 




24BA El 


01510 


POP 


HL 


;Recover DCB ptr 


24BB E5 


01520 


PUSH 


HL 




24BC EB 


01530 


EX 


DE,HL 


;Link to HL, DCB to DE 


24BD E5 


01540 


PUSH 


HL 


;Save for clearing 


24BE 010300 


01550 


LD 


BC,3 




24C1 EDB0 


01560 


LDIR 






24C3 El 


01570 


POP 


HL 




24C4 0608 


01580 


LD 


B,8 




24C6 3600 


01590 FIX1A 


LD 


(HL),0 


;Clear the LINK DCB 


24C8 2C 


01600 


INC 


L 




24C9 10FB 


01610 


DJNZ 


FIX1A 




24CB El 


01620 


POP 


HL 


;Rcvr DCB pointer 


24CC 18CF 


01630 


JR 


FIXDCB 




24CE CB76 


01640 FIX2 


BIT 


6,(HL) 


;If filtered, recover the 


24 D0 C8 


01650 


RET 


Z 


; original data by 


24 Dl E5 


01660 


PUSH 


HL 


; swapping back the 
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24 D2 
24 D3 
24 D4 
24 D5 
24 D6 
24 D7 
24 08 
24 D9 
24 DC 
24 DD 
24 DE 
24 DF 
24 E0 
24E1 
24E2 
24E3 
24E4 
24E5 
24E7 
24E8 
24 E A 
24 EC 
24ED 
24EE 
24 EF 
24F0 
24F1 
24F2 
24F3 
24F5 
24F6 



54 

5D 

2C 

7E 

2C 

66 

6F 

010400 

09 

4E 

0C 

09 

7E 

23 

66 

6F 

E5 

ED52 

El 

28BA 

0603 

4E 

1A 

77 

79 

12 

2C 

1C 

10F7 

El 

18A5 



24F8 44 

65 76 69 
65 63 20 
72 65 64 

250D 00 

00 00 00 



01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

63 65 

72 65 

0D 

02020 

00 00 



FIX2A 



LD 

LD 

INC 

LD 

INC 

LD 

LD 

LD 

ADD 

LD 

INC 

ADD 

LD 

INC 

LD 

LD 

PUSH 

SBC 

POP 

JR 

LD 

LD 

LD 

LD 

LD 

LD 

INC 

INC 

DJNZ 

POP 

JR 



D,H 

l' 

A,(HL) 

L 

H,(HL) 

L,A 

BC,4 

HL,BC 

C S (HL) 

C 

HL,BC 

A,(HL) 

HL 

H,(HL) 

L,A 

HL 

HL,DE 

HL 

Z 9 FIX0 

B,3 

C,(HL) 

A,(DE) 

(HL),A 

A,C 

(DE),A 

L 

E 

FIX2A 

HL 

FIXDCB 



Data area 



1st three bytes with 
the FILTER DCB 



HL now points to the 
entry point. Get its 
DCB address by peeking 
past the name field 

;Get low-order 

;Get hi -order 

;If DCB is itself, then 
; bring in the NIL 



else swap the 1st three 
bytes of the DCBs 



SPCREQ$ DB 
20 73 70 
71 75 69 



'Device spec required', CR 



DC 



00 00 00 00 00 



00 00 00 
00 00 00 



32,0 



;Patch space 



252D 00 02030 FCBDEV DB 

001 F 02040 DS 31 

254D 00 02050 FCBFIL DB 

001 F 02060 DS 31 

02070 ; 

2400 02080 END RESET 
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mi 


0000 (302 


0000 (303 


0000 


0(34 


0000 @M0D2 


0000 @M0D4 


FFFF 


CLSFIL1 


248C CLSFILS 


2481 CR 


000 D 


FCBDEV 


252D FCBFIL 


254D FIX0 


24A4 


FIX1 


24B1 FIX1A 


24C6 FIX2 


24CE 


FIX2A 


24EC FIXDCB 


249D IOERR 


240C 


RESET 


2400 RESET1 


2427 RESFIL 


2466 


SAVESP 


2420 SPCREQ 


2417 SPCREQ$ 


24F8 


SYSDVC 


245B @@ABORT 


7D6A GGADTSK 


7DFD 


(<>@BANK 


8315 @@BKSP 


7FF5 @@BREAK 


832B 


@GCHNIO 


7D55 (agCKBRKC 


8379 @@CKDRV 


7E51 


(3(s>CKE0F 


800A @(dCKTSK 


7DE8 GQCLOSE 


7FE0 


(a@CLS 


8363 @@CMNDI 


7D94 GX3CMNDR 


7DA9 


@(3CTL 


7BB9 @@DATE 


7D2B @(3DCSTAT 


7E90 


@@ DEBUG 


7DD3 (a@DECHEX 


8295 @@DIRRD 


8202 


@(9DIRWR 


8217 @@DIV16 


8280 (3@DIV8 


826B 


@@DODIR 


7E66 @@DSP 


7B7D @@DSPLY 


7C1D 


TERROR 


7DBE (a@EXIT 


7D7F @(3FEXT 


816F 


00FLAGS 


82FF @@FNAME 


8184 (a@FSPEC 


815A 


(3@GATRD 


81 ED @@GATWR 


822C @@GET 


7B91 


(a@GTDCB 


81AE @@GTDCT 


8199 (a@GTMOD 


81C3 


@@HDFMT 


7F38 @@HEX16 


82D4 (a@HEX8 


82 BF 


@@HEXDEC 


82AA @@HIGH$ 


82E9 @@INIT 


7FB6 


@@KBD 


7BF5 @@KEY 


7B69 @@KEYIN 


7C09 


(a@KLTSK 


7E3C (3@LOAD 


8130 @@LOC 


801 F 


@(9L0F 


8034 @(3LOGER 


7C54 (agLOGOT 


7C69 


@@MSG 


7CA0 @@MUL16 


8256 @(?MUL8 


8241 


@(30PEN 


7FCB @@PARAM 


7D16 @(aPAUSE 


7D01 


00PEOF 


8049 @@POSN 


805 E SPRINT 


7CB5 


@(9PRT 


7BCD (a@PUT 


7BA5 @@RAMDIR 


7E7B 


@@RDSEC 


7F0E 00RDSSC 


81D8 (3@READ 


8073 


@@REMOV 


7FA1 ©GRENAM 


7F8C @@REW 


8088 


@@RMTSK 


7E12 @@RPTSK 


7E27 @(9RREAD 


809 D 


@@RSLCT 


7EF9 ^RSTOR 


7EBA @@RUN 


8145 


@@RWRIT 


80B2 GGSEEK 


7EE4 (a@SEEKSC 


80C7 


@@SKIP 


80DC @@SLCT 


7EA5 @@STEPI 


7ECF 


@@TIME 


7D40 GGVDCTL 


7CEC @@VER 


80F1 


@@VRSEC 


7F23 @@WEOF 


8106 @@WHERE 


7BE1 


@(9WRITE 


811B (3@WRSEC 


7F4D @@WRSSC 


7F62 


@(3WRTRK 


7F77 






2400 is the 


transfer address 






00000 Total 


errors 
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000 D 
002 C 



2400 



00100 ;LBROUTE/ASM - ROUTE Command 

00110 TITLE <ROUTE - LS-DOS 6.2> 

00120 ; 

00130 CR EQU 13 

00140 PAR ERR EQU 44 ; Parameter Error 

00150 ; 

00160 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 

03900 *LIST ON 

00170 ; 

00180 ORG 2400H 

Save stack & call Route routine 



ED732724 
2404 CD2D24 
2407 210000 
240A 181A 



240C 3E2C 
240E 6F 
240F 2600 
2411 F6C0 

2413 4F 
2414 

2414 3E1A 

2416 EF 

2417 180D 



2419 215525 
241C DO 
241D 216F25 
2420 



2420 3E0C 

2422 EF 

2423 21FFFF 



2426 310000 
2429 

2429 3E6A 
242B EF 
242C C9 



242D 11E525 
2430 
2430 3E4E 

2432 EF 

2433 2026 
2435 1A 



00200 ; 
00210 ; 
00220 ROUTE 
00230 

00240 EXIT 
00250 
00260 ; 



LD (SAVESP+1),SP 

CALL ROUTE1 

LD HL s 

JR SAVESP 



I/O Error Handling 



00280 ; 

00290 PRMERR LD 

00300 IOERR LD 

00310 

00320 

00330 

00340 



00001 
00002 
00350 
00360 ; 
00370 ; 
00380 ; 
00390 CANT 



A,PAR__ERR 

L,A 
LD H,0 

OR 0C0H 

LD C,A 

TERROR 
LD A, 26 

RST 40 

JR SAVESP 



;Save Stack 

;Cal 1 route routine 

;Clean Exit 



; Parameter Error 
;Set abbrev & return 



;P/u stack & return 
Internal Error Message Handling 

;"No mem space.. . 



LD 
DB 



"Devspec req.. . 



;Set abort code 



HL,CANT$ 

0DDH 
00410 SPCERR LD HL,SPCERR$ 

00420 (a@L060T 

00003 IFEQ 00H,1 

00004 LD HL 9 

00005 END IF 

00006 LD A, 12 

00007 RST 40 
00430 ERREXIT LD HL,-1 
00440 ; 

00450 ; P/u stack & Clear any pending <BREAK> 

00460 ; 

00470 SAVESP LD SP,$-$ ;P/u stack 

(a@CKBRKC ;Clear any Break 

LD A, 106 

00009 RST 40 
00490 RET 
00500 ; 

00510 ; ROUTEl - Route spec to spec 

00520 ; 

00530 ROUTEl LD DE,FCBSRC ;Fetch source spec 

00540 GGFSPEC 

00010 LD A s 78 

00011 RST 40 

00550 JR NZ S SPCER ;Jump on error 
00560 LD A,(DE) 
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ROUTE - LS- 
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6.2 Page 00002 


2436 FE2A 


00570 


CP 


■ *■ 




;Must be a device 


2438 2021 


00580 


JR 


NZ, SPCER 




;Jump if not 


243A 118425 


00590 


LD 


DE,PRMTBL$ 




;Get parameters 


243D 


00600 


m PAR AM 








243D 3E11 


00012 


LD 


A, 17 






243F EF 


00013 


RST 


40 






2440 20CA 


00610 


JR 


NZ,PRMERR 




;Jump on parm error 


2442 ED5BE625 


00620 


LD 


DE,(FCBSRC+ 


1) 


; Stuff source name 


2446 ED539F25 


00630 


LD 


(RTENAM+3), 


DE 




244A 


00640 


@(3FLAGS 






;Get flag table pointer 


244A 3E65 


00014 


LD 


A, 101 






244C EF 


00015 
00650 ; 


RST 


40 








00660 ; 


Test NIL parameter 








00670 ; 










244 D 010000 


00680 NPARM 


LD 


BC,0 




;P/u NIL parm 


2450 78 


00690 


LD 


A,B 






2451 Bl 


00700 


OR 


C 






2452 C22825 


00710 
00720 ; 


JP 


NZ,NILDCB 




;Jump if NIL entered 




00730 ; 


Route to device/fi 1 


e - 


check which 




00740 ; 










2455 11A525 


00750 


LD 


DE,FCBDST 




;Fetch destination spec 


2458 


00760 


(a@FSPEC 








2458 3E4E 


00016 


LD 


A, 78 






245A EF 


00017 


RST 


40 






245B C21D24 


00770 SPCER 


JP 


NZ,SPCERR 




;Jump on error 


245 E D5 


00780 


PUSH 


DE 






245F 118425 


00790 


LD 


DE,PRMTBL$ 






2462 


00800 


(a@PARAM 






;Need in case REWIND 


2462 3E11 


00018 


LD 


A, 17 






2464 EF 


00019 


RST 


40 






2465 Dl 


00810 


POP 


DE 






2466 20A4 


00820 


JR 


NZ,PRMERR 




;Exit on parm error 


2468 1A 


00830 


LD 


A,(DE) 






2469 FE2A 


00840 


CP 


i*i 




;Test device/file 


246B 2040 


00850 
00860 ; 


JR 


NZ,INITFCB 




;Jump on file 




00870 ; 


Destination spec is 


a 


device 




00880 ; 










246D ED5BA625 


00890 


LD 


DE,(FCBDST+1) 


;P/u device name 


2471 2AE625 


00900 


LD 


HL,(FCBSRC+ 


1) 


;Make sure SRCODST 


2474 ED52 


00910 


SBC 


HL,DE 




; CF is reset 


2476 CA1D24 


00920 


JP 


Z,SPCERR 






2479 


00930 


00GTDCB 






;Find in tables 


2479 3E52 


00020 


LD 


A 9 82 






247B EF 


00021 


RST 


40 






247C C20E24 


00940 


JP 


NZ,IOERR 




;Jump if not found 


247F E5 


00950 CKDCBS 


PUSH 


HL 




;Save DCB address of dest 


2480 CD0D25 


00960 


CALL 


CKSRC 




; Locate source DCB 


2483 C20E24 


00970 


JP 


NZ,IOERR 






2486 


00980 CKDCB1 


EQU 


$ 






2486 F3 


00990 


DI 








2487 CI 


01000 


POP 


BC 




;Rcvr dest route vector 


2488 E5 


01010 
01020 ; 


PUSH 


HL 




;Save DCB+0 




01030 ; 


Save the old device 


vector while stuff inq new 




01040 ; 










2489 2C 


01050 


INC 


L 




;Bump to vector 


248A 7E 


01060 


LD 


A 9 (HL) 




;Save what's there 


248B 71 


01070 


LD 


(HL),C 




; Stuff dest route 
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2 Page 0000: 


248C 4F 


01080 


LD 


C,A j 


into DCB of source 


248 D 2C 


01090 


INC 


L ; 


while saving old 


248E 7E 


01100 


LD 


A,(HL) ; 


vector for storage 


248F 70 


01110 


LD 


(HL),B ; 


(could be a FCB) 


2490 47 


01120 
01130 ; 


LD 


B,A 






01140 ; 


Now set 


ROUTE bit and rest of DCB block 




01150 ; 








2491 El 


01160 


POP 


HL 


Rcvr ptr to DCB+0 


2492 7E 


01170 


LD 


A,(HL) 


Init the ROUTE bit 


2493 F5 


01180 


PUSH 


AF 


.Save old TYPE byte 


2494 E607 


01190 


AND 


7 


.Strip any flag bits 


2496 F610 


01200 


OR 


10H 




2498 77 


01210 


LD 


(HL),A 


.Show source is routed 


2499 7D 


01220 


LD 


A,L 




249A C607 


01230 


ADD 


A, 7 


; Point to name field 


249C 6F 


01240 


LD 


L,A 




249D 72 


01250 


LD 


(HL) S D 


.And stuff in the name 


249E 2D 


01260 


DEC 


L 


; in case this is a 


249F 73 


01270 


LD 


(HL),E 


; new DCB block 


24 A0 Fl 


01280 


POP 


AF 


;P/u old TYPE byte & 


24A1 CB67 


01290 


BIT 


4,A 


; save old data if 


24A3 2006 


01300 


JR 


NZ,CKDCB2 


; not already routed 


24A5 2D 


01310 


DEC 


L 




24A6 70 


01320 


LD 


(HL) 9 B 


; Stuff old vector 


24A7 2D 


01330 


DEC 


L 


; for reclamation 


24A8 71 


01340 


LD 


(HL) S C 




24A9 2D 


01350 


DEC 


L 




24AA 77 


01360 


LD 


(HL) S A 


; Stuff old TYPE 


24AB 


01370 CKDCB2 


EQU 


$ 




24AB FB 


01380 


EI 






24AC C9 


01390 
01400 ; 


RET 




; Successful 




01410 ; 


Destination is file - init it & posn to end 




01420 ; 








24AD D5 


01430 INITFCB 


PUSH 


DE 




24AE 119C25 


01440 


LD 


DE,RTENAM 


;See if space already 


24B1 


01450 


@@GTMOD 




; allocated for this 


24B1 3E53 


00022 


LD 


A, 83 




24B3 EF 


00023 


RST 


40 




24B4 Dl 


01460 


POP 


DE 




24B5 200C 


01470 
01480 ; 


JR 


NZ S NOTRES 


; device name 




01490 ; 


Space in memory, re-use 


it 




01500 ; 








24B7 23 


01510 


INC 


HL 


;Get last byte used 


24B8 23 


01520 


INC 


HL 


; into HL 


24B9 7E 


01530 


LD 


A,(HL) 




24BA 23 


01540 


INC 


HL 




24BB 66 


01550 


LD 


H,(HL) 




24BC 6F 


01560 


LD 


L,A 




24BD AF 


01570 


XOR 


A 


;Set a to show 


24BE 32F724 


01580 


LD 


(CKIFRES+D.A 


; already resident 


24C1 180E 


01590 
01600 ; 


JR 


SETBUF 






01610 ; 


Not yet 


resident, get space 




01620 ; 








24C3 FDCB0246 01630 NOTRES 


BIT 


0,(IY+ , C , -'A') 


;Can we alter HIGH$? 


24C7 C21924 


01640 


JP 


NZ,CANT 


;Can't if frozen 


24CA 210000 


01650 


LD 


HL,0 


;Get high 


24 CD 45 


01660 


LD 


B,L 
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24CE 
24CE 
24 D0 
24 Dl 
24 D4 
24 D5 
24 D6 
24 D7 
24 D9 
24 D9 
24 DB 
24 DC 
24 DE 
24E1 
24E2 
24E4 
24E4 
24E6 
24E7 
24E9 
24EB 
24 EC 
24 EF 
24F2 
24F3 
24F5 



3E64 

EF 

229925 

23 

25 

E5 

0600 

3E3A 

EF 

200 D 

010000 

04 

2807 

3E41 

EF 

2802 

FE1C 

El 

C20E24 

012E00 

AF 

ED42 

E5 



24F6 F6FF 
24F8 2804 
24FA 2B 
24FB 

24FB 3E64 
24 FD EF 
24FE Dl 
24FF D5 
2500 219725 
2503 EDB0 

2505 Dl 

2506 210E00 
2509 19 
250A C37F24 



250D 
2511 
2512 
2512 
2514 
2515 
2517 
251A 
251A 
251C 
251D 
251F 
2521 
2522 
2525 



ED5BE625 
D5 

3E52 
EF 

280A 
110000 

3E52 

EF 

3E21 

2005 

E5 

CD3925 

El 



01670 

00024 

00025 

01680 SETBUF 

01690 

01700 

01710 

01720 

01730 

00026 

00027 

01740 

01750 RPARM 

01760 

01770 

01780 

00028 

00029 

01790 

01800 

01810 INITF1 

01820 

01830 

01840 

01850 

01860 

01870 ; 

01880 ; 

01890 ; 

01900 CKIFRES 

01910 

01920 

01930 

00030 

00031 

01940 ISRES1 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 CKSRC 

02060 

02070 

00032 

00033 

02080 

02090 

02100 

00034 

00035 

02110 

02120 

02130 CKSRC1 

02140 

02150 



@@HIGH$ 

LD 

RST 

LD 

INC 

DEC 

PUSH 

LD 

@@INIT 

LD 

RST 

JR 

LD 

INC 

JR 

WEOF 

LD 

RST 

JR 

CP 

POP 

JP 

LD 

XOR 

SBC 

PUSH 



A, 100 

40 

(RTEDVR+2),HL 

HL 

H 

HL 



A, 58 

40 

NZ,INITF1 

BC,0 

B 

Z.INITF1 

A, 65 

40 

Z.INITF1 

1CH 

HL 

NZ,IOERR 

BC, 32+14 

A 

HL.BC 

HL 



OR -1 

JR Z.ISRES1 

DEC HL 

@@HIGH$ 

LD A, 100 

RST 40 

POP 

PUSH 

LD 

LDIR 

POP 

LD 

ADD 

JP 



DE 
DE 
HL,RTEDVR 

DE 

HL S 14 
HL,DE 
CKDCBS 



Stuff highest used 
Reserve a page for 

the I/O buffer 
Don't lose it 
LRL = 
Init the file 



What? an error? 

Ck on rewind (no peof) 

Keep file at start 

if REWIND specified 

else posn file 



to the end 
At End Of File? 
Get back buffer pointer 
Any other error, JuMp 
Back up another 32 
for the FCB storage 
+ 14 for linkage 
Save module start 



Bypass HIGH$ stuff if "ISRES" 



;"OR 0" if "ISRES" 

;Reset HIGH$ (B=0) 
;Stuff new hi gh$ 



;Rcvr module pointer 

;Move module to memory 

;Now adjust to true 
: FCB loc'n 



;Go check debs 
Scan device tables for source device 



LD 

PUSH 

00GTDCB 

LD 

RST 

JR 

LD 

@@GTDCB 

LD 

RST 

LD 

JR 

PUSH 

CALL 

POP 



DE,(FCBSRC+1) 
DE 

A, 82 
40 

Z,CKSRC1 
DE,0 

A, 82 

40 

A, 33 

NZ,CKSRC2 

HL 

CLSFILS 

HL 



P/u source device name 

& save it for later 
Find device in table 



Use it if found 
else find a spare 
DCB block 



; Ini t "No device space, 
;Abort if no space 

;Close any existing 
: file routes 
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The Source 




LIBRARY 


r iles 


ROUTE - LS-DOS 6.2 Page 00005 


2526 Dl 




02160 CKSRC2 POP 


DE 


;Recover source name 


2527 C9 




02170 
02180 ; 




RET 










02190 ; 




NIL entered, close u 


p any open fi le 






02200 ; 










2528 CD0D25 


02210 NILDCB CALL 


CKSRC 


;Check on devqice 


252B 7E 




02220 




LD 


A,(HL) 


;Get type byte 


252 C F608 




02230 




OR 


8 




252E 77 




02240 




LD 


(HL),A 


;Show is NIL device 


252F 7D 




02250 




LD 


A,L 


;Pt to name field 


2530 C606 




02260 




ADD 


A, 6 




2532 6F 




02270 




LD 


L,A 




2533 F3 




02280 




Dl 






2534 73 




02290 




LD 


(HL),E 


; Stuff in our name 


2535 2C 




02300 




INC 


L 


; in case it's a new 


2536 72 




02310 




LD 


(HL),D 


; DCB block 


2537 FB 




02320 




EI 






2538 C9 




02330 
02340 ; 




RET 




Successful 






02350 ; 




Find 


the last device 


route & close any open file 






02360 ; 










2539 CB66 




02370 CLSFILS BIT 


4,(HL) 


;Jump if no route 


253B 2807 




02380 




JR 


Z 9 CLSFIL1 




253D 23 




02390 




INC 


HL 


;Else p/u link address 


253E 7E 




02400 




LD 


A S (HL) 


; and test that one 


253F 23 




02410 




INC 


HL 


; for a chain 


2540 66 




02420 




LD 


H,(HL) 




2541 6F 




02430 




LD 


L,A 




2542 18F5 




02440 




JR 


CLSFILS 




2544 CB7E 




02450 CLSFIL1 BIT 


7 S (HL) 


;A file? 


2546 C8 




02460 




RET 


Z 


;Ret if not 


2547 11C52* 




02470 




LD 


DE,FCBFIL 


;Pt to fcb area 


254A D5 




02480 




PUSH 


DE 




254B 012000 


02490 




LD 


BC,32 




254E EDB0 




02500 




LDIR 




;Fill from device vector 


2550 Dl 




02510 




POP 


DE 


;Recover start 


2551 




02520 




INCLOSE 


;Close the file 


2551 3E3C 




00036 




LD 


A, 60 




2553 EF 




00037 




RST 


40 




2554 C9 




02530 
02540 ; 




RET 




;Ret with Z, NZ status 






02550 ; 




Messages 








02560 ; 










2555 4E 




02570 CANT$ 


DB 


'No memory space available' ,CR 


6F 20 6D 65 6D 6F 


72 


79 






20 73 


70 61 63 65 


20 


61 






76 61 


69 


6C 61 62 


6C 


65 






0D 














256F 44 




02580 SPCERR$ DB 


'Device spec 


required' ,CR 


65 76 


69 


63 65 20 73 


70 






65 63 


20 72 65 71 


75 


69 






72 65 


64 0D 














02590 ; 










2584 80 




02600 PRMTBL$ DB 


80H,53H S 'NIL 


,0 


53 4E 


49 


4C 00 










258A 4E24 




02610 




DW 


NPARM+1 




258C 56 




02620 




DB 


56H,' REWIND' 


3 


52 45 


57 


49 4E 44 00 








2594 DF24 




02630 




DW 


RPARM+1 




2596 00 




02640 
02650 ; 




NOP 
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LIBRARY Fi 


les 


ROUTE - 


LS-DOS 6.2 Page 00006 


2597 18FE 


02660 RTEDVR 


JR 


$ 


;No real jump 


2599 0000 


02670 


DW 


$-$ 


;Stuff of high 


259B 05 


02680 


DB 


5 




259C 52 


02690 RTENAM 


DB 


'RTExx' 




54 45 


78 78 








25A1 0000 


02700 


DW 


0,0 




0000 


02710 ; 








25A5 00 


02720 FCBDST 


DB 







001 F 


02730 


DS 


31 




25C5 00 


02740 FCBFIL 


DB 







001 F 


02750 


DS 


31 




25 E5 00 


02760 FCBSRC 


DB 







001 F 


02770 
02780 ; 


DS 


31 




2400 


02790 


END 


ROUTE 
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LIBRARY Files 


ROUTE 


- LS-DOS 6.2 




mi 


0000 (3(32 


0000 (3(33 


0000 


@(34 


0000 (3MOD2 


0000 (3M0D4 


FFFF 


CANT 


2419 CANT$ 


2555 


CKDCB1 


2486 


CKDCB2 


24AB CKDCBS 


247F 


CKIFRES 


24F6 


CKSRC 


250D CKSRC1 


2521 


CKSRC 2 


2526 


CLSFIL1 


2544 CLSFILS 


2539 


CR 


000 D 


ERREXIT 


2423 EXIT 


2407 


FCBDST 


25A5 


FCBFIL 


25C5 FCBSRC 


25 E5 


INITF1 


24EB 


INITFCB 


24AD IOERR 


240E 


ISRES1 


24FE 


NILDCB 


2528 NOTRES 


24C3 


NPARM 


244 D 


PAR ERR 


002 C PRMERR 


240C 


PRMTBL$ 


2584 


ROUTE 


2400 ROUTE 1 


242 D 


RPARM 


24 DE 


RTEDVR 


2597 RTENAM 


259C 


SAVESP 


2426 


SETBUF 


24D1 SPCER 


245B 


SPCERR 


241D 


SPCERR$ 


256F (3(3ABORT 


83D2 


(30ADTSK 


8465 


(3@BANK 


897D (3(3BKSP 


865 D 


(3(3BREAK 


8993 


GXaCHNIO 


83BD (3(3CKBRKC 


89E1 


(3(3 CK DRV 


84B9 


(30CKEOF 


8672 (3(3CKTSK 


8450 GK3CLOSE 


8648 


(3(3 CLS 


89CB (3@CMNDI 


83FC 


(3(s>CMNDR 


8411 


(3(3CTL 


8221 (30DATE 


8393 


(3(3DCSTAT 


84F8 


(3(3DEBUG 


843B @@DECHEX 


88FD 


(30DIRRD 


886A 


(90DIRWR 


887F @@DIV16 


88E8 


(30DIV8 


88 D3 


@@DODIR 


84CE @(3DSP 


81E5 


(30DSPLY 


8285 


TERROR 


8426 @(3EXIT 


83E7 


@(3FEXT 


87 D7 


(3(3FLAGS 


8967 (3(3FNAME 


87 EC 


(3@FSPEC 


87C2 


(3(3GATRD 


8855 C3@GATWR 


8894 


@(3GET 


81F9 


(3(3GTDCB 


8816 (30GTDCT 


8801 


(30GTMOD 


882 B 


@@HDFMT 


85 A0 (3(3 HEX 16 


893C 


@(3HEX8 


8927 


@@HEXDEC 


8912 @(3HIGH$ 


8951 


@@INIT 


861 E 


(3(3KBD 


825D (3@KEY 


81D1 


@(3KEYIN 


8271 


(30KLTSK 


84A4 (3(3LOAD 


8798 


(3(3 LOC 


8687 


@@LOF 


869C (3(3|_OGER 


82 BC 


(3(3LOGOT 


82D1 


(3(3MSG 


8308 (3@MUL16 


88BE 


(3@MUL8 


88A9 


(3@OPEN 


8633 (30PARAM 


837 E 


(3(3PAUSE 


8369 


(3(<>PE0F 


86B1 (3@POSN 


86C6 


(3(3 PR I NT 


831D 


(3(3 PRT 


8235 (3(3PUT 


820D (3(3RAMDIR 


84 E3 


(3@RDSEC 


8576 (3(3RDSSC 


8840 (3(3READ 


86 DB 


(3(3REM0V 


8609 00RENAM 


85F4 


(3(3REW 


86F0 


00RMTSK 


847A @(3RPTSK 


848 F 


(3@RREAD 


8705 


(3@RSLCT 


8561 (3@RST0R 


8522 


@(3RUN 


87 AD 


(30RWRIT 


871A P0SEEK 


854C 


(30SEEKSC 


872F 


0(3 SKIP 


8744 @(3SLCT 


850D @(3STEPI 


8537 


(3I3TIME 


83A8 @(3VDCTL 


8354 


(3(3 VER 


8759 


(3(3VRSEC 


858B (3(<>WE0F 


876E 


(30WHERE 


8249 


(3(3 WRITE 


8783 (3@WRSEC 


85B5 


(3(3WRSSC 


85CA 


(3(s>WRTRK 


85 DF 








2400 is the 


transfer address 








00000 Total 


errors 
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Command: SET, FILTER 
Library: SYS6/SYS 
ISAM # : 65H, 66H 
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SET/FILTER - LS-DOS 6.2 



Page 00001 



0000 



2CJ30 



2C00 C3B22C 



2C03 
2C03 
2C05 
2C06 
2C0A 
2C0D 
2C10 
2C10 
2C12 
2C13 
2C16 
2C17 
2C19 
2C1C 
2C1F 
2C1F 
2C21 
2C22 
2C25 
2C26 
2C28 
2C2B 
2C2C 
2C2D 
2C30 
2C31 
2C34 
2C36 
2C37 
2C3A 
2C3A 
2C3C 
2C3D 



2C3E 
2C3F 
2C43 
2C43 
2C45 



3E65 

EF 

FDCB0246 

C2272D 

11CD2D 

3E4E 

EF 

C2232D 

1A 

FE2A 

C2232D 

11ED2D 

3E4E 

EF 

C22B2D 

1A 

FE2A 

CA2B2D 

E5 

D5 

21AD2D 

EB 

012000 

EDB0 

Dl 

210B2D 

3E4F 

EF 

El 



E5 
ED5BCE2D 

3E52 
EF 



00100 
00110 
00120 
00130 
00140 
00010 
00020 
03900 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00001 
00002 
00280 
00290 
00300 
00310 
00003 
00004 
00320 
00330 
00340 
00350 
00360 
00370 
00005 



;LBSET/ASM - Set and Filter commands 

TITLE <SET/FILTER - LS-DOS 6.2> 



EQU 13 
SVCMAC:3 



CR 

*GET 

;SVCMAC/ASM - LS-DOS Version VI 

*LIST OFF 

*LIST ON 



;SVC Macro equivalents 



SET 



00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00007 
00008 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00009 
00010 



ORG this up here to allow driver programs to 
load at X'2400' without clobbering this program 



ORG 


2C00H 




FILTER 


entry point 




JP 


FILTER 


;Filter entry point 


SET entry point 




(30FLAGS 




;Flag table pointer 


LD 


A, 101 




RST 


40 




BIT 


9 (IY+'C , - , A') 


;Can't use if memory 


JP 


NZ 9 CANT 


; is frozen 


LD 


DE 9 DEVFCB 


;Get f i lespec 


(a@FSPEC 






LD 


A 9 78 




RST 


40 




JP 


NZ 9 DEVREQ 


;Quit if bad name 


LD 


A S (DE) 


;Ck on devicespec 


CP 


■ * ' 




JP 


NZ,DEVREQ 


;Must have device 


LD 


DE S PGMFCB 


;Get driver or fi Iter 


(a@FSPEC 




; fi lespec 


LD 


A, 78 




RST 


40 




JP 


NZ 9 SPCREQ 


;Must be entered 


LD 


A S (DE) 


;Target cannot be device 


CP 


■ *• 


; since this is SET 


JP 


Z S SPCREQ 




PUSH 


HL 


;Save INBUF$ pointer 


PUSH 


DE 


; and FCB start 


LD 


HL S SAVSPEC 


;Save the filter/driver 


EX 


DE 9 HL 


; fi lespec to try /DVR 


LD 


BC 9 32 


; if /FLT is not found 


LDIR 






POP 


DE 


;Recover FCB 


LD 


HL S FLTEXT 


;Default extension is FLT 


@@FEXT 




;Use default EXT if none 


LD 


A 9 79 




RST 


40 




POP 


HL 


;Recover cmdline posn 


Make sure device is not 


in system 


PUSH 


HL 


;Save INBUF$ pointer 


LD 


DE 9 (DEVFCB+1) 


;P/u device name 


@@GTDCB 




;Find device DCB address 


LD 


A, 82 




RST 


40 
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LIBRARY Fi 


les 


SET/FILTER - LS-I 


DOS 6.2 Page 00002 


2C46 2016 


00580 




JR 


NZ, NEWDCB 


;Go if not found 


2C48 CB5E 


00590 




BIT 


3,(HL) 


; else check if NIL 


2C4A 3E27 


00600 




LD 


A, 39 


;Init "Device in use.. . 


2C4C 2840 


00610 
00620 




JR 


Z,ERRPOP 


;Error if not NIL 




00630 




Inhibit 


SETting any system device 




00640 










2C4E E5 


00650 




PUSH 


HL 


;Save DCB pointer 


2C4F 21CD20 


00660 




LD 


HL,DEVFCB 


; Determine if system 


2C52 54 


00670 




LD 


D,H 


; device by attempting 


2C53 5D 


00680 




LD 


E,L 


; to rename it 


2C54 


00690 




@@RENAM 




;The error code will be 


2C54 3E38 


00011 




LD 


A, 56 




2C56 EF 


00012 




RST 


40 




2C57 El 


00700 




POP 


HL 


; either 19 or 40 


2C58 FE28 


00710 




CP 


40 


protected system device? 


2C5A 2832 


00720 




JR 


Z,ERRPOP 




2C5C 180A 


00730 
00740 


9 


JR 


GOTDCB 


; else we have it 




00750 


3 


Device 


not found - Locatt 


2 spare DCB 




00760 


3 








2C5E 110000 


00770 


NEWDCB 


LD 


DE s 


;Find spare device 


2C61 


00780 




@@GTDCB 




; table position 


2C61 3E52 


00013 




LD 


A, 82 




2C63 EF 


00014 




RST 


40 




2C64 3E21 


00790 




LD 


A s 33 


;"no device space avail 


2C66 2026 


00800 
00810 


» 


JR 


NZ,ERRPOP 


;Exit on error 




00820 


3 


DCB available - Load the 


driver/fi Iter 




00830 


3 








2C68 E5 


00840 GOTDCB 


PUSH 


HL 


;Save table address 


2C69 FDCB12D6 00850 




SET 


2,(IY+'S , - , A') 


;Allow use with EXEC only 


2C6D 11ED2D 


00860 




LD 


DE,PGMFCB 


;Load the target fi le 


2C70 


00870 




@@LOAD 




;Transfer address in HL 


2C70 3E4C 


00015 




LD 


A 9 76 




2C72 EF 


00016 




RST 


40 




2C73 281D 


00880 




JR 


Z s LOADOK 


;Go if file found 


2C75 E63F 


00890 




AND 


3FH 


;Strip flags 


2C77 FE1F 


00900 




CP 


31 


;Program not found? 


2C79 2012 


00910 
00920 


3 


JR 


NZ s LOADERR 


;Abort on any other 




00930 


3 


No FILTER found - Check 


on DRIVER 




00940 


3 








2C7B 11AD2D 


00950 




LD 


DE,SAVSPEC 


;Original filename 


2C7E 210E2D 


00960 




LD 


HL,DVREXT 


;Try with /DVR 


2C81 


00970 




(a@FEXT 






2C81 3E4F 


00017 




LD 


A, 79 




2C83 EF 


00018 




RST 


40 




2C84 FDCB12D6 00980 




SET 


2,(IY+ , S'- , A') 


;Allow use with EXEC only 


2C88 


00990 




(a@LOAD 






2C88 3E4C 


00019 




LD 


A, 76 




2C8A EF 


00020 




RST 


40 




2C8B 2805 


01000 




JR 


Z, LOADOK 


;Go if fi le found 


2C8D El 


01010 


LOADERR 


POP 


HL 


;Clean the stack 


2C8E El 


01020 ERRPOP 


POP 


HL 




2C8F C3112D 


01030 
01040 




JP 


IOERR 


;Abort on load error 




01050 




Move de 


vice name into string buffer 




01060 










2C92 Dl 


01070 


LOADOK 


POP 


DE 


;Rcvr table address 


2C93 D5 


01080 




PUSH 


DE 
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2C94 
2C95 
2C97 
2C98 
2C99 
2C9A 
2C9B 
2C9D 
2C9E 
2C9F 
2CA0 
2CA1 
2CA4 
2CA5 
2CA6 
2CA9 
2CAA 
2CAB 
2CAC 
2CAD 
2CB1 



2CB2 
2CB5 
2CB5 
2CB7 
2CB8 
2CBB 
2CBC 
2CBE 
2CC1 
2CC4 
2CC4 
2CC6 
2CC7 
2CCA 
2CCB 
2CCD 
2CO0 
2CD4 
2CD4 
2CD6 
2CD7 
2CD9 
2CDB 



F3 

3E08 

12 

1C 

1C 

1C 

3E08 

12 

1C 

1C 

1C 

3ACE2D 

12 

1C 

3ACF2D 

12 

FB 

Dl 

E3 

FDCB02DE 

C9 



11CD2D 

3E4E 

EF 

C2232D 

1A 

FE2A 

C2232D 

11ED2D 

3E4E 

EF 

C22B2D 

1A 

FE2A 

C2232D 

ED5BEE2D 

3E52 

EF 

2038 

CB76 

2842 



01090 

01100 

01110 

01120 NOSET 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 GODOIT 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

00021 

00022 

01350 

01360 

01370 

01380 

01390 



FILTER 



00023 



2CDD 54 
2CDE 5D 
2CDF 2C 
2CE0 7E 
2CE1 2C 
2CE2 66 
2CE3 6F 
2CE4 010400 
2CE7 09 
2CE8 4E 
2CE9 0C 



01410 

01420 

01430 

01440 

01450 

01460 

00025 

00026 

01470 

01480 

01490 

01500 ; 

01510 ; 

01520 ; 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 



DI 

LD 

LD 

INC 

INC 

INC 

LD 

LD 

INC 

INC 

INC 

LD 

LD 

INC 

LD 

LD 

EI 

POP 

EX 

SET 

RET 



A, 8 

(DE),A 

E 

E 

E 

A, 8 

(DE),A 

E 

E 

E 

A,(DEVFCB+1) 

(DE),A 

E 

A,(DEVFCB+2) 

(DE),A 

DE 

(SP),HL 

a.UY+'C'-'A') 



; Don't interrupt me 
;Set up as NIL first 

;Transfer device name 
; entered in command 
; to the device table 
;Show RESET as NIL 



;Point to name field 
;Move name to DCB 



interrupts back on 
;Recover DCB address 
; Stack prog's TRAADR 
;Set system request 
; & go to it 



FILTER *dev *dev routine 



LD 

@@FSPEC 

LD 

RST 

JP 

LD 

CP 

JP 

LD 

@(3FSPEC 

LD 

RST 

JP 

LD 

CP 

JP 

LD 

@@GTDCB 

LD 

RST 

JR 

BIT 

JR 



DE.DEVFCB 

A, 78 

40 

NZ,DEVREQ 

A,(DE) 

• *• 

NZ,DEVREQ 
DE.PGMFCB 

A s 78 

40 

NZ,SPCREQ 

A,(DE) 

• *> 

NZ,DEVREQ 
DE S (PGMFCB+1) 

A, 82 

40 

NZ, IOERR 

6,(HL) 

Z,NOTFLT 



;Get first spec 



;Quit on bad name 
;Ck on devicespec 

;Must have device 

;Get filter device spec 



; Must be entered 

; Target must be a device 

; since this is FILTER 

;Get filter DCB address 



;Quit if not found 
;Must be a filter 
;Quit if not 



FILTER must be inactive to use it 



LD 

LD 

INC 

LD 

INC 

LD 

LD 

LD 

ADD 

LD 

INC 



D,H 

E,L 

L 

A S (HL) 

L 

H S (HL) 

UA 

BC 9 4 

HL,BC 

C,(HL) 

C 



;Xfer FILTER DCB pointer 
; to DE & locate the 
; DCB pointer in the 
: the FILTER module 



;HL now points to the 
; entry point. Get its 
; DCB address by peeking 
; past the name field 
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les 


SET/FILTER - LS 


-DOS 6.2 Page 00004 


2CEA 09 


01640 




ADD 


HL S BC 




2CEB 7E 


01650 




LD 


A S (HL) 


;Get low-order 


2CEC 23 


01660 




INC 


HL 




2CED 66 


01670 




LD 


H 9 (HL) 


;Get hi -order 


2CEE 6F 


01680 
01690 




LD 


L,A 


;If DCB is NOT pointing 


2CEF ED52 


01700 




SBC 


HL 9 DE 


; to itself, then it 


2CF1 2028 


01710 
01720 


» 


JR 


NZ, ACTFLT 


; is an active fi Iter 




01730 


» 


The filter DCB pointer 


points to its DCB 




01740 


s 








2CF3 D5 


01750 




PUSH 


DE 


;Save filter DCB 


2CF4 ED5BCE2D 01760 




LD 


DE,(DEVFCB+1) 


;Find the device DCB 


2CF8 


01770 




@@GTDCB 






2CF8 3E52 


00027 




LD 


A, 82 




2CFA EF 


00028 




RST 


40 




2CFB Dl 


01780 




POP 


DE 




2CFC 2013 


01790 
01800 


J 


JR 


NZ, IOERR 


;Quit if not found 




01810 


9 


Swap the 1st three bytes of DCB & FILT DCB 




01820 


S 








2CFE 0603 


01830 




LD 


B,3 




2D00 4E 


01840 


SWAP 


LD 


C,(HL) 




2D01 1A 


01850 




LD 


A 9 (DE) 




2D02 77 


01860 




LD 


(HL) S A 




2D03 79 


01870 




LD 


A S C 




2D04 12 


01880 




LD 


(DE) 9 A 




2D05 2C 


01890 




INC 


L 




2D06 1C 


01900 




INC 


E 




2D07 10F7 


01910 




DJNZ 


SWAP 




2D09 182A 


01920 
01930 


s 


JR 


EXIT 




2D0B 46 


01940 


FLTEXT 


DB 


'FLT' 




4C 54 












2D0E 44 


01950 


DVREXT 


DB 


•DVR' 




56 52 


01960 


5 








2D11 6F 


01970 


IOERR 


LD 


L 9 A 


; Transfer error code 


2D12 2600 


01980 




LD 


H 9 


; to HL 


2D14 F6C0 


01990 




OR 


0C0H 


;Set abbrev & return 


2D16 4F 


02000 




LD 


C 9 A 




2D17 


02010 




TERROR 






2D17 3E1A 


00029 




LD 


A 9 26 




2D19 EF 


00030 




RST 


40 




2D1A C9 


02020 
02030 


» 


RET 






2D1B 21952D 


02040 ACTFLT 


LD 


HL 9 ACTFLT$ 




2D1E DD 


02050 




DB 


0DDH 




2D1F 217E2D 


02060 


NOTFLT 


LD 


HL,NOTFLT$ 




2D22 DD 


02070 




DB 


0DDH 




2D23 214F2D 


02080 


DEVREQ 


LD 


HL,DEVREQ$ 




2D26 DD 


02090 




DB 


0DDH 




2D27 21642D 


02100 CANT 


LD 


HL,CANT$ 




2D2A DD 


02110 




DB 


0DDH 




2D2B 213C2D 


02120 


SPCREQ 


LD 


HL 9 SPCREQ$ 




2D2E 


02130 




<a@LOGOT 








00031 




IFEQ 


00H,1 






00032 




LD 


HL 9 






00033 




ENDIF 






2D2E 3E0C 


00034 




LD 


A,12 




2D30 EF 


00035 




RST 


40 
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2D31 21FFFF 


02140 LD 


HL.-l 


2D34 C9 






02150 RET 
02160 ; 




2D35 210000 


02170 EXIT LD 


HL,0 


2D38 






02180 @@CKBRKC ;Clear out break 


2D38 3E6A 




00036 LD 


A, 106 


2D3A EF 






00037 RST 


40 


2D3B C9 






02190 RET 
02200 ; 




2D3C 46 






02210 SPCREQ$ DB 


'File spec required' S CR 


69 


6C 


65 


20 73 70 65 63 




20 


72 


65 


71 75 69 72 65 




64 


0D 








2D4F 44 






02220 DEVREQ$ DB 


'Device spec required', CR 


65 


76 


69 


63 65 20 73 70 




65 


63 


20 


72 65 71 75 69 




72 


65 


64 0D 




2D64 4E 






02230 CANT$ DB 


'No memory space avai 1 able ' ,CR 


6F 


20 


6D 


65 6D 6F 72 79 




20 


73 


70 


61 63 65 20 61 




76 


61 


69 


6C 61 62 6C 65 




0D 










2D7E 44 






02240 NOTFLT$ DB 


'Device is not a filter 1 S CR 


65 


76 


69 


63 65 20 69 73 




20 


6E 


6F 


74 20 61 20 66 




69 


6C 


74 


65 72 0D 




2D95 46 






02250 ACTFLT$ DB 


'FILTER module is in use' 9 CR 


49 


4C 


54 


45 52 20 6D 6F 




64 


75 


6C 


65 20 69 73 20 




69 


6E 20 


75 73 65 0D 










02260 ; 




0020 






02270 SAVSPEC DS 


32 


0020 






02280 DEVFCB DS 


32 ;Device file control bT 


0020 






02290 PGMFCB DS 
02300 ; 


32 ;Driver/filter FCB 


2C03 






02310 END 


SET 
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mi 


0000 (3(32 


0000 (3(33 


0000 


@@4 


0000 (3MOD2 


0000 (3MOD4 


FFFF 


ACTFLT 


2D1B ACTFLT$ 


2D95 CANT 


2D27 


CANT$ 


2D64 CR 


000D DEVFCB 


2DCD 


DEVREQ 


2D23 DEVREQ$ 


2D4F DVREXT 


2D0E 


ERRPOP 


2C8E EXIT 


2D35 FILTER 


2CB2 


FLTEXT 


2D0B GODOIT 


2CAB GOTDCB 


2C68 


IOERR 


2D11 LOADERR 


2C8D LOADOK 


2C92 


NEWDCB 


2C5E NOSET 


2C98 NOTFLT 


2D1F 


NOTFLT$ 


2D7E PGMFCB 


2DED SAVSPEC 


2DAD 


SET 


2C03 SPCREQ 


2D2B SPCREQ$ 


2D3C 


SWAP 


2D00 (3(3ABORT 


80A0 (3(3ADTSK 


8133 


(3@BANK 


864B (3(3BKSP 


832B @(3BREAK 


8661 


(JKaCHNIO 


808B @(3CKBRKC 


86AF (30CKDRV 


8187 


@@CKEOF 


8340 (3@CKTSK 


811E (3(3CLOSE 


8316 


@(3CLS 


8699 (3(3CMNDI 


80CA @@CMNDR 


80DF 


(3@CTL 


7EEF (3@DATE 


8061 (3(3 DC STAT 


81C6 


00DEBUG 


8109 (30DECHEX 


85CB (30DIRRD 


8538 


(3(<>DIRWR 


854D (3@DIV16 


85B6 (30DIV8 


85A1 


(3(3DODIR 


819C (3@DSP 


7EB3 (3@DSPLY 


7F53 


TERROR 


80F4 @(3EXIT 


80B5 @(3FEXT 


84A5 


(3@FLAGS 


8635 @@FNAME 


84BA @@FSPEC 


8490 


(3(3GATRD 


8523 @(3GATWR 


8562 @(3GET 


7EC7 


@@GTDCB 


84E4 @@GTDCT 


84CF (3@GTM0D 


84F9 


@@HDFMT 


826E (30HEX16 


860A (3@HEX8 


85F5 


m HEX DEC 


85E0 @(3HIGH$ 


861F @@INIT 


82 EC 


(3(3«BD 


7F2B (3(3KEY 


7E9F @@KEYIN 


7F3F 


(3@KLTSK 


8172 (3(3LOAD 


8466 (3(3LOC 


8355 


(3(3LOF 


836A (30LOGER 


7F8A @(3LOGOT 


7F9F 


(3(3 MSG 


7FD6 @(3MUL16 


858C (3<3MUL8 


8577 


(a@OPEN 


8301 @(3PARAM 


804C (3(3PAUSE 


8037 


(3@PEOF 


837F (3(3POSN 


8394 SPRINT 


7FEB 


(3@PRT 


7F03 (3@PUT 


7EDB (3(3RAMDIR 


81B1 


(3(3RDSEC 


8244 (3@RDSSC 


850E (3@READ 


83A9 


@(3REMOV 


82D7 @(3RENAM 


82C2 (3(3REW 


83BE 


(3(3RMTSK 


8148 (3(3RPTSK 


815D (3(3RREAD 


83D3 


(3(3RSLCT 


822F (3(3RSTOR 


81F0 @(3RUN 


847B 


(3(3RWRIT 


83E8 (30SEEK 


821A @(3SEEKSC 


83FD 


@@SKIP 


8412 @(3SLCT 


81DB P0STEPI 


8205 


(90TIME 


8076 (3(3VDCTL 


8022 (3(3VER 


8427 


@(?VRSEC 


8259 (3@WEOF 


843C (3(3WHERE 


7F17 


(3(3 WRITE 


8451 (3(3WRSEC 


8283 (3(3WRSSC 


8298 


@@WRTRK 


82 AD 






2C03 is the 


transfer address 






00000 Total 


errors 
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Command: 


SETCOM 


Library: 


SYS8/SYS 


ISAM # : 


B2H 
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Page 00001 



0004 
0004 



0006 
0007 



0000 
00A5 
0055 
0003 



0002 
0003 
000 D 
000A 
0027 
002 C 



0040 
0010 



0020 



OFFSET+0 
OFFSET+1 
OFFSET+2 
EQU OFFSET+3 

Default settings 



EQU 
EQU 
EQU 
EQU 



000 H 
0A5H 
055 H 
003 H 



;LBSETCOM/ASM - Set RS232 Parameters 
00110 TITLE <SETCOM - LS-DOS 6.2> 
00120 ; 

00130 ; Data area offsets 
00140 ; 

00150 OFFSET EQU 
00160 MSMASK EQU 
00170 UC IMAGE EQU 
00180 BAUDRT EQU 
00190 BRK 
00200 ; 
00210 ; 
00220 ; 
00230 DEFMS 
00240 DEFUC 
00250 DEFBA 
00260 DEFBR 
00270 ; 
00280 ; 
00290 ; 
00300 _INIT 
00310 _ETX 
00320 _CR 
00330 _LF 
00340 _APOS 
00350 PAR_ERR EQU 
00360 ; 
00370 ; 
00380 ; 
00390 FLAG 
00400 ABB 
00410 NUM 
00420 STR 
00430 ; 
00440 *GET 



ASCII/init equivalences 



EQU 
EQU 
EQU 
EQU 
EQU 



02 H 

03 H 
0DH 
0AH 
27 H 
44 



;Ctl value to init driver 



; Parameter Error 



@PARAM evaluation types 

EQU 01 000000 B 

EQU 00010000B 

EQU 10000000B 

EQU 00100000B 



2400 

2400 

2400 ED730B24 

2404 CD3A24 



2407 210000 
240A 310000 
240D 

240D 3E6A 
240F EF 
2410 C9 



2411 21FFFF 
2414 18F4 



SVCMAC:3 
;SVCMAC/ASM - LS-DOS Version VI 
00020 *LIST OFF 
03900 *LIST ON 
00450 ; 
00460 
00470 ; 
00480 BEGIN 
00490 
00500 
00510 ; 
00520 ; 
00530 ; 
00540 $EXIT 



;SVC Macro equivalents 



ORG 

EQU 

LD 

CALL 



2400H 

$ 

(SAVESP+1),SP 

PGRM 



Set up exit condition 
LD 



HL,0 

00550 SAVESP LD SP,$-$ 

00560 (30CKBRKC 

00001 LD A, 106 

00002 RST 40 
00570 RET 
00580 ; 

00590 ; Abort program 
00600 ; 

00610 $AB0RT LD HL.-l 

00620 JR SAVESP 
00630 

00640 ; Display char in C 
00650 



;Save entry stack 
;Perform operations 



;No errors 

;P/u original SP 

;Clear <BREAK> 



; Ini t error return 
;Exit program 
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2416 


00660 


$DSP 


@(9DSP 




; Display 


2416 3E02 


00003 




LD 


A, 2 




2418 EF 


00004 


V 


RST 


40 




2419 C8 


00670 




RET 


Z 


; Return if NO error 


241A 1804 


00680 
00690 




JR 


IOERR 


; else error 




00700 




Display 


text @ (HL) 






00710 










241C 


00720 $DSPLY 


(a@DSPLY 




;Display 




00005 




IFEQ 


00H,1 






00006 




LD 


HL, 






00007 




ENDIF 






241C 3E0A 


00008 




LD 


A, 10 




241E EF 


00009 




RST 


40 




241F C8 


00730 
00740 


J 


RET 


Z 


; Return if NO error 




00750 


S 


I/O error, display what 






00760 


* 








2420 6F 


00770 


IOERR 


LD 


L,A 


;Save error code 


2421 F6C0 


00780 




OR 


0C0H 


;Set return+short message 


2423 4F 


00790 




LD 


C,A 


;Pass error code 


2424 


00800 




(TERROR 




;Display error 


2424 3E1A 


00010 




LD 


A, 26 




2426 EF 


00011 
00810 


» 


RST 


40 




2427 2600 


00820 


ERRORS 


LD 


H,0 


;Set exit code 


2429 18DF 


00830 
00840 


» 


JR 


SAVESP 


terminate program 


242B 21E126 


00850 


BADMOD 


LD 


HL,BADDCB 


;'COM/DVR not installed' 


242E 


00860 




(a@LOGOT 




;Log error 




00012 




IFEQ 


00H,1 






00013 




LD 


HL, 






00014 




ENDIF 






242E 3E0C 


00015 




LD 


A, 12 




2430 EF 


00016 




RST 


40 




2431 2E08 


00870 




LD 


L,8 


; 'device not available' 


2433 18F2 


00880 
00890 




JR 


ERRORS 


;Return error in HL 




00900 




Paramet 


er error 






00910 










2435 3E2C 


00920 


PRMERR 


LD 


A, PAR ERR 


;" Parameter Error" 


2437 C32024 


00930 
00940 


s 


JP 


IOERR 


;Abort 




00950 


» 


PGRM - 


Set up RS-232 Parameters 




00960 


» 








243A 


00970 
00980 


PGRM 

» 


EQU 


$ 






00990 




IF 


@M0D4 




243A E5 


01000 




PUSH 


HL 


;Save command line pntr 


243B 11DD26 


01010 




LD 


DE,MDNAME 


;$CL name header 


243E 


01020 




@@GTMOD 




;Find module header 


243E 3E53 


00017 




LD 


A, 83 




2440 EF 


00018 




RST 


40 




2441 20E8 


01030 




JR 


NZ, BADMOD 


;Exit if not found 


2443 D5 


01040 




PUSH 


DE 


;Pass pointer to IX 


2444 DDE1 


01050 




POP 


IX 


;IX=>next byte after 


2446 El 


01060 
01070 
01080 




POP 
ENDIF 


HL 


;Rcvr cmdline ptr 




01090 




Check i 


f any parameters 


entered 




01100 
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2447 2B 


01110 


DEC 


HL 


; Setup for immed INC 


2448 23 


01120 SPLP 


INC 


HL 


;Bump to next char 


2449 7E 


01130 


LD 


A,(HL) 


;Fetch input char 


244A FE20 


01140 


CP 


i i 


; Space? 


244C 28FA 


01150 


JR 


Z,SPLP 


; Ignore if space 


244E FE28 


01160 


CP 


'(* 


; Param marker? 


2450 C2E229 


01170 
01180 ; 


JP 


NZ,SHOW 


;No, show settings 


2453 110728 


01190 


LD 


DE,PRMTBL$ 


; Parameter table 


2456 


01200 


(3(3 PAR AM 


1 


;Evaluate user input 


2456 3E11 


00019 


LD 


A, 17 




2458 EF 


00020 


RST 


40 




2459 C23524 


01210 
01220 ; 


JP 


NZ,PRMERR 


;Go if parameter error 




01230 


IF 


@M0D2 






01240 


LD 


A,(PORTP) 


;Get port param 




01250 


OR 


A 


;Anything input? 




01260 


LD 


DE,MDNAME1 


;$CL 




01270 


JR 


Z, PORTF 


;Go default 




01280 


LD 


BC.(PORTD) 


;Get port value 




01290 


INC 


B 


;Test msb 




01300 


DEC 


B 






01310 


JR 


NZ S PRMERR 


;Param error if >256 




01320 


LD 


A,C 


;Get Isb 




01330 


OR 


A 


;0? 




01340 


JR 


Z.PRMERR 


;Go if yes 




01350 


DEC 


A 


•1? 




01360 


JR 


Z, PORTF 


;Yes s $CL 




01370 


DEC 


A 


• 2? 




01380 


JR 


NZ 9 PRMERR 


; Param error if not 




01390 


LD 


DE,MDNAME2 


;$CM 


245C 


01400 PORTF 


@@6TM0D 




; Locate it 




00021 


LD 


A,83 






00022 


RST 


40 






01410 


JR 


NZ s BADMOD 


;Go if not found 




01420 


PUSH 


DE 


;Else pass to IX 




01430 


POP 


IX 


;IX => block 




01440 


ENDIF 








01450 ; 










01460 ; 


Check i 


f DEFAULT param 


entered 




01470 ; 








245C ED5B6627 


01480 


LD 


DE,(DFPARM) 


; Check D parm 


2460 7A 


01490 


LD 


A,D 




2461 B3 


01500 


OR 


E 




2462 C4CC26 


01510 
01520 ; 


\jrf\h~L. 


NZ 5 DEFALT 


;Go if Default parm used 


2465 ED5B4C27 01530 


LD 


DE 9 (QPARM) 


; Query parm used? 


2469 7A 


01540 


LD 


A S D 


;Check input 


246A B3 


01550 


OR 


E 




246B CA2025 


01560 
01570 ; 


JP 


Z,CKPARM 


; Check input if not quer. 




01580 ; 


Prompt 


user for input 


not entered on command lin 




01590 ; 










01600 ; 


Fetch BAUD 






01610 ; 








246E 213825 


01620 ASKBAUD 


LD 


HL,DMSG2 


;BAUD param display 


2471 111A28 


01630 


LD 


DE,BTYP 


;BAUD param 


2474 CD5026 


01640 


CALL 


GETIT 


;Get user input 


2477 300B 


01650 


JR 


NC, ASK WORD 


;Continue on ENTER 


2479 CDC229 


01660 


U M L L 


CKBAUD 


;Test response for valid 


247C 2806 


01670 


JR 


Z s ASKWORD 


;Move on if valid entry 
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247 E AF 


01680 


BADBAUD 


XOR 


A 


; else clear 


247F 321F28 


01690 




LD 


(BRESP) 9 A 


; for re-try 


2482 18EA 


01700 
01710 


» 


JR 


ASKBAUD • 


;Bad entry - retry 




01720 


» 


Fetch 


WORD 






01730 


» 








2484 216625 


01740 ASK WORD 


LD 


HL,DMSG3 


;WORD display 


2487 112228 


01750 




LD 


DE S WTYP 


; Par am type 


248A CD5026 


01760 




CALL 


GETIT 


;Get user input 


248 D 3011 


01770 




JR 


NC, ASKSTOP 


;Nil input, leave it 


248F 3A5027 


01780 




LD 


A s (WORDP) 


;Fetch input 


2492 FE05 


01790 




CP 


5 


;<5? 


2494 3804 


01800 




JR 


C 9 BADWORD 


;Bad entry 


2496 FE09 


01810 




CP 


8+1 


;>8? 


2498 3806 


01820 




JR 


C 9 ASKST0P 


;Go if OK 


249A AF 


01830 


BADWORD 


XOR 


A 


;Clear param 


249B 322728 


01840 




LD 


(WRESP) 9 A 


;Load flag 


249E 18E4 


01850 
01860 


s 


JR 


ASK WORD 


;Re-try 




01870 


5 


Fetch 


STOP 






01880 


9 








24A0 217F25 


01890 ASKSTOP 


LD 


HL 9 DMSG4 


;STOP 


24A3 112A28 


01900 




LD 


DE 9 STYP 


;=>type byte 


24A6 CD5026 


01910 




CALL 


GETIT 


;Get user input 


24A9 3014 


01920 




JR 


NC 9 ASKPAR 


;Nil input, leave it 


24AB 3A5227 


01930 




LD 


A 9 (ST0PP) 


;Chk range 


24AE B7 


01940 




OR 


A 


;0? 


24AF 2804 


01950 




JR 


Z 9 BADSTOP 


; Invalid if yes 


24B1 FE03 


01960 




CP 


2+1 


;>2? 


24B3 380A 


01970 




JR 


C 9 ASKPAR 


;Go if OK 


24B5 AF 


01980 


BADSTOP 


XOR 


A 


;Load zero 


24B6 322F28 


01990 




LD 


(SRESP),A 


;Clear input param 


24B9 18E5 


02000 
02010 


» 


JR 


ASKSTOP 


;Ask again 




02020 


9 


Fetch 


PARITY 






02030 


9 








24BB AF 


02040 


BADPAR 


XOR 


A 


;Load zero 


24BC 323928 


02050 




LD 


(PRESP) 9 A 


;Clear response byte 


24BF 219125 


02060 ASKPAR 


LD 


HL 9 DMSG5 


; PARITY display driver 


24C2 113228 


02070 




LD 


DE 9 PTYP 


; Param type 


24C5 CD5026 


02080 




CALL 


GETIT 


;Get user input 


24C8 3017 


02090 
02100 


» 


JR 


NC 9 ASKBRK 


;Nil input, leave 




02110 


9 


Check 


if user entere 


d '0' or 'E' or ON/OFF 




02120 


9 








24CA 3A3928 


02130 




LD 


A 9 (PRESP) 


;Get response byte 


24CD ED5B5427 


02140 




LD 


DE 9 (PARITYP) 


;Get param pointer 


24D1 CB77 


02150 




BIT 


6 9 A 


; Switch? 


24 D3 200C 


02160 
02170 




JR 


NZ 9 ASKBRK 


;Yes 9 continue 




02180 




Check 


for ODD/EVEN i 


nput 




02190 










24 D5 1A 


02200 




LD 


A 9 (DE) 


;Get input 


24D6 CDB929 


02210 




CALL 


UCASE 


;Make upper case 


24 D9 FE45 


02220 




CP 


, E . 


;Even? 


24 DB 2804 


02230 




JR 


Z,ASKBRK 


; Continue if yes 


24 DD FE4F 


02240 




CP 


•0' 


;Odd? 


24DF 20DA 


02250 
02260 


9 


JR 


NZ, BADPAR 


; Invalid, re-prompt 




02270 


9 


Fetch 


BREAK 






02280 


9 
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24E1 21B025 


02290 ASKBRK 


LD 


HL,DMSG6 


; Displ ay driver 


24E4 110828 


02300 


LD 


DE,BRTYP 


; Par am type 


24E7 CD5026 


02310 
02320 ; 


CALL 


GETIT 


;6et user input 




02330 ; 


Fetch 


DTR 






02340 ; 








24EA 21CB25 


02350 ASKDTR 


LD 


HL,DMSG8 


;Display driver 


24ED 114B28 


02360 


LD 


DE,DTYP 


; Par am type 


24F0 CD5026 


02370 
02380 ; 


CALL 


GETIT 


;Get user input 




02390 ; 


Fetch 


RTS 






02400 ; 








24F3 21D725 


02410 ASKRTS 


LD 


HL.DMSG9 


;Display driver 


24F6 115228 


02420 


LD 


DE,RTYP 


; Par am type 


24F9 CD5026 


02430 
02440 ; 


CALL 


GETIT 


;6et user input 




02450 ; 


Fetch 


RI 






02460 ; 








24FC 21F225 


02470 ASKRI 


LD 


HL,DMSG11 


;Display driver 


24FF 115928 


02480 


LD 


DE,RITYP 


; Par am type 


2502 CD5026 


02490 
02500 ; 


CALL 


GETIT 


;Get user input 




02510 ; 


Fetch 


DSR 






02520 ; 








2505 21F925 


02530 ASKDSR 


LD 


HL 9 DMSG12 


;Display driver 


2508 116528 


02540 


LD 


DE,DSTYP 


; Par am type 


250B CD5026 


02550 
02560 ; 


CALL 


GETIT 


;Get user input 




02570 ; 


Fetch 


CD 






02580 ; 








250E 210026 


02590 ASKCD 


LD 


HL,DMSG13 


; Displ ay driver 


2511 115F28 


02600 


LD 


DE,CDTYP 


; Par am type 


2514 CD5026 


02610 
02620 ; 


CALL 


GETIT 


;Get user input 




02630 ; 


Fetch 


CTS 






02640 ; 








2517 210726 


02650 ASKCTS 


LD 


HL,DMSG14 


; Displ ay driver 


251A 116C28 


02660 


LD 


DE,CTTYP 


; Par am type 


251D CD5026 


02670 
02680 ; 


CALL 


GETIT 


;Get user input 




02690 ; 


Check 


params and issue 


INIT to device 




02700 ; 








2520 CD7F28 


02710 CKPARM 


CALL 


SETPARAM 


;Check entered params 


2523 DD5E00 


02720 


LD 


E.UX+0) 


;Pickup DCB address Isb 


2526 DD5601 


02730 


LD 


D,(IX+1) 


;Pickup DCB address msb 


2529 0E02 


02740 


LD 


C,_INIT 


; Init code 


252B 


02750 


(a@CTL 




;Setup channel for value 


252B 3E05 


00023 


LD 


A, 5 




252D EF 


00024 


RST 


40 




252E C9 


02760 
02770 ; 


RET 




;Completed 




02780 ; 


Displ i 


ay drivers for text 




02790 ; 








252F 216C27 


02800 DMSG1 


LD 


HL,MSG1 


;RS232 params: 


2532 CD1C24 


02810 


CALL 


$DSPLY 


;Display and return 


2535 360A 


02820 


LD 


(HL),_LF 


;Set for next time 


2537 C9 


02830 
02840 ; 


RET 






2538 218027 


02850 DMSG2 


LD 


HL,MSG2 


;BAUD= 


253B CD1C24 


02860 


CALL 


$DSPLY 


;Display 


253E DD7E06 


02870 


LD 


A,(IX+BAUDRT) 


;Get baud rate 
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2541 
2543 
2544 
2547 
2548 
2549 
254B 
254C 
254D 
254E 
254F 
2550 
2553 
2553 
2555 
2556 
2558 



E60F 

87 

21FA26 

85 

6F 

3001 

24 

7E 

23 

66 

6F 

11F727 

3E61 
EF 

3E03 
12 



2559 21F727 
255C 3E20 
255E BE 
255F 23 

2560 28FC 

2562 2B 

2563 C31C24 



2566 
2569 
256C 
256F 
2570 
2571 
2572 
2574 
2577 
2579 
257B 
257C 



218627 

CD1C24 

DD7E05 

07 

07 

07 

E603 

EA7925 

EE03 

C635 

4F 

C31624 



257F 218C27 
2582 CD1C24 
2585 0E31 
2587 DDCB0566 
258B 2801 
258D 0C 
258E C31624 



2591 
2594 
2597 
259A 
259E 
25A1 
25A4 
25A8 
25AA 
25AD 



219227 

CD1C24 

21E327 

DDCB055E 

C21C24 

21E72 7 

DDCB057E 

2803 

21EB27 

C31C24 



02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 
02970 
02980 
02990 



25B0 219A27 



00025 

00026 

03010 

03020 

03030 ; 

03040 ; 

03050 ; 

03060 

03070 

03080 STRIP1 

03090 

03100 

03110 

03120 

03130 ; 

03140 DMSG3 

03150 

03160 

03170 

03180 

03190 

03200 

03210 

03220 

03230 

03240 

03250 

03260 ; 

03270 DMSG4 

03280 

03290 

03300 

03310 

03320 

03330 

03340 ; 

03350 DMSG5 

03360 

03370 

03380 

03390 

03400 

03410 

03420 

03430 

03440 

03450 ; 

03460 DMSG6 



AND 

ADD 

LD 

ADD 

LD 

JR 

INC 

LD 

INC 

LD 

LD 

LD 

@@HEXDEC 

LD 

RST 

LD 

LD 



0FH 

A, A 

HL.BAUDTBL 

A,L 

L,A 

NC,$+3 

H 

A,(HL) 

HL 

H,(HL) 

L 9 A 

DE,MSG20 

A, 97 
40 

A 9 _ETX 
(DE),A 



;Low 4 bits only 

;*2 

;Baud lookup table 

;Add to Isb table 

;Update Isb table 

;Go if no page cross 

; else bump page 

;Get LSB baud 

;Bump table pointer 

;Get MSB baud 

;HL = baud rate 

;Text to load 

; Convert to decimal 



;End text char 
; Terminate text 



Strip leading zeroes from display 



LD 

LD 

CP 

INC 

JR 

DEC 

JP 

LD 

CALL 

LD 

RLCA 

RLCA 

RLCA 

AND 

JP 

XOR 

ADD 

LD 

JP 

LD 

CALL 

LD 

BIT 

JR 

INC 

JP 

LD 

CALL 

LD 

BIT 

JP 

LD 

BIT 

JR 

LD 

JP 

LD 



HL,MSG20 

A,' ' 

(HL) 

HL 

Z,STRIPl 

HL 

$DSPLY 

HL,MSG3 

SDSPLY 

A,(IX+UCIMAGE) 



3 

PE,$+5 

3 

A,5+'0' 

C,A 

$DSP 

HL,MSG4 

$DSPLY 

C, '1' 

4,(IX+UCIMAGE) 

Z 9 $+3 

C 

$DSP 

HL,MSG5 

$DSPLY 

HL,MSG16 

3,(IX+UCIMAGE) 

NZ,$DSPLY 

HL,MSG17 

7,(IX+UCIMAGE) 

Z,$+5 

HL,MSG18 

$DSPLY 

HL,MSG6 



;Text loaded 

;Test char 

; Leading zero? 

;Bump pointer 

;Go till non-zero found 

; Adjust pointer 

; Display remainder 

;WORD= 

; Display header 

;Get data 

;Align to low bits 



;2 bits only 

;Go if set 

;Else reverse 6/7 

;Correct + ASCII 

;Pass character 

;Display and return 

;STOP= 

;Display header 

;Set one bit 

;Get data 

;Go if one stop 

;Else bump to '2' 

; Display and return 

;PARITY= 

;Display 

;0FF 

;Is off? 

;Yes, go 

;0DD 

;Is odd? 

;Go if yes 

;EVEN 

;Display and return 

;BREAK= 
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25B3 CD1C24 


03470 




CALL 


$DSPLY 


; Display header 


25B6 DD4E07 


03480 




LD 


CUX+BRK) 


;Get break char 


25B9 21FF27 


03490 




LD 


HL,MSG21A 


;Text to load 


25 BC 


03500 




(3(c>HEX8 




;Convert to ASCII 


25BC 3E62 


00027 




LD 


A 9 98 




25BE EF 


00028 




RST 


40 




25BF 21FD27 


03510 




LD 


HL 5 MSG21 


;Text start 


25C2 C31C24 


03520 
03530 


9 


JP 


$DSPLY 


; Display and return 


25C5 21A127 


03540 


DMSG7 


LD 


HL 9 MSG7 


; Input: 


25C8 C31C24 


03550 
03560 


9 


JP 


$DSPLY 


; Display and return 


25CB 21B327 


03570 


DMSG8 


LD 


HL,MSG8 


;DTR= 


25CE CD1C24 


03580 




CALL 


$DSPLY 


; Display 


25D1 DDCB054E 


03590 




BIT 


1 9 (IX+UC IMAGE) 


;Is on? 


25D5 180A 


03600 
03610 


» 


JR 


DMSG89 


;Display 


25D7 21B827 


03620 


DMSG9 


LD 


HL 5 MSG9 


;RTS= 


25DA CD1C24 


03630 




CALL 


$DSPLY 


; Display header 


25DD DDCB0546 


03640 
03650 


9 


BIT 


s (IX+UCIMAGE) 


;Is on? 


25E1 21E027 


03660 


DMSG89 


LD 


HL S MSG15 


;ON? 


25E4 2803 


03670 




JR 


Z s $+5 


;Go if yes 


25E6 21E327 


03680 




LD 


HL 9 MSG16 


;OFF 


25E9 C31C24 


03690 
03700 


9 


JP 


$DSPLY 


;Display and return 


25EC 21BD27 


03710 


DMSG10 


LD 


HL 9 MSG10 


;Output: 


25EF C31C24 


03720 
03730 


9 


JP 


$DSPLY 


; Display and return 


25F2 21CE27 


03740 


DMSG11 


LD 


HL,MSG11 


;RI = 


25F5 3E11 


03750 




LD 


A 9 00010001 B 


;Enable bits 


25F7 1813 


03760 
03770 


9 


JR 


DMSG0 


;Go common 


25F9 21D227 


03780 


DMSG12 


LD 


HL 9 MSG12 


;DSR= 


25FC 3E44 


03790 




LD 


A,01000100B 


;Enable bits 


25FE 180C 


03800 
03810 


s 


JR 


DMSG0 


;Go common 


2600 21D727 


03820 


DMSG13 


LD 


HL 9 MSG13 


;CD= 


2603 3E22 


03830 




LD 


AJ0100010B 


;Enable bits 


2605 1805 


03840 
03850 


9 


JR 


DMSG0 


;Go common 


2607 21DB27 


03860 


DMSG14 


LD 


HL 9 MSG14 


;CTS= 


260A 3E88 


03870 
03880 


9 


LD 


A,10001000B 


;Enable bits 


260C F5 


03890 


DMSG0 


PUSH 


AF 


;Save bits 


260D CD1C24 


03900 




CALL 


$DSPLY 


; Display prefix 


2610 Fl 


03910 




POP 


AF 


;Restore 


2611 DDA604 


03920 




AND 


(IX+MSMASK) 


;And with mask 


2614 21F027 


03930 




LD 


HL 9 MSG19 


; IGNORE 


2617 2809 


03940 




JR 


Z.DMSG0X 


;Go if yes 


2619 21E027 


03950 




LD 


HL 5 MSG15 


;ON 


261C E22226 


03960 




JP 


PO,DMSG0X 


;Go if yes 


261F 21E327 


03970 




LD 


HL,MSG16 


;OFF 


2622 C31C24 


03980 
03990 


DMSG0X 

9 


JP 


$DSPLY 


;Display and return 


2625 210328 


04000 


DMSG22 


LD 


HL 9 MSG22 


;CR 


2628 C31C24 


04010 
04020 


9 


JP 


$DSPLY 


; Display and return 


262B 210428 


04030 


DMSG23 


LD 


HL,MSG23 


9 9 


262E C31C24 


04040 
04050 


9 


JP 


$DSPLY 


;Display and return 



Page 370 



The Source 


LIBRARY Fi 


les 


SETCOM - LS-DOS 


6.2 Page 00008 




04060 


5 


Display entire parameter 


* set 




04070 


3 








2631 FDE5 


04080 


DSPALL 


PUSH 


IY 


;Save 


2633 FD211A27 


04090 




LD 


IY,DSPTBL 


;Display table 


2637 FD6E00 


04100 


DSPSET 


LD 


L,(IY+0) 


;Get Isb vector 


263A FD6601 


04110 




LD 


H,(IY+1) 


;Get msb vector 


263D 7C 


04120 




LD 


A,H 


;Check for term 


263E B5 


04130 




OR 


L 


;HL = 0000? 


263F 280C 


04140 




JR 


Z, DSPDONE 


;Yes, go 


2641 E5 


04150 




PUSH 


HL 


;Save address 


2642 214726 


04160 




LD 


HL, DSPRET 


;Return vector 


2645 E3 


04170 




EX 


(SP),HL 


; Leave return, get vector 


2646 E9 


04180 




JP 


(HL) 


;Display 


2647 FD23 


04190 


DSPRET 


INC 


IY 


;Bump table 


2649 FD23 


04200 




INC 


IY 


;2 byte entries 


264B 18EA 


04210 




JR 


DSPSET 


;Continue 


264D FDE1 


04220 


DSPDONE 


POP 


IY 


;Restore 


264F C9 


04230 
04240 


3 


RET 




;Display complete 




04250 


) 


QUERYi 


rig for parameter 






04260 


» 








2650 E5 


04270 GETIT 


PUSH 


HL 


;Save display driver 


2651 D5 


04280 




PUSH 


DE 


;Save type byte 


2652 EB 


04290 




EX 


DE , HL 


;Type byte to HL 


2653 CD6326 


04300 




CALL 


CKRSP 


;Check if response enterd 


2656 Dl 


04310 




POP 


DE 


;Restore type byte 


2657 El 


04320 




POP 


HL 


; Res tore prompt 


2658 C0 


04330 
04340 


3 


RET 


NZ 


;Already have this one 




04350 


3 


Setup 


for prompt display 




04360 


3 








2659 E5 


04370 




PUSH 


HL 


;Save for repeat prompt 


265A D5 


04380 




PUSH 


DE 




265B CD7426 


04390 




CALL 


GETRSP 


;Get user response 


265E Dl 


04400 




POP 


DE 


;Restore data 


265F El 


04410 




POP 


HL 




2660 20EE 


04420 




JR 


NZ, GETIT 


; Invalid, ask again 


2662 C9 


04430 
04440 


3 


RET 




; else param loaded 




04450 


3 


Check 


if correct response entered 




04460 


3 








2663 22A026 


04470 CKRSP 


LD 


(TTYP),HL 


;Save type position 




04480 


3 








2666 3E0F 


04490 MVUP 


LD 


A,0FH 


;Low 4 bits for length 


2668 4E 


04500 




LD 


C,(HL) 


;Get type byte 


2669 Al 


04510 




AND 


C 


;Fetch length 


266A 23 


04520 


UP 


INC 


HL 


;Bump pointer 


266B 3D 


04530 




DEC 


A 


;Less length 


266C 20FC 


04540 




JR 


NZ,UP 


;Go for length 


266E 23 


04550 




INC 


HL 


;Bump to next 


266F 7E 


04560 




LD 


A,(HL) 


;Get response byte 


2670 E6E0 


04570 




AND 


NUM!FLAG!STR 


;Response type bits 


2672 Al 


04580 




AND 


C 


;Compare to entered 


2673 C9 


04590 
04600 


» 


RET 




;Return with status 




04610 


3 


Query 


on s param not entered, prompt for it 




04620 


3 








2674 E5 


04630 GETRSP 


PUSH 


HL 


;Save driver address 


2675 217A26 


04640 




LD 


HL,GETRSPR 


;Return vector 


2678 E3 


04650 




EX 


(SP),HL 


; Leave get display driver 


2679 E9 


04660 




JP 


(HL) 


; Display prompt 
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267A 0604 


04680 GETRSPR 


LD 


B,4 


;Command get cursor 


267C 


04690 


(a@VDCTL 




;Fetch cursor 


267C 3E0F 


00029 


LD 


A, 15 




267E EF 


00030 


RST 


40 




267F 2E14 


04700 


LD 


L s 20 


; Column to position to 


2681 0603 


04710 


LD 


B,3 


jCommand put cursor 


2683 


04720 


@@VDCTL 




; Setup new cursor 


2683 3E0F 


00031 


LD 


A, 15 




2685 EF 


00032 


RST 


40 




2686 21F726 


04730 


LD 


HL, PROMPT 


; Prompt text 


2689 CD1C24 


04740 


CALL 


$DSPLY 


; Display prompt 


268C AF 


04750 


XOR 


A 


;Load zero 


268D 32E829 


04760 
04770 ; 


LD 


(FRESP),A 


;Clear response byte 


2690 21EF29 


04780 


LD 


HL, INBUF 


;Key input buffer 


2693 01000A 


04790 


LD 


BC,10<8+0 


;Max input length 


2696 


04800 


@@KEYIN 




;Get user input 


2696 3EJ99 


00033 


LD 


A, 9 




2698 EF 


00034 


RST 


40 




2699 DA1124 


04810 
04820 ; 


JP 


C s $ABORT 


; Terminate on BREAK 




04830 ; 


Evaluate user input 






04840 ; 








269C 04 


04850 


INC 


B 


;Check if nil input 


269D 05 


04860 


DEC 


B 


;B=0? 


269E C8 


04870 
04880 ; 


RET 


Z 


;No input, go 


269F 210000 


04890 


LD 


HL s 


;Get param pointer 


26A0 


04900 TTYP 


EQU 


$-2 




26A2 7E 


04910 


LD 


A S (HL) 


;Get response type 


26A3 E6F0 


04920 


AND 


0F0H 


; attribute only 


26A5 F601 


04930 


OR 


1 


; Single byte char 


26A7 32E629 


04940 
04950 ; 


LD 


(FTYP) S A 


;Pass to new block 


26AA 21EC29 


04960 


LD 


HL,FSTR 


;Set command pointer 


26AD 11E529 


04970 


LD 


DE,PTBL2 


;Mini-param table 


26B0 


04980 


@@PARAM 




;Evaluate input 


26B0 3E11 


00035 


LD 


A s 17 




26B2 EF 


00036 


RST 


40 




26B3 C0 


04990 
05000 ; 


RET 


NZ 


;Invalid, go 


26B4 2AA026 


05010 


LD 


HL S (TTYP) 


;Get response pointer 


26B7 CD6626 


05020 


CALL 


MVUP 


;Move to response byte 


26BA 3AE829 


05030 


LD 


A,(FRESP) 


;Get input response 


26BD 77 


05040 


LD 


(HL) S A 


; to param block 


26BE 23 


05050 


INC 


HL 


;Bump to word pointer 


26BF CDB429 


05060 


CALL 


GETHL 


;Get pointer 


26C2 ED4B6A27 


05070 


LD 


BC.(FPARM) 


;Get temp param 


26C6 71 


05080 


LD 


(HL) S C 


;Load into param block 


26C7 23 


05090 


INC 


HL 


;Bump pointer 


26C8 70 


05100 


LD 


(HL),B 


;New param loaded 


26C9 AF 


05110 


XOR 


A 


;Set NO error 


26CA 37 


05120 


SCF 




;Carry = input 


26CB C9 


05130 
05140 ; 


RET 




;Done 




05150 ; 


Init default setting 


is 




05160 ; 








26CC DD360400 05170 DEFALT 


LD 


(IX+MSMASK), 


DEFMS 


26D0 DD3605A5 05180 


LD 


(IX+UC IMAGE) 


i.DEFUC 


26D4 DD360655 


; 05190 


LD 


(IX+BAUDRT), 


DEFBA 
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26D8 DD360703 05200 



26DC C9 



26 DD 24 

43 4C 
26 E0 03 



LD 
RET 



SETCOM - LS-DOS 6.2 
(IX+BRK),DEFBR 



Page 00010 



05210 

05220 ; 

05230 ; 

05240 ; 

05250 IF 

05260 MDNAME DB 



Text area 



05270 DB 
05280 ENDIF 
05290 ; 

05300 IF 
05310 MDNAME1 DB 
05320 DB 
05330 MDNAME2 DB 
05340 DB 
05350 ENDIF 
05360 ; 
26E1 43 05370 BADDCB DB 
4F 4D 2F 44 56 52 20 6E 
6F 74 20 69 6E 73 74 61 
6C 6C 65 64 



(3M0D4 
'$CL' 

ETX 



@M0D2 
'$CL' 
_ETX 
•$CM' 
ETX 



26F6 0D 

26 F 7 3F 

20 

26F9 03 



DB 



05380 

05390 ; 

05400 PROMPT DB 



DB 



'COM/DVR not installed' 

_CR 
'? ' 
ETX 



Valid baud rate lookup table 



05410 

05420 ; 

05430 ; 

05440 ; 
26FA 3200 05450 BAUDTBL DW 50 , 75 , 110 , 135 , 150 , 300 ,600 ,1200,1800 

4B00 6E00 8700 9600 2C01 5802 B004 0807 
270C D007 05460 DW 2000,2400,3600,4800,7200,9600,19200 

6009 100E C012 201C 8025 004B 

05470 ; 

05480 ; Display driver lookup table 

05490 ; 



271A 2F25 


05500 DSPTBL 


DW 


DMSGl ; 


RS232 params: 


271C 3825 


05510 


DW 


DMSG2 ; 


BAUD=' 


271E 2B26 


05520 


DW 


DMSG23 ; 


i 

9 


2720 6625 


05530 


DW 


DMSG3 ; 


WORD=' 


2722 2B26 


05540 


DW 


DMSG23 ; 


9 


2724 7F25 


05550 


DW 


DMSG4 ; 


STOP=' 


2726 2B26 


05560 


DW 


DMSG23 ; 


i 

9 


2728 9125 


05570 


DW 


DMSG5 ; 


PARITY=' 


272A 2B26 


05580 


DW 


DMSG23 ; 


i 

9 


272C B025 


05590 
05600 ; 


DW 


DMSG6 ; 


BREAK=' 


272E C525 


05610 


DW 


DMSG7 ; 


output: ' 


2730 CB25 


05620 


DW 


DMSG8 ; 


DTR=' 


2732 2B26 


05630 


DW 


DMSG23 ; 


i 

9 


2734 D725 


05640 
05650 ; 


DW 


DMSG9 ; 


RTS = ' 


2736 EC25 


05660 


DW 


DMSG10 ; 


input: ' 


2738 F225 


05670 


DW 


DMSG11 ; 


RI = ' 


273A 2B26 


05680 


DW 


DMSG23 ; 


9 


273C F925 


05690 


DW 


DMSG12 ; 


DSR=' 


273E 2B26 


05700 


DW 


DMSG23 ; 


i 

9 


2740 0026 


05710 


DW 


DMSG13 ; 


CD=' 


2742 2B26 


05720 


DW 


DMSG23 ; 


i 

9 


2744 0726 


05730 


DW 


DMSG14 ; 


CTS=' 
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2746 2526 




05740 


DW 


DMSG22 ;_cr 




2748 0000 




05750 
05760 ; 


DW 


; Terminator 








05770 ; 


Parameter pointer table 








05780 ; 








274A 0000 




05790 BREAKP 


DW 







274C 0000 




05800 QPARM 


DW 







274E 0000 




05810 BAUDP 


DW 







2750 0000 




05820 WORDP 


DW 







2752 0000 




05830 STOPP 


DW 







2754 0000 




05840 PARITYP 


DW 







2756 0000 




05850 EVENP 


DW 







2758 0000 




05860 ODDP 


DW 







275A 0000 




05870 DTRP 


DW 







275C 0000 




05880 RTSP 


DW 







275E 0000 




05890 RIP 


DW 







2760 0000 




05900 CDP 


DW 







2762 0000 




05910 DSRP 


DW 







2764 0000 




05920 CTSP 


DW 







2766 0000 




05930 DFPARM 


DW 







2768 0000 




05940 PORTD 


DW 







276A 0000 




05950 FPARM 
05960 ; 


DW 







276C 00 




05970 MSG1 


DB 


;Will be LF 


after 1st C 


276D 52 




05980 


DB 


'RS232' 




53 32 


33 


32 












05990 


IF 


@MOD2 








06000 MSG1A 


DB 


'A* 








06010 


ENDIF 






2772 20 




06020 


DB 


1 parameters: ' 




70 61 


72 


61 6D 65 74 65 






72 73 


3A 20 








277F 03 




06030 
06040 ; 


DB 


_ETX 




2780 42 




06050 MSG2 


DB 


'Baud=» 




61 75 


64 


3D 








2785 03 




06060 
06070 ; 


DB 


_ETX 




2786 57 




06080 MSG3 


DB 


'Word=' 




6F 72 


64 


3D 








278B 03 




06090 
06100 ; 


DB 


_ETX 




278C 53 




06110 MSG4 


DB 


•Stop*' 




74 6F 


70 


3D 








2791 03 




06120 
06130 ; 


DB 


_ETX 




2792 50 




06140 MSG5 


DB 


'Parity^ 




61 72 


69 


74 79 3D 








2799 03 




06150 
06160 ; 


DB 


_ETX 




279A 42 




06170 MSG6 


DB 


'Break=' 




72 65 


61 


6B 3D 








27A0 03 




06180 
06190 ; 


DB 


_ETX 




27A1 0A 




06200 MSG7 


DB 


_LF 




27A2 4F 




06210 


DB 


'Output control : ' 




75 74 


70 


75 74 20 63 6F 






6E 74 


72 


6F 6C 3A 20 








27B2 03 




06220 
06230 ; 


DB 


_ETX 




27B3 44 




06240 MSG8 


DB 


'DTR=' 
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54 52 
27B7 03 

27B8 52 

54 53 
27BC 03 

27BD 0A 

27BE 49 

6E 70 
74 72 

27 CD 03 

27 CE 52 

49 3D 
27D1 03 

27D2 44 

53 52 
27D6 03 

27 D7 43 

44 3D 
27 DA 03 

27DB 43 

54 53 
27 DF 03 

27E0 4F 

4E 

27E2 03 

27E3 4F 

46 46 
27E6 03 

27E7 4F 

44 44 
27 EA 03 

27 EB 45 

56 45 
27 EF 03 

27F0 49 

47 4E 
27F6 03 

27F7 30 

30 30 
27FC 03 

27FD 58 

27 
27FF 30 

30 27 

2802 03 

2803 0D 



3D 



3D 



06250 DB 

06260 ; 

06270 MSG9 DB 



DB 



06280 

06290 ; 

06300 MSG10 DB 

06310 OB 

75 74 20 63 6F 6E 
6F 6C 3A 20 

06320 DB 

06330 ; 

06340 MS611 DB 

06350 DB 

06360 ; 

06370 MS612 DB 



3D 



3D 



4E 



06380 DB 

06390 ; 

06400 MSG13 DB 

06410 DB 

06420 ; 

06430 MSG14 DB 

06440 DB 

06450 ; 

06460 MSG15 DB 

06470 DB 

06480 ; 

06490 MSG16 DB 

06500 DB 

06510 ; 

06520 MSG17 DB 

06530 DB 

06540 ; 

06550 MSG18 DB 



DB 



06560 

06570 ; 

06580 MSG19 DB 
4F 52 45 

06590 DB 

06600 ; 

06610 MSG20 DB 
30 30 

06620 DB 

06630 ; 

06640 MSG21 DB 

06650 MSG21A DB 

06660 DB 

06670 ; 

06680 MSG22 DB 
06690 ; 



_ETX 

'RTS=' 

_ETX 

LF 
"'"Input control : ' 

_ETX 
'RI = ' 
_ETX 
'DSR=' 
_ETX 
'CD=' 
_ETX 
'CTS=' 
_ETX 
'ON' 
_ETX 
•OFF' 
_ETX 
'ODD' 
_ETX 
'EVEN' 
_ETX 
' IGNORE ' 
ETX 



_ETX 

'X',_APOS 
'00',_APOS 
_ETX 
CR 
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2804 2C 




06700 MSG23 


DB 


» 




20 












2806 03 




06710 
06720 ; 


DB 


_ETX 








06730 ; 


Pan 


ameter evaluation table 








06740 ; 








2807 80 




06750 PRMTBL$ 
06760 ; 


DB 


80H ;Extended 


param 


2808 C5 




06770 BRTYP 


DB 


5!FLAG!NUM 




2809 42 




06780 


DB 


'BREAK' 




52 45 


41 


4B 








28 0E 00 




06790 BRRESP 


DB 







280F 4A27 




06800 
06810 ; 


DW 


BREAKP 




2811 55 




06820 


DB 


5! ABB! FLAG 




2812 51 




06830 


DB 


'QUERY' 




55 45 


52 


59 








2817 00 




06840 QRESP 


DB 







2818 4C27 




06850 
06860 ; 


DW 


QPARM 




281A 94 




06870 BTYP 


DB 


4!ABB!NUM 




281B 42 




06880 


DB 


'BAUD' 




41 55 


44 










281F 00 




06890 BRESP 


DB 







2820 4E27 




06900 
06910 ; 


DW 


BAUDP 




2822 94 




06920 WTYP 


DB 


4!ABB!NUM 




2823 57 




06930 


DB 


'WORD' 




4F 52 


44 










2827 00 




06940 WRESP 


DB 







2828 5027 




06950 
06960 ; 


DW 


WORDP 




282A 94 




06970 STYP 


DB 


4!ABB!NUM 




282B 53 




06980 


DB 


'STOP' 




54 4F 


50 










282F 00 




06990 SRESP 


DB 







2830 5227 




07000 
07010 ; 


DW 


STOPP 




2832 76 




07020 PTYP 


DB 


6!ABB!FLAG!STR 




2833 50 




07030 


DB 


'PARITY' 




41 52 


49 


54 59 








2839 00 




07040 PRESP 


DB 







283A 5427 




07050 
07060 ; 


DW 


PARITYP 




283C 54 




07070 ETYP 


DB 


4!ABB!FLAG 




283D 45 




07080 


DB 


'EVEN' 




56 45 


4E 










2841 00 




07090 ERESP 


DB 







2842 5627 




07100 
07110 ; 


DW 


EVENP 




2844 53 




07120 OTYP 


DB 


3! ABB! FLAG 




2845 4F 




07130 


DB 


'ODD' 




44 44 












2848 00 




07140 ORESP 


DB 







2849 5827 




07150 
07160 ; 


DW 


ODDP 




284B 43 




07170 DTYP 


DB 


3! FLAG 




284C 44 




07180 


DB 


'DTR' 




54 52 












284F 00 




07190 DTRESP 


DB 







2850 5A27 




07200 


DW 


DTRP 
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07210 


3 








2852 43 


07220 


RTYP 


DB 


3! FLAG 




2853 52 


07230 




DB 


'RTS' 




54 53 












2856 00 


07240 RTRESP 


DB 







2857 5C27 


07250 
07260 


» 


DW 


RTSP 




2859 42 


07270 RITYP 


DB 


2! FLAG 




285A 52 


07280 




DB 


'RI' 




49 












285C 00 


07290 RIRESP 


DB 







285D 5E27 


07300 
07310 


j 


DW 


RIP 




285F 42 


07320 CDTYP 


DB 


2! FLAG 




2860 43 


07330 




DB 


'CD' 




44 












2862 00 


07340 CDRESP 


DB 







2863 6027 


07350 
07360 


» 


DW 


CDP 




2865 43 


07370 


DSTYP 


DB 


3! FLAG 




2866 44 


07380 




DB 


■DSR' 




53 52 












2869 00 


07390 


DSRESP 


DB 







286A 6227 


07400 
07410 


» 


DW 


DSRP 




286C 43 


07420 CTTYP 


DB 


3! FLAG 




286D 43 


07430 




DB 


'CTS' 




54 53 












2870 00 


07440 CTRESP 


DB 







2871 6427 


07450 
07460 


» 


DW 


CTSP 




2873 57 


07470 




DB 


7! ABB! FLAG 




2874 44 


07480 




DB 


'DEFAULT' 




45 46 41 


55 4C 


54 








287B 00 


07490 




DB 







287C 6627 


07500 
07510 


> 


DW 


DFPARM 






07520 




IF 


(9MOD2 






07530 




DB 


4!NUM 






07540 




DB 


'PORT' 






07550 


PORTP 


DB 









07560 




DW 


PORTD 






07570 




ENDIF 








07580 


» 








287E 00 


07590 
07600 


> 


DB 





; List terminator 




07610 


» 


Evalu 


ate and setup user 


parameters 




07620 


» 










07630 


SETPARAM 






287F 213524 


07640 




LD 


HL,PRMERR 


;Param error exit vec 


2882 E5 


07650 
07660 


» 


PUSH 


HL 


;Leave for quick exit 




07670 


» 


Evalu 


ate BAUD 






07680 


j 








2883 3A1F28 


07690 


SETBAUD 


LD 


A,(BRESP) 


;Get baud response 


2886 B7 


07700 




OR 


A 


; Anything? 


2887 2807 


07710 




JR 


Z,SETWORD 


;Nope, go 


2889 CDC229 


07720 




CALL 


CKBAUD 


;Get baud setting 


288C C0 


07730 




RET 


NZ 


;Go if error 


288D DD7706 


07740 
07750 


> 


LD 


(IX+BAUDRT) S A 


; else save new baud 



Page 377 



The Source 


LIBRARY Files 


SETCOM - LS-DOS 


6.2 Page 00015 




07760 ; 


Evalu 


ate WORD 






07770 ; 








2890 DD4E05 


07780 SETWORD LD 


CUX+UC IMAGE) 


;P/u current setings 


2893 3A2728 


07790 


LO 


A S (WRESP) 


;Get word response 


2896 B7 


07800 


OR 


A 


; Anything? 


2897 281C 


07810 


JR 


Z, SETSTOP 


;Nope, continue 


2899 ED585027 


07820 


LD 


DE.(WOROP) 


;Get parameter 


289 D 14 


07830 


INC 


D 


; Check wisb 


289E 15 


07840 


DEC 





;D<>0? 


289F C0 


07850 


RET 


NZ 


;>256? 


28A0 78 


07860 


LD 


AjL 


;Get lsb 


28A1 D605 


07870 


SUB 


5 


;Adjust relative 


28A3 D8 


07880 


RET 


C 


;Go if out of range 


28 A4 FE04 


07890 


CP 


4 


;5-8? 


28A6 D0 


07900 


RET 


NC 


;Out of range 


28A7 B7 


07910 


OR 


A 


;Clear carry, set PV 


28A8 EAAD28 


07920 


JP 


PE 9 $+5 


;Go if 5/8 


28AB EE03 


07930 


XOR 


3 


;Change 6=>7=>6 


28AD 0F 


07940 


RRCA 




;Align to bits 6/5 


28AE 0F 


07950 


RRCA 






28AF 0F 


07960 


RRCA 






28B0 0660 


07970 


LD 


B ,011000006 


;For bit setup 


28B2 CDAB29 


07980 
07990 , 


CALL 


SETBITS 


; Setup in C register 




08000 , 


Evalu 


ate STOP 






08010 , 








28B5 3A2F28 


08020 SETSTOP LD 


A,(SRESP) 


;Get response byte 


28B8 B7 


08030 


OR 


A 


; Anything? 


28B9 2817 


08040 


JR 


Z,SETPAR 


;Nope, continue 


28BB ED5B5227 


08050 


LD 


DE,(STOPP) 


;Get input 


28BF 14 


08060 


INC 


D 


;Check for out of range 


28C0 15 


08070 


DEC 


D 


;D<>0? 


28C1 C0 


08080 


RET 


NZ 


;>256 


28C2 7B 


08090 


LD 


A,E 


;Get lsb 


28C3 B7 


08100 


OR 


A 


;0? 


28C4 C8 


08110 


RET 


Z 


; Invalid if not 


28C5 FE03 


08120 


CP 


3 


;l/2? 


28C7 D0 


08130 


RET 


NC 


; Invalid 


28C8 3D 


08140 


DEC 


A 


;Change 1|2 to 0|1 


28C9 07 


08150 


RLCA 




;Align result 


28 CA 07 


08160 


RLCA 






28 CB 07 


08170 


RLCA 






28CC 07 


08180 


RLCA 






28CD 0610 


08190 


LD 


B, 0001 0000 B 


;Init mask 


28CF CDAB29 


08200 
08210 , 


CALL 


SETBITS 


;Setup in C register 




08220 , 


Evalu 


ate PARITY 






08230 , 








28 D2 3A3928 


08240 J 


>ETPAR LD 


A,(PRESP) 


;Get parity response 


28 D5 B7 


08250 


OR 


A 


;Any input? 


28 D6 2825 


08260 
08270 , 


JR 


Z,SETPEO 


;Nope, check EVEN | ODD 




08280 


Check 


if response was s 


tring or switch 




08290 








28D8 ED5B5427 


08300 


LD 


DE,(PARITYP) 


;Get user pointer 


28DC CB77 


08310 


BIT 


6, A 


; Switch? 


28 DE 2015 


08320 
08330 


JR 


NZ.SETPOF 


;Yes, set ON/OFF 




08340 


Response was string, check ' E * | ' ' 




08350 








28E0 1A 


08360 


LD 


A,(DE) 


;Get input 
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28E1 CDB929 


08370 




CALL 


UCASE 


;Make upper case 


28E4 FE4F 


08380 




CP 


'0' 


;Odd? 


28E6 2807 


08390 




JR 


Z, SETPO 


;Yes, go 


28E8 FE45 


08400 




CP 


, E , 


;Even? 


28EA C0 


08410 




RET 


NZ 


; Neither, invalid 


28EB CBF9 


08420 


SETPE 


SET 


7,C 


;Set EVEN parity 


28ED 1802 


08430 




JR 


SETPAEO 


;Continue 


28EF CBB9 


08440 


SETPO 


RES 


7,C 


;Set ODD parity 


28F1 CB99 


08450 


SETPAEO 


RES 


3,C 


;Set ON parity 


28F3 182C 


08460 
08470 




JR 


SETBRK 


;Continue 




08480 




Response was switch, 


check 0N| OFF 




08490 










28F5 7A 


08500 


SETPOF 


LD 


A,D 


;Check input 


28F6 B3 


08510 




OR 


E 


;=0000? 


28F7 CBD9 


08520 




SET 


3,C 


;Set OFF 


28F9 2826 


08530 




JR 


Z, SETBRK 


;Continue if yes 


28FB CB99 


08540 
08550 




RES 


3,C 


;Set ON 




08560 




Check 


for ODD | EVEN pa 


rams 




08570 










28FD 3A4828 


08580 


SETPEO 


LD 


A, (ORESP) 


;Get odd response 


2900 B7 


08590 




OR 


A 


;Anything? 


2901 280C 


08600 




JR 


Z, SETPAE 


;Nope, check EVEN 


2903 ED5B5827 


08610 




LD 


DE,(ODDP) 


;Get user input 


2907 7A 


08620 




LD 


A,D 


;Check for nil 


2908 B3 


08630 




OR 


E 


;DE=0000? 


2909 CBF9 


08640 




SET 


7,C 


;ODD=off? 


290 B 2802 


08650 




JR 


Z, SETPAE 


;Go if yes 


290D CBB9 


08660 
08670 


» 


RES 


7,C 


;ODD=on 


290F 3A4128 


08680 


SETPAE 


LD 


A,(ERESP) 


;Get even response 


2912 B7 


08690 




OR 


A 


;Anything? 


2913 280C 


08700 




JR 


Z, SETBRK 


;Nope, continue 


2915 ED5B5627 


08710 




LD 


DE S (EVENP) 


;Get param 


2919 7A 


08720 




LD 


A,D 


;Check for nil 


291A B3 


08730 




OR 


E 


;DE=0000? 


291B CBB9 


08740 




RES 


7,C 


;EVEN=off? 


291D 2802 


08750 




JR 


Z, SETBRK 


;Go if yes 


291F CBF9 


08760 
08770 


5 


SET 


7,C 


;EVEN=on 




08780 


» 


Evalu< 


ite BREAK 






08790 


S 








2921 3A0E28 


08800 


SETBRK 


LD 


A,(BRRESP) 


;Get user response 


2924 B7 


08810 




OR 


A 


;Anything? 


2925 2818 


08820 




JR 


Z,SETDTR 


;Nope, continue 


2927 ED5B4A27 


08830 




LD 


DE,(BREAKP) 


;Get user input 


292B CB77 


08840 




BIT 


6, A 


;Switch? 


292D 2005 


08850 
08860 




JR 


NZ, SETBOF 


;Yes, check ON | OFF 




08870 




Value 


entered, check 


if in range 




08880 










292F 14 


08890 




INC 


D 


; Check msb 


2930 15 


08900 




DEC 


D 


;D<>0? 


2931 C0 


08910 




RET 


NZ 


;>256? 


2932 1808 


08920 
08930 




JR 


UPDBRK 


;Continue 




08940 




Switch 


i entered, check 


if on/off 




08950 










2934 7A 


08960 


SETBOF 


LD 


A,D 


;Get input 


2935 B3 


08970 




OR 


E 


;DE=0000? 
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2936 1E80 


08980 




LD 


E,80H 


; Default 


2938 2802 


08990 




JR 


Z 5 UPDBRK 


;Go if off 


293A 1E03 


09000 




LD 


E 9 03H 


; Default 


293C DD7307 


09010 
09020 


UPDBRK 

9 


LD 


(IX+BRK),E 


;Update data 




09030 


» 


Evali 


late DTR 






09040 


9 








293F 3A4F28 


09050 


SETDTR 


LD 


A 9 (DTRESP) 


;Get user response byte 


2942 B7 


09060 




OR 


A 


;Anything? 


2943 280C 


09070 




JR 


Z 9 SETRTS 


;Continue if not 


2945 ED5B5A27 


09080 




LD 


DE S (DTRP) 


;Get user param 


2949 7A 


09090 




LD 


A,D 


;Check if anything 


294A B3 


09100 




OR 


E 


;DE=0000? 


294B CBC9 


09110 




SET 


1,C 


;Set OFF 


294D 2802 


09120 




JR 


Z s SETRTS 


;Go if yes 


294F CB89 


09130 
09140 


9 


RES 


1,C 


;Set ON 




09150 


9 


Eva! i 


jate RTS 






09160 


9 








2951 3A5628 


09170 


SETRTS 


LD 


A 9 (RTRESP) 


;6et user response byte 


2954 B7 


09180 




OR 


A 


;Anything? 


2955 280C 


09190 




JR 


Z 9 UPDCI 


;Continue if not 


2957 ED5B5C27 


09200 




LD 


DE S (RTSP) 


;Get user param 


295B 7A 


09210 




LD 


A S D 


;Check if 


295C B3 


09220 




OR 


E 


;DE=0000? 


295D CBC1 


09230 




SET 


9 C 


;Set OFF 


295F 2802 


09240 




JR 


Z 9 UPDCI 


;Go if yes 


2961 CB81 


09250 




RES 


S C 


;Set ON 


2963 CBD1 


09260 


UP DC I 


SET 


2 9 C 


;Enable transmit 


2965 DD7105 


09270 
09280 


5 


LD 


(IX+UC IMAGE ),C 


;Update new data 




09290 


9 


Evali 


jate RI 






09300 


9 








2968 215C28 


09310 


SETRI 


LD 


HL 9 RIRESP 


;Response byte 


296B 0E01 


09320 




LD 


C 9 00000001 B 


; Bit to set 


296D CD8A29 


09330 
09340 


s 


CALL 


SETIT 


;Setup data 




09350 


9 


Evali 


jate DSR 






09360 


9 








2970 216928 


09370 


SETDSR 


LD 


HL 9 DSRESP 


;Response byte 


2973 0E04 


09380 




LD 


C s 00000100 B 


; Bit mask 


2975 CD8A29 


09390 
09400 


9 


CALL 


SETIT 


;Setup data 




09410 


9 


Evalt 


jate CD 






09420 


9 








2978 216228 


09430 SETCD 


LD 


HL.CDRESP 


;Response byte 


297B 0E02 


09440 




LD 


C 9 00000010B 


; Bit mask 


297D CD8A29 


09450 
09460 


9 


CALL 


SETIT 


;Setup data 




09470 


9 


Evali 


jate CTS 






09480 


9 








2980 217028 


09490 


SETCTS 


LD 


HL 9 CTRESP 


;Response byte 


2983 0E08 


09500 




LD 


C 9 00001000 B 


;Bit mask 


2985 CD8A29 


09510 
09520 


9 


CALL 


SETIT 


;Setup data 




09530 


9 


Evali 


jation complete 






09540 


9 








2988 Fl 


09550 




POP 


AF 


;Remove param error vec 


2989 C9 


09560 
09570 


9 


RET 




;Return from evaluate 


298A 34 


09580 


SETIT 


INC 


(HL) 


;Any response? 
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298B 35 


09590 




DEC 


(HL) 


;(HL) = 00? 


298C C8 


09600 




RET 


Z 


;Back if no change 


298D 23 


09610 




INC 


HL 


; Point to response data 


298E CDB429 


09620 




CALL 


GETHL 


;Load HL with (HL) 


2991 CDB429 


09630 




CALL 


GETHL 


;Get user response 


2994 79 


09640 




LD 


A,C 


;Get response data ON 


2995 07 


09650 




RLCA 




;Align to upper 4 bits 


2996 07 


09660 




RLCA 






2997 07 


09670 




RLCA 






2998 07 


09680 




RLCA 






2999 Bl 


09690 




OR 


C 


;Combine 


299A 47 


09700 




LD 


B,A 


;Set response data OFF 


299B 2F 


09710 




CPL 




;Reverse bits 


299C DDA604 


09720 




AND 


(IX+MSMASK) 


;Drop desired bits 


299F 5F 


09730 




LD 


E 9 A 


;Save new mask 


29A0 7C 


09740 




LD 


A,H 


; Check if OFF 


29A1 B5 


09750 




OR 


L 


;HL = 0000? 


29A2 78 


09760 




LD 


A 9 B 


;Get OFF bits 


29A3 2801 


09770 




JR 


Z,$+3 


;Go if off 


29A5 79 


09780 




LD 


A,C 


;Get ON bits 


29A6 B3 


09790 




OR 


E 


; Combine with remainder 


29A7 DD7704 


09800 




LD 


( IX+MSMASK ),/> 


i ; Update mask 


29 AA C9 


09810 
09820 


j 


RET 




;Done 




09830 


9 


Set bi 


ts in C from A 


using B as mask 




09840 


9 








29AB A0 


09850 


SETBITS 


AND 


B 


;Mask others 


29 AC F5 


09860 




PUSH 


AF 


;Save data 


29AD 78 


09870 




LD 


A,B 


;Get mask 


29AE 2F 


09880 




CPL 




; Reverse for mask off 


29AF Al 


09890 




AND 


C 


;Remove undesired bits 


29B0 CI 


09900 




POP 


BC 


;B = new bits 


29B1 B0 


09910 




OR 


B 


; Combine 


29B2 4F 


09920 




LD 


C,A 


;Update 


29B3 C9 


09930 
09940 


9 


RET 




;New bits set 




09950 


9 


Fetch 


HL from (HL) 






09960 


9 








29B4 7E 


09970 GETHL 


LD 


A S (HL) 


;Get Isb 


29B5 23 


09980 




INC 


HL 


;Bump pointer 


29 B6 66 


09990 




LD 


H,(HL) 


;Get msb 


29B7 6F 


10000 




LD 


L S A 


;HL = (HL) 


29 B8 C9 


10010 
10020 


9 


RET 




;Done 




10030 


9 


Convert char in A to 


upper case 




10040 


9 








29B9 FE61 


10050 


UCASE 


CP 


'a' 


.;In range? 


29 BB D8 


10060 




RET 


C 


;Nope, go 


29 BC FE7B 


10070 




CP 


'z'+l 


;In range? 


29 BE D0 


10080 




RET 


NC 


;Nope 9 go 


29BF E65F 


10090 




AND 


5FH 


; else make upper case 


29C1 C9 


10100 
10110 


9 


RET 




;Done 




10120 


9 


Check 


for valid baud 


rate entered 




10130 


9 








29C2 ED5B4E27 


' 10140 CKBAUD 


LD 


DE,(BAUDP) 


;Baud parm (default 300 


29C6 21FA26 


10150 




LD 


HL,BAUDTBL 


; Point to baud table 


29C9 010010 


10160 
10170 


9 


LD 


BC,16<8+0 


;B=count, C=position 


29CC 7E 


10180 


BLOOP 


LD 


A,(HL) 


;Fetch LSB baud 


29CD 23 


10190 




INC 


HL 


;Bump table 
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29CE BB 


10200 




CP 


E 


;Lsb match? 


29CF 2004 


10210 




JR 


NZ, NOMATB 


;Nope, go next entry 


29D1 7E 


10220 




LD 


A,(HL) 


;Get MSB baud 


29 D2 BA 


10230 




CP 


D 


;Msb match? 


29D3 2805 


10240 
10250 


» 


JR 


Z, MATCHB 


;Yes, baud found 


29 D5 23 


10260 


NOMATB 


INC 


HL 


;Bump to next entry 


29 D6 0C 


10270 




INC 


C 


;Bump position count 


29D7 10F3 


10280 




DJNZ 


BLOOP 


;Go for table length 


29D9 C9 


10290 
10300 


» 


RET 




; Param error 


29 DA 79 


10310 


MATCHB 


LD 


A,C 


;Pick up baud rate code 


29 DB 07 


10320 




RLCA 




;Align to high bits 


29 DC 07 


10330 




RLCA 






29 DD 07 


10340 




RLCA 






29 DE 07 


10350 




RLCA 






29DF Bl 


10360 




OR 


C 


;Use for xmit and rev 


29E0 BF 


10370 




CP 


A 


;Z=good value 


29E1 C9 


10380 
10390 




RET 




;Return with BAUD setti 




10400 




Nil par 


ams entered, 


display current settings 




10410 










29E2 


10420 


SHOW 


EQU 


$ 






10430 




IF 


@M0D2 






10440 




LD 


A.-l 


;Set NO flag 




10450 




LD 


(SHOWF), A 


;Save flag 




10460 




LD 


DE,MDNAME1 


;CL1 




10470 




LD 


A,'A' 


;Comm A 




10480 




LD 


(MSG1A) S A 


;To text 




10490 




CALL 


SHOW1 


;Display 




10500 




LD 


DE,MDNAME2 


;CL2 




10510 




LD 


A,'B' 


;Comm B 




10520 




LD 


(MSG1A),A 


;To text 




10530 




CALL 


SHOW1 


;Display 




10540 




LD 


A,-l 


;Get flag 




10550 


SHOWF 


EQU 


$-1 






10560 




OR 


A 


;Any found? 




10570 




JP 


NZ,BADMOD 


;Not installed 




10580 




RET 




; else OK 




10590 


» 








29E2 


10600 


SHOW1 


<a@GTMOD 




; Locate module 




00037 




LD 


A, 83 






00038 




RST 


40 






10610 




RET 


NZ 


;Module not found 




10620 




XOR 


A 


;Set module found 




10630 




LD 


(SHOWF ),A 


;Init flag 




10640 




PUSH 


DE' 


;Pass to IX 




10650 




POP 


IX 


;IX => module 




10660 




ENDIF 








10670 


s 








29E2 C33126 


10680 
10690 


» 


JP 


DSPALL 


; Display all settings 




10700 


» 


Mini param block for 'query' evaluation 




10710 


» 








29E5 80 


10720 
10730 


PTBL2 

s 


DB 


80 H 


;Extended param 


29E6 CI 


10740 FTYP 


DB 


FLAGiNUMil 




29E7 46 


10750 




DB 


'F» 




29E8 00 


10760 FRESP 


DB 







29E9 6A27 


10770 
10780 


» 


DW 


FPARM 
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46 3D 
29 EF 
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DB 

Text string passed to @PARAM for query eval 



10790 
10800 
10810 
10820 
10830 FSTR DB '(F=' 



2400 



10840 INBUF EQU $ 

10850 ; 

10860 END BEGIN 



;Keyboard input buffer 
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$AB0RT 


2411 $DSP 


2416 


SDSPLY 


241C 


$EXIT 


2407 (3(31 


0000 (3(32 


0000 


(3(33 


0000 (3(34 


0000 @M0D2 


0000 


(3M0D4 


FFFF ABB 


0010 ASKBAUD 


246E 


ASKBRK 


24E1 ASKCD 


250E ASKCTS 


2517 


ASKDSR 


2505 ASKDTR 


24 EA 


ASKPAR 


24BF 


ASKRI 


24FC ASKRTS 


24F3 


ASKSTOP 


24A0 


ASK WORD 


2484 BADBAUD 


247 E 


BADDCB 


26E1 


BADMOD 


242B BADPAR 


24BB 


BADSTOP 


24B5 


BADWORD 


249A BAUDP 


274E 


BAUDRT 


0006 


BAUDTBL 


26FA BEGIN 


2400 


BLOOP 


29CC 


BREAKP 


274A BRESP 


281F 


BRK 


0007 


BRRESP 


280E BRTYP 


2808 


BTYP 


281A 


CDP 


2760 CDRESP 


2862 


CDTYP 


285F 


CKBAUD 


29C2 CKPARM 


2520 


CKRSP 


2bbd 


UKtSP 


^8/0 LISP 


2/b4 


CTTYP 


286C 


DEh ALT 


26CC DEFBA 


0055 


DEFBR 


0003 


UtFMS 


0000 ULFUC 


00Ab 


DFPARM 


2766 


DMSG0 


260C DMSG0X 


2622 


DMSG1 


252F 


DMSG10 


25 EC DMSG11 


25F2 


DMSG12 


25F9 


DMSG13 


2600 DMSG14 


2607 


DMSG2 


2538 


DMSG22 


2625 DMSG23 


262B 


DMSG3 


2566 


DMSG4 


25 7 F DMSG5 


2591 


DMSG6 


25B0 


DMSG7 


25C5 DMSG8 


25CB 


DMSG89 


25E1 


DMSG9 


25D7 DSPALL 


2631 


DSPDONE 


264D 


DSPRET 


2647 DSPSET 


2637 


DSPTBL 


271A 


DSRESP 


2869 DSRP 


2762 


DSTYP 


2865 


DTRESP 


284F DTRP 


275A 


DTYP 


284B 


ERESP 


2841 ERRORS 


2427 


ETYP 


283C 


EVENP 


2756 FLAG 


0040 FPARM 


276A 


FRESP 


29E8 FSTR 


29EC 


FTYP 


29E6 


GETHL 


29B4 GETIT 


2650 GETRSP 


2674 


GETRSPR 


267A INBUF 


29EF 


IOERR 


2420 


MATCH B 


29 DA MDNAME 


26 DD 


MSG1 


276C 


MSG10 


27BD MSG11 


27CE 


MSG12 


27D2 


MSG13 


27 D7 MSG14 


27DB 


MSG15 


27E0 


MSG16 


27E3 MSG17 


27E7 


MSG18 


27EB 


MSG19 


27F0 MSG2 


2780 MSG20 


27F7 


MSG21 


27FD MSG21A 


27FF 


MSG22 


2803 


MSG23 


2804 MSG3 


2786 


MSG4 


278C 


MSG5 


2792 MSG6 


279A 


MSG7 


27A1 


MSG8 


27B3 MSG9 


27B8 


MSMASK 


0004 


MVUP 


2666 NOMATB 


29 D5 


NUM 


0080 


ODDP 


2758 OFFSET 


0004 


ORESP 


2848 


OTYP 


2844 PARITYP 


2754 


PAR ERR 


002 C 


PGRM 


243A PORTD 


2768 


PORTF 


245C 


PRESP 


2839 PRMERR 


2435 


PRMTBL$ 


2807 


PROMPT 


26F7 PTBL2 


29E5 


PTYP 


2832 


QPARM 


274C QRESP 


2817 


RIP 


275E 


RIRESP 


285C RITYP 


2859 


RTRESP 


2856 


RTSP 


275C RTYP 


2852 


SAVESP 


240A 


SETBAUD 


2883 SETBITS 


29AB 


SETBOF 


2934 


SETBRK 


2921 SETCD 


2978 


SETCTS 


2980 


SETDSR 


2970 SETDTR 


293F 


SETIT 


298A 


SETPAE 


290F SETPAEO 


28F1 


SETPAR 


28D2 


SETPARAM 


287F SETPE 


28EB 


SETPEO 


28FD 


SETPO 


28EF SETPOF 


28F5 


SETRI 


2968 


SETRTS 


2951 SETSTOP 


28B5 


SETWORD 


2890 


SHOW 


29E2 SHOW1 


29E2 


SPLP 


2448 


SRESP 


282F STOPP 


2752 


STR 


0020 
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255E 


STYP 


UCASE 


29 B9 


UCIMAGE 


UPDBRK 


293C 


UPDCI 


WRESP 


2827 


WTYP 


CR 


000 D 


ETX 


LF 


000A F(?ABORT 


(?(?BANK 


C896 


(?(?BKSP 


@@CHNIO 


C2D6 


@(?CKBRKC 


@(?CKEOF 


C58B 


(?(?CKTSK 


(9@CLS 


C8E4 


@(<>CMNDI 


(9(?CTL 


C13A 


@(a DATE 


(9(9DEBUG 


C354 


(?(?DECHEX 


(?(9DIRWR 


C798 


@@DIV16 


(?(?DODIR 


C3E7 


(?(?DSP 


TERROR 


C33F 


@@EXIT 


(?(?FLAGS 


C880 (?(9FNAME 


@(?GATRD 


C76E 


(?(?GATWR 


<9(?GTDCB 


C72F 


@(?GTDCT 


(90HDFMT 


C4B9 


@@ HEX 16 


(?(?HEXDEC 


C82B (?(?HIGH$ 


(9(?KBD 


C176 


(?(?KEY 


(?(?KLTSK 


C3BD 


(?(?LOAD 


(?(?LOF 


C5B5 


(?@LOGER 


(?(?MSG 


C221 


(?(9MUI_16 


(?(<>OPEN 


C54C 


(?(?PARAM 


(9(?PE0F 


C5CA 


(?(?POSN 


(?(?PRT 


C14E 


(9(9 PUT 


(?(9RDSEC 


C48F 


(9(9RDSSC 


(?(?REMOV 


C522 


(?(?RENAM 


(?(?RMTSK 


C393 


(9(?RPTSK 


(?(?RSLCT 


C47A 


(?(?RST0R 


<9(?RWRIT 


C633 


(9<?SEEK 


m SKIP 


C65D 


(?(9SLCT 


(?(?TIME 


W Cm \if X 


<?(?VDCTL 


(?(?VRSEC 


C4A4 


(?(?WE0F 


(?(? WRITE 


C69C 


(9(9WRSEC 


(?(9WRTRK 


C4F8 




2400 is the 


transfer 


address 


00000 Total 


errors 
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282A 


TTYP 


0005 


UP 


2963 


WORDP 


2822 


APOS 


0003 


INIT 


C2EB F(?ADTSK 


C576 


(90BREAK 


C8FA 


(90CKDRV 


C369 


@(?CL0SE 


C315 


(?(?CMNDR 


C2AC 


(90DCSTAT 


C816 


@(?DIRRD 


C801 


(?@DIV8 


C0FE 


(90DSPLY 


C300 (9(?FEXT 


C705 


(9@FSPEC 


C7AD 


(9(?GET 


C71A 


(?(?GTMOD 


C855 


(9@HEX8 


C86A 


(9(?INIT 


C0EA 


(90KEYIN 


C6B1 


(9(?L0C 


C1D5 


(?(?LOGOT 


C7D7 


(?(?MUL8 


C297 


(?(?PAUSE 


C5DF 


SPRINT 


C126 


(?(?RAMDIR 


C759 


(?(9READ 


C50D (90REW 


C3A8 


(9(?RREAD 


C43B 


(?@RUN 


C465 


(?(?SEEKSC 


C426 


(?(9 STEP I 


C26D 


(9(?VER 


C687 


(?(?WHERE 


C4CE 


(?@WRSSC 



26 A0 
266A 
2750 
0027 
0002 
C37E 
C8AC 
C3D2 
C561 
C32A 
C411 
C783 
C7EC 
C19E 
C6F0 
C6DB 
C112 
C744 
C840 
C537 
C18A 
C5A0 
C1EA 
C7C2 
C282 
C236 
C3FC 
C5F4 
C609 
C61E 
C6C6 
C648 
C450 
C672 
C162 
C4E3 
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Command: 


SETKI 


Library: 


SYS8/SYS 


ISAM # : 


B3H 
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0000 

0004 
0006 
0007 
000A 
0001 
0016 
0002 
0003 
000 D 



00100 
00110 
00120 
00130 
00140 
00150 
00160 



;LBSETKI/ASM • 
TITLE 



Set Keyboard Parameters 
<SETKI - LS-DOS 6.2> 



002 C 



0010 
0080 

0000 



2400 

2400 

2400 ED730B24 

2404 CD2E24 



2407 210000 
240A 310000 
240D 

240D 3E6A 
240F EF 

2410 C9 

2411 21FFFF 
2414 18F4 

2416 
2416 3E02 

2418 EF 

2419 C8 
241A 1807 
241C 



241C 3E0A 
241E EF 
241F C8 

2420 21 

2421 3E2C 



2423 2600 

2425 6F 

2426 F6C0 



OFFSET EQU 

DELAY EQU 

RPEAT EQU 

DMIN EQU 

00170 RMIN EQU 

00180 DDFALT EQU 

00190 RDFALT EQU 

00200 ETX EQU 

00210 CR EQU 

00220 LF EQU 

00230 PAR ERR EQU 
00240 ; - 

00250 FLAG EQU 

00260 ABB EQU 

00270 NUM EQU 
00280 ; 

*GET 



OFFSET+2 

OFFSET+3 

10 

1 

22 

2 

03 H 

0DH 

0AH 

44 

01000000 B 
0001 0000 B 
10000000 B 



00290 
00010 
00020 
03900 



SVCMAC:3 
;SVCMAC/ASM - LS-DOS Version VI 
*LIST OFF 
*LIST ON 



00310 
00320 ; 
00330 BEGIN 
00340 
00350 
00360 ; 
00370 ; 
00380 ; 
00390 $EXIT 
SAVESP 



00410 

00001 

00002 

00420 

00430 $ABORT 

00440 

00450 ; 

00460 $DSP 

00003 



00470 

00480 

00490 $DSPLY 

00005 



00007 

00008 

00009 

00500 

00510 

00520 PRMERR 

00530 ; 

00540 ; 

00550 ; 

00560 IOERR 

00570 

00580 



ORG 

EQU 

LD 

CALL 



2400H 



(SAVESP+1) S SP 
PGRM 



Set exit conditions 

LD HL 9 

LD SP 9 $-$ 

@(3CKBRKC 

LD A, 106 

RST 40 

RET 

LD HL,-1 

JR SAVESP 

(3(9DSP 

LD A s 2 

RST 40 

RET Z 

JR IOERR 

(a@DSPLY 

IFEQ 001-1,1 



LD 

ENDIF 

LD 

RST 

RET 

DB 

LD 



HL, 

A, 10 

40 

Z 

21H 

A S PAR ERR 



I/O Error Processing 



LD 
LD 
OR 



H,0 
L S A 
0C0H 



;Length: end of name to data area 



; Parameter Error 



;SVC Macro equivalents 



;Exit via RET 



Init to no error 
P/u original SP 
Clear any <BREAK> 



;Set abort code 

; Display a character 

;Back if good 
;Display a line 



;Back if good 
;Skip LD A s ## 
; Parameter Error 



;Save error # 
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2428 4F 


00590 




LD 


C,A 




2429 


00600 




(TERROR 




;Display message 


2429 3E1A 


00010 




LD 


A, 26 




242B EF 


00011 




RST 


40 




242C 18DC 


00610 
00620 


s 


JR 


SAVESP 


;Exit 




00630 


3 


PGRM - 


Set Keyboard Par 


ameters 




00640 


9 








242E E5 


00650 


PGRM 


PUSH 


HL 


;Save cmdline ptr 


242F 113925 


00660 




LD 


DE,MDNAME 


;Name of keyboard driver 


2432 


00670 




(a@GTMOD 




;Find module header 


2432 3E53 


00012 




LD 


A, 83 




2434 EF 


00013 




RST 


40 




2435 3E08 


00680 




LD 


A 5 8 


;Device not available 


2437 C22324 


00690 




JP 


NZ,IOERR 


;Exit if not found 


243A D5 


00700 




PUSH 


DE 


; Point to next byte 


243B DDE1 


00710 
00720 


3 


POP 


IX 


; after module name 


243D El 


00730 




POP 


HL 


;=>cmd line 


243E CD1725 


00740 




CALL 


SKSP 


;Move to non-space 


2441 7E 


00750 




LD 


A,(HL) 


;Char fm cmd line 


2442 FE28 


00760 




CP 


'(' 


;Any params? 


2444 CA6224 


00770 
00780 


3 


JP 


Z,GETNEW 


;Get/set new values 




00790 


3 


Display 


old values 






00800 


3 








2447 CD5024 


00810 




CALL 


SETMSG 


;Move old values for dsply 


244A 211E25 


00820 




LD 


HL,DMSG 


;Pt to dsply string 


244D C31C24 


00830 
00840 


3 


JP 


$DSPLY 


;Dsply and exit 




00850 


3 


Set up 


values in string 






00860 


3 








2450 DD7E06 


00870 


SETMSG 


LD 


A,(IX+DELAY) 


;P/u old Wait value 


2453 112725 


00880 




LD 


DE 9 DDELAY 


;=>buffer to receive 


2456 CD6625 


00890 




CALL 


HEXDEC 


;Convert to ASCII decimal 


2459 DD7E07 


00900 




LD 


A S (IX+RPEAT) 


;P/u old Rate value 


245C 113525 


00910 




LD 


DE,DRPEAT 


;Pt to dsply area 


245F C36625 


00920 
00930 


3 


JP 


HEXDEC 


;Convert to decimal ASCII 


2462 114025 


00940 GETNEW 


LD 


DE,PRMTBL$ 


; Check user parameters 


2465 


00950 




@(s>PARAM 






2465 3E11 


00014 




LD 


A, 17 




2467 EF 


00015 




RST 


40 




2468 C22124 


00960 




JP 


NZ S PRMERR 


;Go on "Parm error 


246B 110000 


00970 




LD 


DE,$-$ 


;P/u D parm 


246C 


00980 


DFPARM 


EQU 


$-2 




246E 7A 


00990 




LD 


A,D 


;Default setting wanted? 


246F B3 


01000 




OR 


E 




2470 2808 


01010 




JR 


Z, SETSTR 


;Keep existing if not 


2472 DD360616 


01020 




LD 


(IX+DELAY),DDFALT ;Stuff defaults 


2476 DD360702 


01030 




LD 


(IX+RPEAT),RDFALT 


247A CD5024 


01040 


SETSTR 


CALL 


SETMSG 


;Put numbers in string 


247D 110000 


01050 QCHK 


LD 


DE 9 $-$ 




247E 


01060 


QPARM 


EQU 


$-2 


;Query parm used? 


2480 7A 


01070 




LD 


A,D 




2481 B3 


01080 




OR 


E 




2482 2834 


01090 
01100 


» 


JR 


Z.CKPARM 


;Go if not 


2484 3A5925 


01110 




LD 


A 9 (WRESP) 


;P/u Wait response byte 


2487 E680 


01120 




AND 


NUM 


;If a "W" number given, 


2489 2013 


01130 




JR 


NZ,CKR 


; then ask for R only 
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248B 211E25 


01140 GETD 


LD 


HL,DMSG 


;Pt to Wait prompt msg 


248E CDDE24 


01150 


CALL 


SHOW 


;Ask for W time 


2491 CDAA25 


01160 


CALL 


GETIT 


;Get it (in DE) 


2494 2808 


01170 


JR 


Z,CKR 


; Don't change if CR only 


2496 CDA125 


01180 


CALL 


DCHECK 


;Check if good value 


2499 20F0 


01190 


JR 


NZ,GETD 


; Don't change if not 


249B DD7706 


01200 
01210 ; 


LD 


(IX+DELAY),A 


; Store new Wait 


249E 3A5125 


01220 CKR 


LD 


A,(RRESP) 


;P/u Rate resopnse byte 


24A1 E680 


01230 


AND 


NUM 


; and go if Rate 


24A3 2013 


01240 


JR 


NZ, CKPARM 


; entered on cmdline 


24A5 212C25 


01250 


LD 


HL 9 RMSG 


;Pt to Rate prompt msg 


24A8 CDDE24 


01260 


CALL 


SHOW 




24AB CDAA25 


01270 


CALL 


GETIT 


;Get new Rate 


24AE 2808 


01280 


JR 


Z, CKPARM 


; Don't change if CR only 


24B0 CD9D25 


01290 


CALL 


RCHECK 


;Check range & don't 


24B3 20E9 


01300 


JR 


NZ,CKR 


; change if out of range 


24B5 DD7707 


01310 
01320 ; 


LD 


(IX+RPEAT),A 


; Store new Rate 




01330 ; 


Check 


entries given on 


cmd line 




01340 ; 








24B8 3A5925 


01350 CKPARM 


LD 


A,(WRESP) 




24BB E680 


01360 


AND 


NUM 


;W parm response 


24BD 280C 


01370 


JR 


Z,CKRP 


;Go if not entered 


24BF 110000 


01380 


LD 


DE,$-$ 


;P/u Wait value 


24C0 


01390 WPARM 


EQU 


$-2 




24C2 CDA125 


01400 


CALL 


DCHECK 


;Check value 


24C5 C22124 


01410 


JP 


NZ.PRMERR 


;Go if bad 


24C8 DD7706 


01420 
01430 ; 


LD 


(IX+DELAY) 9 A 


; else store it 


24CB 3A5125 


01440 CKRP 


LD 


A,(RRESP) 


;Rate response 


24CE E680 


01450 


AND 


NUM 




24 D0 C8 


01460 


RET 


Z 


;Done if none 


24D1 110000 


01470 


LD 


DE s $-$ 


;P/u Rate value 


24 D2 


01480 RPARM 


EQU 


$-2 




24 D4 CD9D25 


01490 


CALL 


RCHECK 


;Check value 


24D7 C22124 


01500 


JP 


NZ,PRMERR 


; and go if bad 


24 DA DD7707 


01510 


LD 


(IX+RPEAT) S A 


; else store it 


24DD C9 


01520 
01530 ; 


RET 




;Done 


24 DE 060C 


01540 SHOW 


LD 


B,12 


;Col posn 


24E0 4E 


01550 SH2 


LD 


C,(HL) 


;Get char in C 


24E1 CD1624 


01560 


CALL 


$DSP 


; Print byte fm string 


24 E4 05 


01570 


DEC 


B 


;Dec chars to print 


24E5 23 


01580 


INC 


HL 


;Bump string ptr 


24E6 3E3D 


01590 


LD 


A 9 ' = ' 




24E8 B9 


01600 


CP 


C 




24E9 20F5 


01610 


JR 


NZ,SH2 


;Display up to = 


24EB 0E20 


01620 


LD 


(V ' 


;Then space 


24ED C01624 


01630 


CALL 


$DSP 




24F0 CD1725 


01640 


CALL 


SKSP 


;Move to number 


24F3 0E7B 


01650 


LD 


C S 'C 




24F5 CD1624 


01660 


CALL 


$DSP 


;Dsply opening brace 


24F8 4E 


01670 SH3 


LD 


C,(HL) 


;P/u character 


24F9 3E2F 


01680 


LD 


A s '0'-1 


;Check C for numeric value 


24FB B9 


01690 


CP 


C 




24 FC 3007 


01700 


JR 


NC 5 SH4 


;Go if not 


24FE CD1624 


01710 


CALL 


$DSP 


; else dsply, 


2501 05 


01720 


DEC 


B 


; dec chars remaining, 


2502 23 


01730 


INC 


HL 


; pt to next char in string 


2503 18F3 


01740 


JR 


SH3 


; and loop 
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LIBRARY Fi 


les 


SETKI - LS-DOS 6.2 Page 00004 


2505 0E7D 




01750 


SH4 


LD 


C,'} 1 ;Display closing brace 


2507 CD1624 


I 


01760 




CALL 


$DSP 


250A 0E20 




01770 




LD 


C,' ' 


250C CD1624 


\ 


01780 


SH5 


CALL 


$DSP ;Tab remaining distance 


250F 10FB 




01790 




DJNZ 


SH5 


2511 213D2E 




01800 




LD 


HL S ENDSTR ;Print "?" 


2514 C31C24 




01810 
01820 


9 


JP 


SDSPLY 


2517 3E20 




01830 


SKSP 


LD 


A, ' ' ;Bypass all leading spa 


2519 BE 




01840 


SKP2 


CP 


(HL) 


251A C0 




01850 




RET 


NZ 


251B 23 




01860 




INC 


HL 


251C 18FB 




01870 
01880 
01890 
01900 


> 

9 
9 


JR 


SKP2 


251E 57 




01910 


DMSG 


DB 


'Wait = ' 


61 69 


74 


20 20 


20 3D 20 




2527 20 




01920 


DDELAY 


DB 


i i 

s 


20 20 


2C 


20 








252C 52 




01930 RMSG 


DB 


'Rate = ' 


61 74 


65 


20 20 


20 3D 20 




2535 20 




01940 


DRPEAT 


DB 


' S CR 


20 20 0D 










2539 24 




01950 MDNAME 


DB 


'$KI' S ETX 


4B 49 


03 










253D 3F 




01960 


ENDSTR 


DB 


'? ' S ETX 


20 03 




01970 


9 






2540 80 




01980 
01990 


PRMTBL$ 

9 


DB 


80 H 


2541 57 




02000 




DB 


FLAG! ABB! 7 


2542 44 




02010 




DB 


'DEFAULT' 


45 46 


41 


55 4C 


54 






2549 00 




02020 




DB 





254A 6C24 




02030 
02040 


9 


DW 


DFPARM 


254C 94 




02050 




DB 


ABB!NUM!4 


254D 52 




02060 




DB 


'RATE' ;Repeat key rate 


41 54 


45 










2551 00 




02070 RRESP 


DB 





2552 D224 




02080 
02090 


9 


DW 


RPARM 


2554 94 




02100 




DB 


ABB!NUM!4 


2555 57 




02110 




DB 


'WAIT' ; Del ay before repeat 


41 49 


54 










2559 00 




02120 WRESP 


DB 





255A C024 




02130 
02140 


9 


DW 


WPARM 


255C 55 




02150 




DB 


ABB!FLAG!5 


255D 51 




02160 




DB 


'QUERY' 


55 45 


52 


59 








2562 00 




02170 




DB 





2563 7E24 




02180 
02190 


9 


DW 


QPARM 


2565 00 




02200 
02210 
02220 




NOP 


;Note end of parm table 






02230 




HEXDEC 


- Convert Hex Number to Decimal ASCII 






02240 




A => 8 


-bit Hex Number to Convert 






02250 


9 


DE => 


Destination of ASCII characters 
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LIBRARY Fi 

02260 ; 
02270 ; 


les 


SETKI - LS-DC 


)S 6.2 Page 00005 


2566 C5 


02280 HEXDEC 


PUSH 


BC 


;Save regs 


2567 E5 


02290 


PUSH 


HL 




2568 F5 


02300 
02310 ; 


PUSH 


AF 






02320 ; 


Xfer 


number to HL 






02330 ; 








2569 2600 


02340 


LD 


H,0 


;Set HL = # 


256B 6F 


02350 
02360 ; 


LD 


L,A 




256C 3E20 


02370 


LD 


A,' ' 


;Character if leading 


256E 016400 


02380 


LD 


BC,100 


;Set 10' s power 


2571 CD8225 


02390 


CALL 


CVD1 


;Convert to ASCII 


2574 010A00 


02400 


LD 


BC 9 10 




2577 CD8225 


02410 


CALL 


CVD1 




257A 7D 


02420 


LD 


A,L 


;Get remainder 


257B C630 


02430 


ADD 


A,'0' 


;Make ASCII and 


257D 12 


02440 
02450 ; 


LD 


(DE) S A 


; stuff in buffer 


257E Fl 


02460 


POP 


AF 


;Recover # 


257F El 


02470 


POP 


HL 


;And other regs 


2580 CI 


02480 


POP 


BC 




2581 C9 


02490 
02500 ; 


RET 






2582 D5 


02510 CVD1 


PUSH 


DE 


;Save user buffer 


2583 5F 


02520 


LD 


E S A 


;Save pad character 


2584 16FF 


02530 


LD 


DJFFH 


; Ini t digit count to -1 


2586 AF 


02540 


XOR 


A 




2587 14 


02550 CVD2 


INC 


D 


;Inc digit count and 


2588 ED42 


02560 


SBC 


HL,BC 


; sub 10' power untill 


258A 30FB 


02570 


JR 


NC 9 CVD2 


; underflow 


258C 09 


02580 


ADD 


HL 5 BC 


;Add back last sub 


258D 7B 


02590 


LD 


A,E 


;Recover pad char 


258E 42 


02600 


LD 


B,D 


;Count to B 


258F Dl 


02610 


POP 


DE 


;Recover buffer ptr 


2590 12 


02620 


LD 


(DE) S A 


;Tempy store pad char 


2591 04 


02630 


INC 


B 


;See if char a 


2592 05 


02640 


DEC 


B 




2593 2806 


02650 


JR 


Z.CVD3 


;Go if so 


2595 78 


02660 


LD 


A S B 


; else make digit ASCII 


2596 C630 


02670 


ADD 


A s '0' 




2598 12 


02680 


LD 


(DE),A 


; and put in buffer 


2599 3E30 


02690 


LD 


A,'0' 


;Change the pad char 


259B 13 


02700 CVD3 


INC 


DE 


;Bump buffer 


259C C9 


02710 
02720 ; 


RET 






259D 1601 


02730 RCHECK 


LD 


D,RMIN 


;Rate minimum val ue 


259F 1802 


02740 


JR 


CHECK 




25A1 160A 


02750 DCHECK 


LD 


D,DMIN 


;Wait minimum value 


25A3 7B 


02760 CHECK 


LD 


A,E 


;Get number 


25A4 E67F 


02770 


AND 


7FH 


;Keep positive 


25A6 BA 


02780 


CP 


D 


; Lowest allowed 


25A7 D8 


02790 


RET 


C 


;Too low 


25A8 BF 


02800 


CP 


A 


;Set Z if good value 


25A9 C9 


02810 
02820 ; 


RET 






25AA 21D725 


02830 GETIT 


LD 


HL 5 INBUF 


;Key buffer 


25AD 010003 


02840 


LD 


BC 5 3<8 


;3 chars max 


25B0 


02850 


@@KEYIN 




25B0 3E09 


00016 


LD 


A, 9 
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LIBRARY Fi 


les 


SETKI - LS-DOS 


6.2 Page 00 


25B2 EF 


00017 




RST 


40 




25B3 DA1124 


02860 
02870 




JP 


C,$ABORT 


;Quit if Break 




02880 . 




DECHEX 


- Decimal ASCII 


to Hex 




02890 




DE <= 


returns the Hex 


num 




02900 




HL => 


points to the st 


art of Dec asc string 




02910 




A <= # 


of characters converted 




02920 












02930 










25B6 0600 


02940 [ 


)ECHEX 


LD 


B,0 


;Init counter to 


25B8 50 


02950 




LD 


D,B 


; Ini t ret valu to 


25B9 58 


02960 




LD 


E j B 




25 BA 7E 


02970 CVDEC 


LD 


A,(HL) 


;P/u a character 


25BB D630 


02980 




SUB 


30 H 


;Make binary 


25BD FE0A 


02990 




CP 


10 




25BF 3013 


03000 




JR 


NC,DONECON 


; Leave when non-deci 


25C1 E5 


03010 




PUSH 


HL 




25C2 62 


03020 




LD 


H,D 




25C3 6B 


03030 




LD 


L,E 


;Prev. total to HL 


25C4 29 


03040 




ADD 


HL S HL 


;X2 


25C5 29 


03050 




ADD 


HL,HL 


;X4 


25C6 19 


03060 




ADD 


HL,DE 


;X5 


25C7 29 


03070 




ADD 


HL,HL 


;X10 


25C8 EB 


03080 




EX 


DE,HL 


;Result back to DE 


25C9 83 


03090 




ADD 


A,E 


;Add in newest digit 


25CA 5F 


03100 




LD 


E S A 




25CB 3E00 


03110 




LD 


A,0 




25CD 8A 


03120 




ADC 


A 9 D 




25CE 57 


03130 




LD 


D,A 




25CF El 


03140 




POP 


HL 


;Get buffer posn 


25 D0 23 


03150 




INC 


HL 




25 Dl 04 


03160 




INC 


B 


;Inc chars found 


25D2 18E6 


03170 
03180 


! 


JR 


CVDEC 


; and continue next 


25 D4 78 


03190 [ 


DONECON 


LD 


A,B 




25D5 B7 


03200 




OR 


A 




25D6 C9 


03210 




RET 






25 D7 


03220 
03230 


[NBUF 


EQU 


$ 




2400 


03240 




END 


BEGIN 
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LIBRARY Files 


SETKI 


- LS-DOS 6.2 


Page 00007 


$ ABORT 


2411 $DSP 


2416 


$DSPLY 


241C 


$EXIT 


2407 (3(31 


0000 (3(32 


0000 


(3(33 


0000 (3@4 


0000 (3MOD2 


0000 


@M0D4 


FFFF ABB 


0010 


BEGIN 


2400 


CHECK 


25A3 CKPARM 


24B8 


CKR 


249E 


CKRP 


24CB CR 


000D CVD1 


2582 


CVD2 


2587 CVD3 


259B 


CVDEC 


25BA 


DCHECK 


25A1 DDELAY 


2527 


DDF ALT 


0016 


DECHEX 


25B6 DELAY 


0006 


DFPARM 


246C 


DMIN 


000A DMSG 


251E 


DONECON 


25 D4 


DRPEAT 


2535 ENDSTR 


253D 


ETX 


0003 


FLAG 


0040 GETD 


248B 


GETIT 


25AA 


GETNEW 


2462 HEXDEC 


2566 


INBUF 


25 D7 


IOERR 


2423 LF 


000A MDNAME 


2539 


MUM 


0080 OFFSET 


0004 


PAR ERR 


002 C 


PGRM 


242E PRMERR 


2421 


PRMTBL$ 


2540 


QCHK 


247D QPARM 


247E 


RCHECK 


259D 


RDF ALT 


0002 RMIN 


0001 


RMSG 


252C 


RPARM 


24D2 RPEAT 


0007 


RRESP 


2551 


SAVESP 


240A SETMSG 


2450 


SETSTR 


247A 


SH2 


24E0 SH3 


24F8 


SH4 


2505 


SH5 


250C SHOW 


24 DE 


SKP2 


2519 


SKSP 


2517 WPARM 


24C0 WRESP 


2559 


{3@ABORT 


8733 (PGADTSK 


87C6 


(30BANK 


8CDE 


@@BKSP 


89 BE INBREAK 


8CF4 


(30CHNIO 


871E 


C^CKBRKC 


8D42 @@CKDRV 


881A 


(3(3CKE0F 


89 D3 


(3(3CKTSK 


87B1 @(3CL0SE 


89A9 


@(3CLS 


8D2C 


(3(3 CM ND I 


875D (30CMNDR 


8772 


(3(3CTL 


8582 


m DATE 


86F4 @(3DCSTAT 


8859 


(3(3DEBUG 


879C 


(3@DECHEX 


8C5E (3(3DIRRD 


8BCB 


(3(3DIRWR 


8BE0 


@@DIV16 


8C49 (3(3DIV8 


8C34 


(3(3DODIR 


882F 


@@DSP 


8546 (3(3DSPLY 


85 E6 


TERROR 


8787 


@@EXIT 


8748 @@FEXT 


8B38 


(3(3FLAGS 


8CC8 


(3(3FNAME 


8B4D (3@FSPEC 


8B23 


(3@GATRD 


8BB6 


(3(3 GAT WR 


8BF5 (3@GET 


855A 


(3@GTDCB 


8B77 


@(3GTDCT 


8B62 (3(3GTMOD 


8B8C 


(30HDFMT 


8901 


(3(3 HEX 16 


8C9D (3(3HEX8 


8C88 


(3(3 HEXDEC 


8C73 


@@HIGH$ 


8CB2 (3(3INIT 


897F 


(30KBD 


85 BE 


(3(3 KEY 


8532 @@KEYIN 


85 D2 


(3(3KLTSK 


8805 


(3(3LOAD 


8AF9 @(3LOC 


89E8 


(3(3L0F 


89FD 


(3(3LQGER 


861 D @(3LOGOT 


8632 


@(3MSG 


8669 


(30MUL16 


8C1F (3(3MUL8 


8C0A @@OPEN 


8994 


(3(3 PAR AM 


86DF (3(3PAUSE 


86CA 


(3@PEOF 


8A12 


(3(3POSN 


8A27 SPRINT 


867E 


(3(3 PRT 


8596 


(3(3 PUT 


856 E (3(3RAMDIR 


8844 


(3(3RDSEC 


88 D7 


(3@RDSSC 


8BA1 (3(3READ 


8A3C 


@(3REMOV 


896A 


@(3RENAM 


8955 (3(3REW 


8A51 


(30RMTSK 


87 DB 


(30RPTSK 


87F0 (3(3RREAD 


8A66 


(30RSLCT 


88C2 


(3<3RSTOR 


8883 @(3RUN 


8B0E 


(3(3RWRIT 


8A7B 


(3(3 SEEK 


88AD (30SEEKSC 


8A90 (3(3SKIP 


8AA5 


(3<3SLCT 


886E (3(3STEPI 


8898 


(30TIME 


8709 


(3(3VDCTL 


86B5 (3(3VER 


8ABA 


(3(3 VR SEC 


88 EC 


(3(3WE0F 


8ACF (3(3WHERE 


85 AA 


(3(3WRITE 


8AE4 


@(3WRSEC 


8916 (3@WRSSC 


892B 


(3(3WRTRK 


8940 



2400 is the transfer address 
00000 Total errors 
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Command: SPOOL 
Library: SYS8/SYS 
ISAM # : A2H 
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LIBRARY Files 



SPOOL - LS-DOS 6.2 



Page 00001 



002 C 
0003 
000 D 
0028 
2300 
001 F 



00100 
00110 
00120 
00130 
00010 
00020 
00030 
00040 
00050 
00060 
00070 



;LBSPOOL/ASM - Spool command 

TITLE <SP00L - LS-DOS 6.2> 



2400 



2400 ED730B24 
2404 CD5924 
2407 210000 



240A 310000 
240D 

240D 3E6A 
240F EF 
2410 C9 



2411 
2414 
2415 
2418 
2419 
241C 
2410 
2420 
2421 
2424 
2425 
2428 
2429 
242C 
242 D 
2430 



217D29 

DD 

21A829 

DD 

219229 

DD 

213A2A 

DD 

21D529 

DD 

21BF29 

DD 

21EF29 

DD 

21112A 



2430 3E0C 

2432 EF 

2433 18D2 



00090 

00100 

00110 

00120 

04000 

04020 

05330 

05340 

05350 

05360 

05370 

05380 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

00001 

00002 

05470 

05480 

05490 

05500 

05510 

05520 

05530 

05540 

05550 

05560 

05570 

05580 

05590 

05600 

05610 

05620 

05630 

05640 

05650 

05660 

00003 

00004 

00005 

00006 



*GET LBSP00LA:3 
;LBSP00LA/ASM - SPOOL setup 

PAR_ERR EQU 44 

ETX EQU 3 

CR EQU 13 

RST28 EQU 28H 

LOWBUFS EQU 2300H 

KITSK0 EQU 31 

*GET SVCMAC:3 
;SVCMAC/ASM - LS-DOS Version VI 
*LIST OFF 
ON 



*LIST 
*LIST 
*LIST 



SPOOL 
EXIT 



OFF 
ON 



; Parameter Error 



;Low memory disk I/O buff 
;FLGTAB+31 

;SVC Macro equivalents 



;Get LDOS60/EQU 



ORG 2400H 

Save stack & call Spool routine 



LD (SAVESP+1),SP 
CALL SP00L1 
LD HL,0 



;Save SP 

;Call SPOOL Code 

;Successful exit 



P/u stack & clear any pending <BREAK> 



SAVESP LD SP 9 $-$ 

(*(3CKBRKC 
LD A, 106 

RST 40 

RET 



;P/u original stack 
;Clear any <BREAK> 



;Ret to DOS 



Informative Message Exit 



05670 
05680 



CLEARD LD 

DB 
RESUMD LD 

DB 
PAUSED LD 

DB 
SPLACT LD 

DB 
SPLONM LD 

DB 
SPLOFM LD 

DB 
SPLOPM LD 

DB 
PRMBGM LD 

@@LGGOT 

IFEQ 

LD 

ENDIF 

LD A, 12 

RST 40 

JR EXIT 



HL,CLEARD$ 

0DDH 

HL,RESUMD$ 

0DDH 

HL,PAUSED$ 

0DDH 

HL 9 SPLACT$ 

0DDH 

HL,SPLONM$ 

0DDH 

HL,SPLOFM$ 

0DDH 

HL 9 SPLOPM$ 

0DDH 

HL,PRMBGM$ 

00H S 1 
HL, 



Page 398 



The Source 



LIBRARY Files 



SPOOL - LS-DOS 6.2 



Page 00(302 



2435 
2437 
2438 
243A 
243C 
243D 
243D 
243F 
2440 



3E2C 

6F 

2600 

F6C0 

4F 

3E1A 

EF 

18C8 



2442 21C72A 

2445 DD 

2446 216029 
2449 DD 
244A 21972A 
244D DD 
244E 21AD2A 
2451 



2451 3E0C 

2453 EF 

2454 21FFFF 
2457 18B1 



2459 
245A 
245A 
245C 
245D 
2461 
2464 
2464 
2466 
2467 
2469 
246D 
2470 
2473 
2474 
2477 
2479 
247A 
247D 
247F 
2482 
2485 
2489 
248C 
248F 
2493 
2496 
2498 



E5 

3E65 
EF 

DD211D2D 
11142D 

3E53 

EF 

2032 

ED53A428 

22B228 

210400 

19 

22DD28 

DDE5 

Dl 



05690 
05700 
05710 
05720 
05730 
05740 
05750 
05760 
00008 
00009 
05770 
05780 
05790 
05800 
05810 
05820 
05830 
05840 
05850 
05860 
05870 
05880 
00010 
00011 
00012 
00013 
00014 
05890 
05900 
05910 
05920 
05930 
05940 
05950 
05960 
00015 
00016 
05970 



I/O Error Processor 



PRMERR 
IOERR 



LD 

LD 

LD 

OR 

LD 

(TERROR 

LD 

RST 

JR 



A S PAR_ERR 

L,A 

M 

0C0H 

C,A 

A, 26 

40 

SAVESP 



parameter Error 
;Set HL = Error # 

;Set short, return 
; Error code to C 
;Dsply error 



;Exit 
Internal Error Message Handler 



BADDCB LD 
DB 

NOFIND LD 
DB 



HL S BADDCB$ 

0DDH 

HL,NOFIND$ 

0DDH 

HL,INUSE$ 

0DDH 

HL,CANT$ 



INUSE LD 

DB 
CANT LD 

@@LOGOT 

IFEQ 00H 9 1 

LD HL 9 

ENDIF 

LD A s 12 

RST 40 
ERREXIT LD HL.-l 

JR SAVESP 



;Set abort code 
;Exit 



SPOOL1 - Set up system to Spool Output 



SPOOL1 



05990 
00017 
00018 



EDB0 

DD5E04 

DD5605 

ED538D26 

DD5E06 

DD5607 

ED531B26 

DD7E0A 

E67F 

32B625 



06010 
06020 
06030 
06040 
06050 
06060 
06070 
06080 
06090 
06100 
06110 
06120 
06130 
06140 
06150 
06160 
06170 
06180 



PUSH 


HL 


(a@FLAGS 




LD 


A, 101 


RST 


40 


LD 


IX S PRMSAV 


LD 


DE S SPOOLS 


(a@GTMOD 




LD 


A, 83 


RST 


40 


JR 


NZ S SPL1 


LD 


(SVDCB) S DE 


LD 


(SVBGN),HL 


LD 


HL S 4 


ADD 


HL,DE 


LD 


(HIPARM),HL 


PUSH 


IX 


POP 


DE 


LD 


BC.ll 


LDIR 




LD 


E s (IX+4) 


LD 


D,(IX+5) 


LD 


(MPARM+1),DE 


LD 


E.UX+6) 


LD 


D,(IX+7) 


LD 


(DPARM+1),DE 


LD 


A,(IX+10) 


AND 


07FH 


LD 


(BPARM+1) S A 



;Save INBUF$ pointer 
;Get flag table pointer 



; Point to parm save area 
;If already resident, 
; don't need to check 



; if memory avai lable 
;Save DCB pointer 
;Save module begin 
;Get parm save pointer 

;Save for use by clear 
;Also put address in DE 
;Shift saved parms into 
; spool driver front end 

;P/u previous MPARM 

;Stuff as new default 
;P/u previous DPARM 

;Stuff as new default 
;P/u old bank # 
; Strip hi bit 
; & save as default 
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249B El 


06190 
06200 


SPL1 
» 


POP 


HL 


;Get INBUF$ pointer 




06210 


S 


Fetch device spec to spool 




06220 


5 








249C 11E22A 


06230 


SPL2 


LD 


DE,SPLDCB 


; Fetch device spec 


249F 


06240 




00FSPEC 




; to spool 


249F 3E4E 


00019 




LD 


A, 78 




24A1 EF 


00020 




RST 


40 




24A2 E5 


06250 




PUSH 


HL 


;Save inbuf$ ptr 


24A3 201E 


06260 




JR 


NZ, USEPR 


;Use *PR if no entry 


24A5 1A 


06270 




LD 


A 9 (DE) 


;If a device spec not 


24A6 FE2A 


06280 




CP 


• *' 


; found, maybe it was 


24A8 2824 


06290 
06300 


s 


JR 


Z.SPL2A 


; the spool file spec 




06310 


J 


File spec fetched - Move 


to spool FCB 




06320 


9 








24AA EB 


06330 




EX 


DE,HL 


;DCB to HL 


24AB 11332F 


06340 




LD 


DE S SPLFCB 


; Point to spool FCB 


24AE D5 


06350 




PUSH 


DE 




24AF 012000 


06360 




LD 


BC S 32 




24B2 EDB0 


06370 




LDIR 




;Move it in 


24B4 21092B 


06380 




LD 


HL 5 PR$ 


;Move in default spec 


24B7 11E22A 


06390 




LD 


DE S SPLDCB 


; for spool device 


24BA 010400 


06400 




LD 


BC S 4 




24BD EDB0 


06410 




LDIR 






24BF AF 


06420 




XOR 


A 




24C0 Dl 


06430 




POP 


DE 


;Point to SPLFCB 


24C1 181B 


06440 




JR 


SPL2B 


;Go - we have spec 


24C3 21092B 


06450 


USEPR 


LD 


HL,PR$ 


;Move in default spec 


24C6 11E22A 


06460 




LD 


DE 9 SPLDCB 




24C9 010400 


06470 




LD 


BC S 4 




24CC EDB0 


06480 
06490 


s 


LDIR 








06500 


s 


Fetch f 


ile spec to use as disk spool buffer 




06510 


9 








24CE El 


06520 


SPL2A 


POP 


HL 


;Get inbuf$ ptr 


24CF ED5BE32A 06530 




LD 


DE S (SPLDCB+1) 


; Stuff device name for 


24D3 ED53022B 06540 




LD 


(DSKSPC),DE 


; default spool file name 


24D7 11332F 


06550 




LD 


DE,SPLFCB 


;Fetch spool filespec 


24 DA 


06560 




(a@FSPEC 






24DA 3E4E 


00021 




LD 


A, 78 




24 DC EF 


00022 




RST 


40 




24DD E5 


06570 




PUSH 


HL 


;Save separator char 


24DE F5 


06580 


SPL2B 


PUSH 


AF 


; & line pointer 


24DF 21022B 


06590 




LD 


HL,DSKSPC 


; Default to XX/SPL 


24E2 2803 


06600 




JR 


Z S SPL2C 




24E4 


06610 




@@FSPEC 




; if user entered none 


24E4 3E4E 


00023 




LD 


A, 78 




24E6 EF 


00024 




RST 


40 




24E7 21052B 


06620 


SPL2C 


LD 


HL,SPLEXT 


;Default ext to SPL 


24EA 


06630 




@@FEXT 






24EA 3E4F 


00025 




LD 


A>79 




24EC EF 


00026 




RST 


40 




24ED Fl 


06640 




POP 


AF 


;Rcvr line pointer 


24EE El 


06650 




POP 


HL 




24EF FE3A 


06660 




CP 


' : ' 


; Drive entered? 


24F1 201C 


06670 




JR 


NZ,GETPRM 




24F3 1A 


06680 


SPL3 


LD 


A,(DE) 


;Wait for ETX or EOL 


24F4 FE0D 


06690 




CP 


CR 




24F6 2807 


06700 




JR 


Z 9 SPL4 




24F8 FE03 


06710 




CP 


3 





Page 400 



The Source 



LIBRARY Files 



SPOOL - LS-DOS 6.2 



Page 



24FA 2803 
24FC 13 
24FD 18F4 
24FF 3E3A 

2501 12 

2502 13 

2503 7E 

2504 FE0D 
2506 CA3524 
2509 23 
250A 12 
250B 13 
250C 3E03 
250E 12 



250F 110D2B 
2512 
2512 3E11 

2514 EF 

2515 C23524 



2518 110000 
251B 1C 
251C CA3128 



251F 110000 

2522 1C 

2523 CA1C28 



2526 110000 
2529 1C 
252A CA0728 



252D 110000 

2530 1C 

2531 CAD428 



2534 FDCB0246 
2538 C24E24 
253B FDCB0346 
253F C22124 



2542 11142D 
2545 
2545 3E53 

2547 EF 

2548 202B 



06720 

06730 

06740 

06750 SPL4 

06760 

06770 

06780 

06790 

06800 

06810 

06820 

06830 

06840 

06850 

06860 ; 

06870 ; 

06880 ; 

06890 GETPRM 

06900 

00027 

00028 

06910 

06920 ; 

06930 ; 

06940 ; 

06950 OPARM 

06960 

06970 

06980 ; 

06990 ; 



JR 

INC 

JR 

LD 

LD 

INC 

LD 

CP 

JP 

INC 

LD 

INC 

LD 

LD 



Z,SPL4 

DE 

SPL3 

A,':' 

(DE),A 

DE 

A,(HL) 

CR 

Z,PRMERR 

HL 

(DE),A 

DE 

A, 3 

(DE),A 



07010 RPARM 
07020 
07030 
07040 ; 
07050 ; 
07060 ; 
07070 PPARM 
07080 
07090 
07100 ; 
07110 ; 
07120 ; 
07130 CPARM 
07140 
07150 
07160 ; 
07170 ; 
07180 ; 
07190 
07200 
07210 
07220 
07230 ; 
07240 ; 
07250 ; 
07260 • 
07270 
00029 
00030 
07280 



Get parameter entries 

LD DE,PRMTBL$ 

@@PARAM 

LD A, 17 

RST 40 

JP NZ,PRMERR 

Check on OFF 

LD DE 9 

INC E 

JP Z,SPLOFF 



; Stuff colon for drive 

;P/u possible drive # 
;Parm error if EOL 
; Stuff drive # 

; Stuff ETX 
;Get parms 
;Jump on parm error 



;P/u off parm 
;0n or off? 
;Jump if OFF 



Check on RESUME despooling 



LD DE s 

INC E 

JP Z, RESUME 

Check on PAUSE 

LD DE,0 

INC E 

JP Z, PAUSE 

Check on CLEAR 

LD DE 9 

INC E 

JP Z, CLEAR 



P/u Resume parm 
Was it used? 
Go if so 



;P/u Pause parm 
;Was it used? 
;Go if so 



;P/u Clear parm 
;Was is used? 
;Go if so 



Assume request to be to install 

BIT 0, (IY+'C'-'A 1 ) ;Can't insert spool if 

JP NZ,CANT ; memory frozen 

BIT s (IY+ , D , - , A') ;Is spooler already on? 

JP NZ,SPL0NM ;Quit if so 

If module resident, ck parm sizes 



LD DE, SPOOLS 

@(9GTM0D 

LD A, 83 

RST 40 

JR NZ,FNDDCB 



;Go if no area in mem 
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254A DD6E04 


07290 


LD 


L 9 (IX+4) 


;Prev. MPARM 


254 D DD6605 


07300 


LD 


H 9 (IX+5) 




2550 ED5B8D26 


i 07310 


LD 


DE,(MPARM+1) 




2554 B7 


07320 


OR 


A 




2555 ED52 


07330 


SBC 


HL,DE 


;01d must = new 


2557 C22D24 


07340 


JP 


NZ S PRMBGM 


;Abort if bad 


255A DD6E06 


07350 


LD 


L,(IX+6) 


;D parm 


255D DD6607 


07360 


LD 


MIX+7) 




2560 ED5B1B26 07370 


LD 


DE 8 (DPARM+1) 




2564 ED52 


07380 


SBC 


HL S DE 




2566 C22D24 


07390 


JP 


NZ 9 PRMBGM 


;Abort if not same as old 


2569 DD7E0A 


07400 


LD 


A,(IX+10) 


;Bank # 


256C E67F 


07410 


AND 


07FH 


;Strip hi bit 


256E 2AB625 


07420 


LD 


HL 5 (BPARM+1) 




2571 BD 


07430 


CP 


L 




2572 C22D24 


07440 
07450 ; 


JP 


NZ 9 PRMBGM 


; Abort if not same as old 




07460 ; 


Find 


device to spool 






07470 ; 








2575 ED5BE32A 07480 FNDDCB 


LD 


DE S (SPLDCB+1) 


;P/u device name 


2579 


07490 


@@GTDCB 


;Find in device tables 


2579 3E52 


00031 


LD 


A 9 82 




257B EF 


00032 


RST 


40 




257C C23724 


07500 


JP 


NZ S IQERR 


;Jump on not found 


257F CB66 


07510 CKRTE 


BIT 


4 S (HL) 


;Routed device? 


2581 2807 


07520 


JR 


Z S CKLNK 


; Bypass if not 


2583 2C 


07530 CKRTE1 


INC 


L 


;Pt to vector 


2584 7E 


07540 


LD 


A 9 (HL) 


;P/u vector DCB address 


2585 2C 


07550 


INC 


L 


; & test it 


2586 66 


07560 


LD 


H,(HL) 




2587 6F 


07570 


LD 


L,A 




2588 18F5 


07580 


JR 


CKRTE 




258A CB6E 


07590 CKLNK 


BIT 


5 S (HL) 


;If linked, get DCB 


258C 20F5 


07600 


JR 


NZ 9 CKRTEl 




258E CB76 


07610 


BIT 


6 9 (HL) 


;If f i ltered 9 trace to 


2590 281B 


07620 


JR 


Z 9 SETDVR 


; its DCB in header 


2592 54 


07630 


LD 


D 9 H 


;Save to ck inactive 


2593 5D 


07640 


LD 


E 9 L 




2594 2C 


07650 


INC 


L 




2595 7E 


07660 


LD 


A 9 (HL) 


;Get vector to module 


2596 2C 


07670 


INC 


L 




2597 66 


07680 


LD 


H 9 (HL) 




2598 6F 


07690 


LD 


L 9 A 




2599 010400 


07700 


LD 


BC S 4 


;HL now points to the 


259C 09 


07710 


ADD 


HL 9 BC 


; entry point. Get its 


259D 4E 


07720 


LD 


C,(HL) 


; DCB address by peeking 


259E 0C 


07730 


INC 


C 


; past the name field 


259F 09 


07740 


ADD 


HL,BC 




25A0 7E 


07750 


LD 


A 9 (HL) 


;Get low-order 


c.0 r\ J- C~ «J 


07760 


INC 


HL 




25A2 66 


07770 


LD 


H 9 (HL) 


;Get hi -order 


25A3 6F 


07780 


LD 


L 9 A 




25A4 E5 


07790 


PUSH 


HL 


;If DCB is itself, then 


25A5 ED52 


^7QW 


SBC 


HL 9 DE 


; it's some error 


25A7 El 


07810 


POP 


HL 


; else continue to 


25A8 20D5 


07820 


JR 


NZ 9 CKRTE 


; search the chain 


25AA C34224 


07830 
07840 ; 


JP 


BADDCB 






07850 ; 


Found 


the device 






07860 ; 








25AD CB4E 


07870 SETDVR 


BIT 


1,(HL) 


; Device handle @PUT? 
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25AF CA4224 


07880 


JP 


Z 9 BADDCB 


;Can't do if not 


25B2 22252D 


07890 
07900 ; 


LD 


(MODDVR),HL 


;Stuff DCB table address 




07910 ; 


Check BANK spec for availability 




07920 ; 








25B5 010000 


07930 BPARM 


LD 


BC,0 


;Pick up the bank # 


25B8 79 


07940 


LD 


A,C 


;If bank=0 9 no need 


25B9 B0 


07950 


OR 


B 


; to test for 


25BA 281B 


07960 


JR 


Z, LOCDCB 


; availability 


25BC FE08 


07970 


CP 


8 


;This version supports 


25BE D23524 


07980 


JP 


NC.PRMERR 


; banks 0-7 


25C1 CBFF 


07990 


SET 


7,A 


;Set for transfer 


25C3 32612D 


08000 


LD 


(BANKX1),A 


;Stuff for module A 


25C6 32832D 


08010 


LD 


(BANKX2),A 




25C9 32902D 


08020 


LD 


(BANKX3),A 




25CC 32272D 


08030 


LD 


(SPLBNK),A 




25CF 0602 


08040 


LD 


B,2 


;Test if bank 1-x 


25D1 


08050 


@@BANK 




; is available 


25D1 3E66 


00033 


LD 


A, 102 




25D3 EF 


00034 


RST 


40 




25D4 C24A24 


08060 
08070 ; 


JP 


NZ 9 INUSE 


;Quit if not avai lable 




08080 ; 


Locate 


a spare DCB for 


the spool module 




08090 ; 








25D7 110000 


08100 LOCDCB 


LD 


DE s 




25 DA 


08110 


@@GTDCB 






25DA 3E52 


00035 


LD 


A, 82 




25DC EF 


00036 


RST 


40 




25DD 3E21 


08120 


LD 


A, 33 


; Ini t "No device space... 


25DF C23724 


08130 


JP 


NZ 9 I0ERR 


;Go if no spare DCBs 


25E2 22192D 


08140 


LD 


(S0DCB) 9 HL 


;Save pointer 


25E5 22B62D 


08150 


LD 


(S0DCB1),HL 




25E8 E5 


08160 


PUSH 


HL 


;Save DCB field pointer 


25E9 11532F 


08170 


LD 


DE.7S' 


; Let's find a link name 


25 EC 14 


08180 NAMLP 


INC 


D 


;Bump "2nd" character 


25ED 


08190 


(30GTDCB 




;If we find this name 


25ED 3E52 


00037 


LD 


A, 82 




25EF EF 


00038 


RST 


40 




25F0 28FA 


08200 


JR 


Z, NAMLP 


; look for another 


25F2 El 


08210 


POP 


HL 


;Get DCB pointer 


25F3 CBDE 


08220 


SET 


3,(HL) 


; NIL in case of error 


25F5 010600 


08230 


LD 


BC 9 6 




25F8 09 


08240 


ADD 


HL 9 BC 


; Point to name field 


25F9 73 


08250 


LD 


(HL) 9 E 


; & stuff in the 


25FA 2C 


08260 


INC 


L 


; selected spool name 


25FB 72 


08270 
08280 ; 


LD 


(HL) 9 D 






08290 ; 


Create 


a disk file for 


spooling 




08300 ; 








25FC ED5B1B26 


08310 


LD 


DE 9 (DPARM+1) 


;P/u disk size 


2600 DD7306 


08320 


LD 


(IX+6) 9 E 


;Save DPARM for next time 


2603 DD7207 


08330 


LD 


(IX+7) S D 


; SPOOL is entered 


2606 7A 


08340 


LD 


A,D 




2607 B3 


08350 


OR 


E 




2608 284E 


08360 


JR 


Z 9 PUHIGH 


;No file if DISK=0 


260A 11332F 


08370 


LD 


DE 9 SPLFCB 


;Init the spool file 


260D 21002C 


08380 


LD 


HL 9 BUFFER 




2610 FDCB12C6 


08390 


SET 


9 (IY+ , S'- , A') 


; Ini t file open bit 


2614 


08400 


@@INIT 






2614 3E3A 


00039 


LD 


A s 58 




2616 EF 


00040 


RST 


40 
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2617 C23724 


08410 


JP 


NZ,IOERR 


;Jump on init error 


261A 010400 


08420 DPARM 


LD 


BC,4 


;D parm (default=4K) 


261D 78 


08430 


LD 


A,B 


;Parm error if > 4095K 


261E E6F0 


08440 


AND 


0F0H 




2620 C23524 


08450 PRMERRA 


JP 


NZ S PRMERR 


;Go if too big a file 


2623 CB21 


08460 


SLA 


C 


;Multiply K by 4 


2625 CB10 


08470 


RL 


B 


; to calculate sectors 


2627 CB21 


08480 


SLA 


C 




2629 CB10 


08490 


RL 


B 




262B ED43FF26 


08500 


LD 


(IPLDSKl+l),BC 


;Stuff disk K 


262F 0B 


08510 


DEC 


BC 


;Adjust for offset 


2630 


08520 


@@POSN 




;Position to end 


2630 3E42 


00041 


LD 


A, 66 




2632 EF 


00042 


RST 


40 




2633 


08530 


@(9WRITE 




;Write a junk sector 


2633 3E4B 


00043 


LD 


A, 75 




2635 EF 


00044 


RST 


40 




2636 C23724 


08540 


JP 


NZ s IOERR 


;Jump on write error 


2639 


08550 


(a@REW 




;Restore f i le to 


2639 3E44 


00045 


LD 


A,68 




263B EF 


00046 


RST 


40 




263C 


08560 


@iaWEOF 




;End of f i le mark 


263C 3E4A 


00047 


LD 


A, 74 




263E EF 


00048 


RST 


40 




263F ED4B392F 


08570 


LD 


BC 5 (SPLFCB+6) 


;P/u DEC & drive 


2643 


08580 


@@DIRRD 




;Read its dir record 


2643 3E57 


00049 


LD 


A s 87 




2645 EF 


00050 


RST 


40 




2646 C23724 


08590 


JP 


NZ s IOERR 


;Quit on read error 


2649 23 


08600 


INC 


HL 


; Point to DIR+1 


264A CBFE 


08610 


SET 


7,(HL) 


;Turn on CREATE bit 


264C 


08620 


@@DIRWR 




;Write dir back 


264C 3E58 


00051 


LD 


A,88 




264E EF 


00052 


RST 


40 




264F C23724 


08630 


JP 


NZ,IOERR 


;Jump on error 


2652 210023 


08640 


LD 


HL s LOWBUF$ 


;Revise I/O buffer 


2655 22362F 


08650 
08660 ; 


LD 


(SPLFCB+3) S HL 


; in file's FCB 




08670 ; 


Get current HIGH$ 






08680 ; 








2658 210000 


08690 PUHIGH 


LD 


HL s 


;Set HLB to zero to 


265B 45 


08700 


LD 


B S L 


; fetch HIGH$ 


265C 


08710 


(THIGHS 






265C 3E64 


00053 


LD 


A 9 100 




265E EF 


00054 


RST 


40 




265F 22BC26 


08720 


LD 


(GBUF1+1),HL 


;Save for later 


2662 22BD27 


08730 
08740 ; 


LD 


(0LDHI+1) 5 HL 






08750 ; 


If bank 


RAM, recalcula 


te MPARM 




08760 ; 








2665 3AB625 


08770 


LD 


A S (BPARM+1) 


;Alternate banks reques 


2668 B7 


08780 


OR 


A 




2669 2821 


08790 
08800 ; 


JR 


Z, MP ARM 


;Go if not 




08810 ; 


Recalcu 


late MEM parame 


ter to use the 




08820 ; 


Maximum 


space in bank 


RAM. Formula is 




08830 ; 


[((32768 - 512 for mod 


ule) - ((DPARM+1)*16)] 




08840 ; 


Divided 


by 260. The 260 is derived from 




08850 ; 


256-byt 


e page plus 4-bytes for pointers. 




08860 ; 


Then revise to K from 


pages. 




08870 ; 
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266B 
266E 
266F 
2670 
2671 
2672 
2673 
2674 
2675 
2678 
2679 
267B 
267U 
267F 
2681 
2681 
2683 
2684 
2685 
2686 
2688 
268A 



268C 
268F 
2690 
2691 
2693 
2694 
2697 
2698 
269A 
269B 
269D 
269E 
26A1 
26A4 



2A1B26 

23 

29 

29 

29 

29 

4D 

44 

21007E 

AF 

ED42 

CB3C 

CB1D 

0E82 

3E5E 

EF 

4D 

44 

CB39 

CB39 

1815 



010100 

78 

B7 

208D 

B9 

CA3524 

7C 

D681 

IF 

CB3F 

91 

DA3524 

DD7104 

DD7005 



26A7 2A1B26 
26AA 09 
26AB 29 
26AC 29 
26AD 23 
26AE 29 
26AF 29 



26B0 E5 
26B1 DD6E00 
26B4 DD6601 
26B7 7D 
26B8 B4 
26B9 2009 
26BB 210000 
26BE DD7500 
26C1 DD7401 



08890 
08900 
08910 
08920 
08930 
08940 
08950 
08960 
08970 
08980 
08990 



09010 

09020 

00055 

00056 

09030 

09040 

09050 

09060 

09070 

09080 ; 

09090 ; 

09100 ; 

09110 MPARM 

09120 

09130 

09140 

09150 

09160 

09170 

09180 

09190 

09200 

09210 

09220 

09230 CALCPTR 

09240 

09250 ; 

09260 ; 

09270 ; 

09280 

09290 

09300 

09310 

09320 

09330 

09340 

09350 ; 

09360 ; 

09370 ; 

09380 

09390 

09400 

09410 

09420 

09430 

09440 GBUF1 

09450 

09460 



LD 

INC 

ADD 

ADD 

ADD 

ADD 

LD 

LD 

LD 

XOR 

SBC 

SRL 

RR 

LD 

@@DIV16 

LD 

RST 

LD 

LD 

SRL 

SRL 

JR 



HL 9 (DPARM+1) 

HL 

HL,HL 

HL,HL 

HL,HL 

HL 9 HL 

B^H 

HL,32768-512 

A 

HL,BC 

H 

L 

C, 260/2 

A,94 

40 

C 9 L 

B 9 H 

C 

C 

CALCPTR 



;Bump by 1 
;Times 16 



;Xfer to BC for subtract 

;RAM space - module space 
;The remainder is for 
; MEM pages and ptrs 
;A divide by 260 is 
; accomplished by 
; div 2 and div 130 



Calculate 

; K = pages / 4 



Calculate memory buffer space requested 



LD 

LD 

OR 

JR 

CP 

JP 

LD 

SUB 

RRA 

SRL 

SUB 

JP 

LD 

LD 



BC 9 1 

A S B 

A 

NZ 9 PRMERRA 

C 

Z S PRMERR 

A 9 H 

81H 

A 

C 

C 9 PRMERR 

(IX+4) 9 C 

(IX+5) 9 B 



;MEM parm - default IK 

;Test entry - must be 

;< 33K 

;Hi-order must = 

;MEM = ? 

;Yes - Parameter Error 

;Get hi-order HIGH$ 

iCan't go below 8000H 

;Divide by 2 

; & again to calc K 

;Reduce by K of req 

;Error if goes < 8000H 

; Stuff MEM parm into 

; save area 



Add memory buffer space to disk space 



LD 

ADD 

ADD 

ADD 

INC 

ADD 

ADD 



HL 9 (DPARM+1) 

HL 9 BC 

HL,HL 

HL 9 HL 

HL 

HL 9 HL 

HL,HL 



P/u disk K 

Calculate pointer 
buffer space required 
(D+M)*16 + 4 extra 
used to detect the end 



Retrieve high memory space for buffers 



PUSH 

LD 

LD 

LD 

OR 

JR 

LD 

LD 

LD 



HL 

L 9 (IX+0) 

H,(IX+1) 

A S L 

H 

NZ.GBUF2 

HL 9 $-$ 

(IX+0) 9 L 

(IX+D.H 



;P/u saved HIGHS entry 

;If <> 0, then SPOOL 
; is resident 

;P/u current high 
:Save the value 
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26C4 223629 


09470 GBUF2 
09480 ; 


LD 


(SVEND+1),HL 


;Stuff highest byte used 




09490 ; 


If bank 


RAM used, reset 


to X'FFFF' 




09500 ; 








26C7 23 


09510 


INC 


HL 


;Pt to lower 256 


26C8 2E00 


09520 


LD 


L,0 


; byte block boundary 


26CA 3AB625 


09530 


LD 


A,(BPARM+1) 


;Bank specified? 


26CD B7 


09540 


OR 


A 




26CE 2801 


09550 


JR 


Z s $+3 


;Jump if not 


26D0 65 


09560 


LD 


H,L 


;Set to FFFF+1 = 


26D1 4F 


09570 


LD 


C,A 


;Reside bank for 


26D2 0600 


09580 


LD 


B,0 


; module B 


26D4 


09590 


@@BANK 






26D4 3E66 


00057 


LD 


A, 102 




26D6 EF 


00058 


RST 


40 




26D7 C23724 


09600 


JP 


NZ,IOERR 


;Quit on bank error 


26DA DD7E04 


09610 


LD 


A,(IX+4) 


;P/u MEM parm 


26DD 07 


09620 


RLCA 




;MEM * 4 = # of 


26DE 07 


09630 


RLCA 




; 256-byte blocks 


26DF 47 


09640 


LD 


B,A 


;Go back that number 


26E0 ED44 


09650 


NEG 




; of blocks needed 


26E2 84 


09660 


ADD 


A S H 


;HL now reserves buffer 


26E3 67 


09670 


LD 


H S A 


; blocks for MEM 


26E4 22532F 


09680 


LD 


(PUTNXT$) 5 HL 


;Stuff pointers to begin 


26E7 22552F 


09690 


LD 


(GETNXT$) S HL 


; of memory blocks 


26EA 4C 


09700 


LD 


C,H 




26EB Dl 


09710 


POP 


DE 


;Get (D+M)*16+4 


26 EC AF 


09720 


XOR 


A 


; Backup the # of D+M 


26ED ED52 


09730 
09740 ; 


SBC 


HL 5 DE 


; sectors 




09750 ; 


Initial 


ize the memory pointers 




09760 ; 








26EF E5 


09770 


PUSH 


HL 


;Save pointer 


26F0 3600 


09780 IPLMEM 


LD 


(HL) s 


;Init the 4-byte fields 


26F2 23 


09790 


INC 


HL 


; for each of the disk & 


26F3 3600 


09800 


LD 


(HL) s 


; memory block pointers 


26F5 23 


09810 


INC 


HL 




26F6 71 


09820 


LD 


(HL) S C 


;Stuff memory hi -order 


26F7 23 


09830 


INC 


HL 




26F8 3600 


09840 


LD 


(HL)J 




26FA 23 


09850 


INC 


HL 




26FB 0C 


09860 


INC 


C 


;Bump memory hi -order 


26FC 10F2 


09870 
09880 ; 


DJNZ 


IPLMEM 






09890 ; 


Initial 


ize the disk pointers 




09900 ; 








26FE 110000 


09910 IPLDSKl 


LD 


DE,0 


;P/u # of disk sectors 


2701 7A 


09920 


LD 


A 9 D 




2702 B3 


09930 


OR 


E 




2703 2815 


09940 


JR 


Z S IPLDSK3 


;Bypass if none 


2705 010000 


09950 


LD 


BC 5 


;Set up a disk pointer 


2708 3600 


09960 IPLDSK2 


LD 


(HL) s 


; for each disk block 


270A 23 


09970 


INC 


HL 




270B 3600 


09980 


LD 


(HL),0 




270D 23 


09990 


INC 


HL 




270E 71 


10000 


LD 


(HL) S C 


;Stuff block number 


270F 23 


10010 


INC 


HL 




2710 70 


10020 


LD 


(HL) S B 




2711 CBFE 


1003J3 


SET 


7 S (HL) 


;Set bit 7 to indicate 


2713 23 


10040 


INC 


HL 


; this pntr is for disk 


2714 03 


10050 


INC 


BC 


;Inc block number 
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2715 IB 


10060 


DEC 


DE 




2716 7A 


10070 


LD 


A 9 D 


;Test if finished 


2717 B3 


10080 


OR 


E 




2718 20EE 


10090 


JR 


NZ,IPLDSK2 


;Loop if not 


271A 3600 


10100 IPLDSK; 


1 LD 


(HL) 9 


;One more used to 


271C 23 


10110 


INC 


HL 


; indicate the end 


271D 3600 


10120 


LD 


(HL) 9 


; of the pointer fields 


271F 23 


10130 


INC 


HL 




2720 36FF 


10140 


LD 


(HL) s 0FFH 




2722 23 


10150 


INC 


HL 




2723 36FF 


10160 


LD 


(HU.0FFH 




2725 El 


10170 


POP 


HL 


;Rcvr start of pointers 


2726 E5 


10180 


PUSH 


HL 




2727 22572F 


10190 


LD 


(MAPPTR$),HL 


; & stuff for later use 


272A 22592F 


10200 


LD 


(PUTBLK$),HL 




272D 225B2F 


10210 


LD 


(GETBLK$) 5 HL 




2730 7C 


10220 


LD 


A 9 H 


; Stuff 1st MEM block ptr 


2731 75 


10230 


LD 


(HL) 9 L 


; with table addr 


2732 23 


10240 


INC 


HL 




2733 77 


10250 
10260 ; 


LD 


(HL) S A 






10270 ; 


Modify 


driver for spool 


ing device vector address 




10280 ; 








2734 FD7E1F 


10290 


LD 


A S (IY+KITSK@) 


;Transfer device hook 


2737 FD6E20 


10300 


LD 


L 9 (IY+KITSK(?+1) 




273A FD6621 


10310 


LD 


H 9 (IY+KITSK<3+2) 




273D 32982D 


10320 


LD 


(GETBLK0) 9 A 




2740 22992D 


10330 


LD 


(GETBLK0+1) 9 HL 




2743 FDE5 


10340 


PUSH 


IY 


;Set up address 


2745 Dl 


10350 


POP 


DE 


; in despooler 


2746 210F00 


10360 


LD 


HL/P'-'A 1 


;PFLAG use to 


2749 19 


10370 


ADD 


HL 9 DE 


; determine if spooler 


274A 226D2D 


10380 


LD 


(DFLAG) S HL 


; is Paused 


274D 226F2E 


10390 


LD 


(DFLAGl).HL 




2750 CI 


10400 


POP 


BC 


;Start of MEM block tbl 


2751 0B 


10410 


DEC 


BC 


;Get last byte to use 


2752 C5 


10420 


PUSH 


BC 




2753 115E2F 


10430 


LD 


DE 9 DVRBEND 


;Point to module B 


2756 215F2F 


10440 


LD 


HL 9 RELTABB 


; Point to table 


2759 CD3029 


10450 
10460 ; 


CALL 


RELO 


;Relocate absolute refs 




10470 ; 


If bank 


9 then wipe out module A 




10480 ; 








275C 3AB625 


10490 


LD 


A S (BPARM+1) 


;Alternate bank used? 


275F B7 


10500 


OR 


A 




2760 2019 


10510 


JR 


NZ 9 MOVMODB 


;Skip next if so 


2762 21002D 


10520 


LD 


HL 9 FIX1 


;Shift in JPs for the 


2765 115C2D 


10530 


LD 


DE,PUTCHAR 


; bank transfer 


2768 010500 


10540 


LD 


BC 9 5 


; linkage 


276B EDB0 


10550 


LDIR 






276D 117F2D 


10560 


LD 


DE,FIX2UP 




2770 0E05 


10570 


LD 


C 9 5 




2772 EDB0 


10580 


LDIR 






2774 118C2D 


10590 


LD 


DE 9 GETBLK 




2777 0E05 


10600 


LD 


C,5 




2779 EDB0 


10610 


LDIR 






277B Dl 


10620 MOVMODB 


POP 


DE 


;Get last byte to use 


277C 215E2F 


10630 


LD 


HL 9 DVRBEND 


;Last byte of module 


277F 01A901 


10640 


LD 


BC,DVRBEND-DVRBBGN+1 


2782 EDB8 


10650 


LDDR 






2784 D5 


10660 


PUSH 


DE 


;New last byte 
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2785 010000 
2788 

2788 3E66 
278A EF 
278B C23724 
278E CI 



278F 3AB625 

2792 B7 

2793 280D 

2795 4F 

2796 0603 
2798 

2798 3E66 
279A EF 
279B C23724 
279E ED4B3629 
27A2 C5 



27A3 
27A6 
27A9 
27AC 
27AD 
27B0 
27B3 
27B5 
27B8 
27B9 
27BA 
27BB 



27BC 
27BF 
27C1 
27C3 
27C4 
27C4 
27C6 
27C7 
27C8 
27C9 
27CC 
27CE 
27 CF 
27D0 
27D1 
27D2 
27D3 
27D5 
27D7 
27D7 



119A2D 

219B2D 

CD3029 

Dl 

219A2D 

018C00 

EDB8 

211100 

19 

73 

23 

72 



210000 
ED52 
3805 
EB 

3E64 

EF 

EB 

13 

2A192D 

3646 

23 

73 

23 

72 

116A2D 

0E09 

3E1D 



10670 ; 

10680 ; 

10690 ; 

10700 

10710 

00059 

00060 

10720 

10730 

10740 ; 

10750 ; 

10760 ; 

10770 

10780 

10790 

10800 

10810 

10820 

00061 

00062 

10830 

10840 

10850 STORHI 

10860 ; 

10870 ; 

10880 ; 

10890 

10900 

10910 

10920 

10930 

10940 

10950 

10960 

10970 

10980 

10990 

11000 

11010 ; 

11020 ; 

11030 ; 

11040 OLDHI 

11050 

11060 

11070 

11080 

00063 

00064 

11090 

11100 NOSET 

11110 

11120 

11130 

11140 

11150 

11160 

11170 

11180 RX05 

11190 

11200 

00065 



Switch to bank always 



LD 

@(<>BANK 

LD 

RST 

JP 

POP 



BC,0 

A 9 102 
40 

NZ 9 I0ERR 
BC 



;Set function 9 bank 



;Quit on bank error 



If module B is in bank x, switch HIGH for A 

;P/u alternate bank resp. 



LD 

OR 

JR 

LD 

LD 

GGBANK 

LD 

RST 

JP 

LD 

PUSH 



A 9 (BPARM+1) 

A 

Z, STORHI 

C,A 

B,3 

A s 102 

40 

NZ 9 I0ERR 

BC 9 (SVEND+1) 

BC 



;Go if none used 
;Reserve the bank 
;Set function # 3 



;Quit on bank error 
;P/u bank-A HIGH$ 



Relocate absolute addresses in module A 



LD 

LD 

CALL 

POP 

LD 

LD 

LDDR 

LD 

ADD 

LD 

INC 

LD 



DE 9 DVRAEND ;Point to last used in A 

HL 9 RELTABA ;Point to relo table 

RELO ;Relocate absolute refs 

DE ;Get last byte to use 

HL 9 DVRAEND ;Last byte of module 

bc 9 dvraend-dvrabgn+1 
bgn+: 

;Data area in himem 
;Save hi gh$ there 



HL 5 PRMSAV+2-DVRABGN+l 

HL 9 DE 

(HL) S E 

HL 



(HL),D 

Stuff new HIGH$ 

LD HL,$-$ 

SBC HL,DE 

JR C, NOSET 

EX DE 9 HL 

(THIGHS 

LD A 9 100 

RST 40 

EX 

INC 

LD 

LD 

INC 

LD 

INC 

LD 

LD 

EQU 

LD 

@@ADTSK 

LD A 9 29 



DE 9 HL 

DE 

HL 9 (S0DCB) 

(HL) 9 46H 

HL 

(HL) 9 E 

HL 

(HL) 9 D 

DE 9 DSPLTCB 

$-2 

C,9 



;P/u old HIGH$ 
;Check if old HIGH$ is 
; already lower 
;New HIGH$ to HL 
;Stuff new HIGH$ 



Point to module start 
P/u module DCB pointer 

& set to f i Iter 
Pt to DCB vector pos 
Put entry point of 

module into DCB 

Calculate entry point 
;This wi 11 be task 9 
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27D9 EF 
27DA 218C2D 
27DB 



27DD FD7421 
27E0 FD7520 
27E3 3EC3 
27E5 FD771F 
27E8 FDCB03C6 
27EC FDCB0FFE 



27F0 2A252D 
27F3 ED5B192D 
27F7 0603 
27F9 F3 
27FA 4E 
27FB 1A 
27FC 77 
27FD 79 
12 



27FE 
27FF 2C 
2800 1C 
2801 
2803 



10F7 
FB 



2804 C31D24 



2807 FDCB0346 
280B CA2524 
280E FDCB0F7E 
2812 FDCB0FBE 
2816 CA2924 
2819 C31924 



281C FDCB0346 

2820 CA2524 

2823 FDCB0F7E 

2827 FDCB0FFE 

282B C22124 

282E C31524 



2831 
2835 
2838 
283B 
283B 
283D 
283E 
2841 
2845 
2849 



FDCB0346 

CA2524 

11142D 

3E53 

EF 

C24624 

FDCB0386 

FDCB0FBE 

018900 



11210 

11220 RX06 

11230 ; 

11240 ; 

11250 ; 

11260 ; 

11270 

11280 

11290 

11300 

11310 

11320 

11330 ; 

11340 ; 

11350 ; 

11360 

11370 

11380 

11390 

11400 SWAP 

11410 

11420 

11430 

11440 

11450 

11460 

11470 

11480 

11490 

11500 ; 

11510 ; 

11520 ; 

11530 PAUSE 

11540 

11550 

11560 

11570 

11580 

11590 ; 

11600 ; 

11610 ; 

11620 RESUME 

11630 

11640 

11650 

11660 

11670 

11680 ; 

11690 ; 

11700 ; 

11710 SPLOFF 

11720 

11730 

11740 

00067 

00068 

11750 

11760 

11770 

11780 



RST 40 

LD HL,GETBLK 

EQU $-2 



;Now update device hook 



Interface to KITSK - No need to DI/EI 
As KITSK not used by interrupts 

LD (IY+KITSK@+2) S H ;Move in device 

LD (IY+KITSK(a+l) s L ; vector and a 

LD A,0C3H ; JP opcode 

LD (IY+KITSK(3),A 

SET s (IY+ , D'- , A') ;Turn on device flag bit 

SET 7 9 (IY+'P , -'A') ;Show not paused 

Filter the specified device driver 



LD 

LD 

LD 

DI 

LD 

LD 

LD 

LD 

LD 

INC 

INC 

DJNZ 

EI 

JP 



HL 9 (M0DDVR) 

DE 9 (S0DCB) 

B,3 

C,(HL) 

A,(DE) 

(HL) 9 A 

A 9 C 

(DE) 9 A 

L 

E 

SWAP 

SPLACT 



;Ptr to device DCB 
;Ptr to spooler DCB 

; Interrupts off during swap 
;Swap first 3 bytes 

; of the DCBs 



;Bump DCB pointers 
;Loop 3 times 
;Set complete 



Routine to PAUSE despooling 



BIT s (IY+ , D , -'A') 

JP Z 9 SPL0FM 

BIT 7 9 (IY+'P'- i A') 

RES 7 S (IY+ , P , - , A') 

JP Z s SPL0PM 

JP PAUSED 



Spool resident? 

Quit if not 

Ck first if active 

then turn off 
Quit if already paused 



Routine to RESUME despooling 

BIT , ( I Y+ ' D ' - ' A ' ) ;Ck first if resident 

JP Z,SPL0FM ;Quit if not 

BIT 7 9 (IY+'P , - , A') ;See if despooling now 

SET 7 S (IY+'P'- , A') 

JP NZ 9 SPL0NM ;Can't resume if so 

JP RESUMD 

Routine to turn off the spooler 

BIT 9 (IY+ , D , -'A') ;Test if off already 

JP Z 9 SPL0FM ;Go if off now 

LD DE, SPOOLS ;Find out where spooler 

(a@GTM0D 

LD A s 83 

RST 40 

JP NZ,N0FIND ;Quit if not there 

RES s (IY+'D'- , A') ; else turn off 

RES 7,(IY+ , P'-'A') ;Show paused also 

LD BC,GETBLK0-DVRABGN 
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284C 09 


11790 


ADD 


HL.BC 


;Point to KITSK@ swap 


284D 7E 


11800 


LD 


A,(HL) 




284E FD771F 


11810 


LD 


(IY+KITSK(3),A 


;Restuff KIHOOK 


2851 23 


11820 


INC 


HL 




2852 7E 


11830 


LD 


A S (HL) 




2853 FD7520 


11840 


LD 


(IY+KITSK@+1) 9 L 




2856 23 


11850 


INC 


HL 




2857 7E 


11860 


LD 


A 9 (HL) 




2858 FD7721 


11870 


LD 


(IY+KITSK(3+2) 9 A 




285B 0E09 


11880 


LD 


C 9 9 


;Remove task 9 from 


285D 


11890 


@(9RMTSK 




; the task processor 


285D 3E1E 


00069 


LD 


A s 30 




285F EF 


00070 
11900 ; 


RST 


40 






11910 ; 


Attempt 


to reclaim memory space 




11920 ; 








2860 210000 


11930 


LD 


HL 9 


;Get current HIGH$ 


2863 45 


11940 


LD 


B 5 L 




2864 


11950 


@@HIGH$ 






2864 3E64 


00071 


LD 


A 9 100 




2866 EF 


00072 


RST 


40 




2867 DD5E02 


11960 


LD 


E 9 (IX+2) 


;Get HIGH$ after spool 


286A DD5603 


11970 


LD 


D 9 (IX+3) 


; was installed 


286D AF 


11980 


XOR 


A 




286E ED52 


11990 


SBC 


HL 9 DE 


;Is it the same now? 


2870 DD5E00 


12000 


LD 


E.UX+0) 


;Get HIGH before res 


2873 DD7700 


12010 


LD 


(IX+0),A 


; & clear data 


2876 DD5601 


12020 


LD 


D,(IX+1) 




2879 DD7701 


12030 


LD 


(IX+D.A 




287C 21552A 


12040 


LD 


HL 9 N0MEM$ 


; Ini t "Can't reclaim. . . 


287F 2007 


12050 


JR 


NZ 5 L0GMEM 


;Go if HIGH$ different 


2881 EB 


12060 


EX 


DE 9 HL 


; else release memory 


2882 


12070 


@@HIGH$ 




; by resetting HIGH$ 


2882 3E64 


00073 


LD 


A 9 100 




2884 EF 


00074 


RST 


40 




2885 21702A 


12080 


LD 


HL 9 G0TMEM$ 


; "Memory released 


2888 


12090 LOGMEM 


(30LOGOT 








00075 


IFEQ 


00H 5 1 






00076 


LD 


HL S 






00077 


ENDIF 






2888 3E0C 


00078 


LD 


A 9 12 




288A EF 


00079 
12100 ; 


RST 


40 






12110 ; 


De-use 


any RAM bank 






12120 ; 








288B DD7E0A 


12130 


LD 


A.UX+10) 


;P/u bank used 


288E E607 


12140 


AND 


7 


;Strip 3-7 


2890 2811 


12150 


JR 


Z,RESDCB 


;Jump if only bank 


2892 4F 


12160 


LD 


C,A 


;Save bank in C 


2893 F630 


12170 


OR 


•0' 


;Convert to ASCII for dsply 


2895 328C2A 


12180 


LD 


(FREBNK$+5) 9 A 


; Stuff in message 


2898 0601 


12190 


LD 


B 9 1 


.Function to reset BUR$ 


289A 


12200 


@@BANK 




;Free the bank 


289A 3E66 


00080 


LD 


A 9 102 




289C EF 


00081 


RST 


40 




289D 21872A 


12210 


LD 


HL 9 FREBNK$ 


;Init"Bank released 


28A0 


12220 


@@LOGOT 








00082 


IFEQ 


00H 9 1 






00083 


LD 


HL, 






00084 


ENDIF 






28A0 3E0C 


00085 


LD 


A,12 
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28A2 EF 



28A3 210000 
28A4 
28 A6 5E 
28A7 23 
28A8 56 



28A9 
28AA 
28AB 
28AC 
28AD 
28AE 
28AF 
28B0 
28B1 
28B2 
28B4 
28B5 
28B7 
28B8 
28BB 
28BE 
28BF 
28C1 
28C2 
28C3 
28C5 
28C6 
28C7 
28C8 
28CA 
28CB 
28CC 
28CD 
28CF 
28 D0 
28 D2 
28 D3 



D5 
1C 
1A 
4F 
1C 
1A 
47 
Dl 
210000 

AF 

ED42 

C8 

DD6E08 

DD6609 

EB 

0603 

F3 

7E 



12 

2C 

1C 

10F8 

2C 

2C 

2C 

3600 

2C 

3600 

FB 

C9 



28D4 FDCB0346 
28D8 CA2524 
28DB DD210000 
28 DD 

28DF DD6E0B 
28E2 DD660C 
28E5 DD4E0A 
28E8 CBB9 
28EA 0600 
28EC F3 
28ED 

28ED 3E66 
28EF EF 
28F0 C5 



12230 

12240 

12250 

12260 RESDCB 

12270 SVDCB 

12280 

12290 

12300 

12310 

12320 

12330 

12340 

12350 

12360 

12370 

12380 

12390 

12400 

12410 

12420 

12430 SVBGN 

12440 

12450 

12460 

12470 

12480 

12490 

12500 

12510 

12520 SWAP1 

12530 

12540 

12550 

12560 

12570 

12580 

12590 

12600 

12610 

12620 

12630 

12640 

12650 

12660 ; 

12670 ; 

12680 ; 

12690 CLEAR 

12700 

12710 

12720 HIPARM 

12730 

12740 

12750 

12760 

12770 

12780 

12790 

00087 



RST 40 
RESET the device 



LD 

EQU 

LD 

INC 

LD 



HL,$-$ 

$-2 

E,(HL) 

HL 

D,(HL) 



Point to SPOOL DCB ptr 
& get the DCB ptr 
into reg DE 



Check if DCB is inactive [user RESET *PR] 



PUSH 

INC 

LD 

LD 

INC 

LD 

LD 

POP 

LD 

EQU 

XOR 

SBC 

RET 

LD 

LD 

EX 

LD 

DI 

LD 

LD 

LD 

INC 

INC 

DJNZ 

INC 

INC 

INC 

LD 

INC 

LD 

EI 

RET 



DE 

E 

A,(DE) 

C,A 

E 

A,(DE) 

B,A 

DE 

HL, $-$ 

$-2 

A 

HL S BC 

Z 

L,(IX+8) 

H,(IX+9) 

DE,HL 

B,3 

A,(HL) 

(HL),0 

(DE) S A 

L 

E 

SWAP1 

L 

L 

L 

(HL),0 

L 

(HL),0 



;Save DCB pointer 

;Get DCB vector contents 
; into reg BC 



;Recover DCB pointer 
;P/u start of module 

;If vector points to 
; start of module, 
; we are finished 
;P/u DCB being spooled 

; SPOOL to HL, 
; device to DE 

;Undo the SPOOLer 
; by swapping back the 
; original vector and 
; zeroing the spool DCB 



;Point to name field 
; & wipe it out 



;Done - return 



Routine to CLEAR the SPOOL buffer 



12800 



BIT 

JP 

LD 

EQU 

LD 

LD 

LD 

RES 

LD 

DI 

(a@BANK 

LD 

RST 

PUSH 



0,(IY+'D , - i A 1 ) 

Z,SPL0FM 

IX,$-$ 

$-2 

L,(IX+11) 

H,(IX+12) 

C,(IX+10) 

7,C 

B,0 



A,102 

40 

BC 



;Spool active? 
;Go if not active 
;Parms in hi mem 

;P/u SPLFCB pointer 

;P/u RAM bank used 
;Set on xfer to bank 
;Function to load bank 
interrupts off now 



;Save old bank 
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28F1 E5 


12810 


PUSH 


HL 


;Xfer FCB pointer 


28F2 DDE1 


12820 


POP 


IX 


; to IX 


28F4 DD6E24 


12830 


LD 


L,(IX+24H) 


;Get LINK map pointer 


28F7 DD6625 


12840 


LD 


H,(IX+25H) 




28FA E5 


12850 


PUSH 


HL 




28FB 3600 


12860 CLEAR1 LD 


(HL) s 


;Reset every link 


28FD 23 


12870 


INC 


HL 




28FE 3600 


12880 


LD 


(HL),0 




2900 23 


12890 


INC 


HL 


; Bypass page pointer 


2901 23 


12900 


INC 


HL 




2902 7E 


12910 


LD 


A,(HL) 


;Ck for TABEND 


2903 23 


12920 


INC 


HL 




2904 3C 


12930 


INC 


A 


;End if it was X'FF' 


2905 20F4 


12940 


JR 


NZ s CLEARl 




2907 El 


12950 


POP 


HL 


;Point to LINK start 


2908 DD7526 


12960 


LD 


(IX+26H),L 


;Reset PUTBLK$ 


290B DD7427 


12970 


LD 


(IX+27H) S H 




290E DD7528 


12980 


LD 


(IX+28H),L 


;Reset GETBLK$ 


2911 DD7429 


12990 


LD 


(IX+29H),H 




2914 7C 


13000 


LD 


A,H 


;Show 1st LINK position 


2915 75 


13010 


LD 


(HL) S L 


; is the "last" one by 


2916 23 


13020 


INC 


HL 


; loading it to point 


2917 77 


13030 


LD 


(HL) 9 A 


; to itself 


2918 23 


13040 


INC 


HL 


;P/u the page pointer 


2919 46 


13050 


LD 


B,(HL) 




291A DD7021 


13060 


LD 


(IX+21H),B 


; Stuff PUTNXTS 


291D DD362000 13070 


LD 


(IX+20H),0 




2921 DD7023 


13080 


LD 


(IX+23H) 9 B 


; Stuff GETNXTS 


2924 DD362200 


13090 


LD 


(IX+22H),0 




2928 CI 


13100 


POP 


BC 


;Reload previous bank 


2929 


13110 


@@BANK 




2929 3E66 


00089 


LD 


A 9 102 




292B EF 


00090 


RST 


40 




292C FB 


13120 


EI 






292D C31124 


13130 
13140 . 


JP 


CLEARD 






13150 


Reloc 


:ate internal references in driver 




13160 . 


HL = 


relocation tabl< 






13170 


DE = 


pointer to last 


byte of module 




13180 


BC = 


pointer to last 


RAM byte to use 




13190 








2930 DDE5 


13200 F 


*ELO PUSH 


IX 


;Save index reg 


2932 E5 


13210 


PUSH 


HL 


;Xfer rel tab pointer 


2933 DDE1 


13220 


POP 


IX 




2935 210000 


13230 i 


>VEND LD 


HL s $-$ 


;P/u last byte used 


2938 22112D 


13240 


LD 


(DVRABGN+2), 


HL ; & stuff into module 


293B 60 


13250 


LD 


H S B 


;Xfer last byte to 


293C 69 


13260 


LD 


L,C 


; use to HL 


293D AF 


13270 


XOR 


A 


;Clear carry flag 


293E ED52 


13280 


SBC 


HL,DE 




2940 44 


13290 


LD 


B 5 H 


;Move to BC 


2941 4D 


13300 


LD 


C,L 




2942 DD7E00 


13310 


LD 


A, (IX) 


;Get table length 


2945 DD23 


13320 


INC 


IX 




2947 DD6E00 


13330 1 


*LOOP LD 


L,(IX) 


;Get address to change 


294A DD6601 


13340 


LD 


H,(IX+1) 




294D 5E 


13350 


LD 


E,(HL) 


;P/U address 


294E 23 


13360 


INC 


HL 




294F 56 


13370 


LD 


D,(HL) 




2950 EB 


13380 


EX 


DE S HL 


;0ffset it 


2951 09 


13390 


ADD 


HL,BC 
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2952 
2953 
2954 
2955 
2956 
2958 
295A 
295B 
295D 
295F 

2960 



297D 



2992 



29A8 



29BF 



29D5 



29EF 



2A11 



2A3A 



2A55 



2A70 



E3 

72 

2B 

73 

DD23 

DD23 

3D 

20EA 

DDE1 

C9 

43 

61 6E 27 

61 74 65 

4C 20 69 

6F 72 79 

53 

50 4F 4F 

66 65 72 

72 65 64 
44 

65 73 70 

67 20 6E 
75 73 65 
44 

65 73 70 
67 20 6E 

73 75 6D 
53 

70 6F 6F 

73 20 6E 

74 69 76 
53 

70 6F 6F 

73 20 61 
79 20 61 
0D 

53 

70 6F 6F 
6C 72 65 
63 74 69 

74 20 70 
0D 

43 

61 6E 6E 

69 6E 73 
77 69 74 
65 72 65 
61 6D 65 
53 

70 6F 6F 
73 20 6E 
65 72 61 
6C 0D 

43 

61 6E 27 

6C 61 69 

6F 72 79 

65 0D 

4D 

65 6D 6F 



13400 

13410 

13420 

13430 

13440 

13450 

13460 

13470 

13480 

13490 

13500 

13510 

74 20 

20 53 

6E 20 

0D 

13520 

4C 20 

20 63 

0D 

13530 

6F 6F 

6F 77 

64 0D 
13540 
6F 6F 
6F 77 

65 64 
13550 
6C 65 
6F 74 
65 0D 
13560 
6C 65 
6C 72 
63 74 



EX 

LD 

DEC 

LD 

INC 

INC 

DEC 

JR 

POP 

RET 

NOFIND$ DB 
6C 6F 63 
50 4F 4F 
6D 65 6D 

CLEARD$ DB 
62 75 66 
6C 65 61 

PAUSED$ DB 
6C 69 6E 
20 70 61 

RESUMD$ DB 
6C 69 6E 
20 72 65 
0D 

SPLOFM$ DB 
72 20 69 
20 61 63 

SPLONM$ DB 
72 20 69 
65 61 64 
69 76 65 



13570 SPLOPM$ DB 
6C 65 72 20 61 
61 64 79 20 61 
76 65 20 62 75 
61 75 73 65 64 



13580 
6F 74 
74 61 
68 20 
64 20 
74 65 
13590 
6C 65 
6F 77 
74 69 



PRMBGM$ DB 
20 72 65 
6C 6C 20 
61 6C 74 
70 61 72 
72 73 0D 
SPLACT$ DB 
72 20 69 
20 6F 70 
6F 6E 61 



13600 NOMEM$ DB 
74 20 72 65 63 
6D 20 6D 65 6D 
20 73 70 61 63 

13610 GOTMEM$ DB 
72 79 20 73 70 
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DE S HL 

(HL),D ;And put back 

HL 

(HL),E 

IX 

IX 

A 

NZ,RLOOP 

IX 



;Loop ti 11 done 



'Can''t locate SPOOL in memory' ,CR 



SPOOL buffer cleared', CR 



'Despooling now paused', CR 



'Despooling now resumed', CR 



Spooler is not active', CR 



'Spooler is already active', CR 



Spooler already active but paused', CR 



Cannot reinstall with altered parameters' ,CR 



Spooler is now operational' ,CR 



'Can''t reclaim memory space', CR 



Memory space reclaimed' ,CR 
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2A87 
2A97 

2AAD 
2AC7 



0020 
2B02 

2B05 

2B09 



61 63 
61 69 
42 

61 6E 
6C 65 
52 

65 71 
20 62 
20 75 
4E 

6F 20 
20 73 
76 61 
0D 
44 

65 76 
69 76 
6F 6D 
65 0D 

58 

58 2F 
53 

50 4C 
2A 
50 52 



65 20 72 
6D 65 64 

13620 
6B 20 78 
61 73 65 

13630 
75 65 73 
61 6E 6B 
73 65 0D 

13640 
6D 65 6D 
70 61 63 
69 6C 61 



65 63 6C 
0D 

FREBNKS DB 
20 72 65 

64 0D 
INUSE$ DB 
74 65 64 
20 69 6E 

CANTS DB 
6F 72 79 

65 20 61 
62 6C 65 



13650 BADDCB$ DB 

69 63 65 20 64 72 
65 72 20 69 6E 63 

70 61 74 69 62 6C 

13660 SPLDCB DS 
13670 DSKSPC DB 



03 
03 



13680 
13690 



2B0D D2 
0080 



0020 
0010 
2B0E 

2B13 
2B15 

2B1B 
2B1D 

2B22 
2B24 

2B27 
2B29 

2B2F 
2B31 

2B38 
2B3A 

2B42 
2B44 

2B4B 
2B4D 

2C00 



93 

4D 45 

8D26 

94 

44 49 

1B26 

43 

4F 46 

1925 

41 

4E 00 

1925 

94 

42 41 
B625 
55 

50 41 

2725 

56 

52 45 

2025 

55 

43 4C 
2E25 



SPLEXT DB 
PR$ DB 

PRMTBL$ DB 
EQU 
EQU 
EQU 
EQU 
DB 

DW 
DB 



VAL 
SW 
STR 
SGL 



13700 

13710 

13720 

13730 

13740 

13750 

13760 
4D 00 

13770 

13780 
53 4B 00 

13790 

13800 
46 00 

13810 

13820 

13830 

13840 
4E 4B 00 

13850 

13860 
55 53 45 00 

13870 

13880 
53 55 4D 45 00 

13890 

13900 
45 41 52 00 

13910 

13920 

13930 ; 

13940 

13950 BUFFER 



DB 

DW 
DB 

DW 
DB 

DW 
DB 

DW 
DB 

DW 
DB 



NOP 

ORG 
DS 



'Bank x released' ,CR 
'Requested bank in use',CR 

'No memory space avai lable' ,CR 

'Device driver incompatible' ,CR 

32 
'XX/' 

'SPL',3 

'*PR',ETX 



'R'!80H 

80H 

40H 

20H 

10H 

VAL!SGL!3 S 'MEM',0 



MPARM+1 
VAL!SGL!4 S 'DISK' S 

DPARM+1 
SWH/OFF'J 

OPARM+1 
SW!1,'N',0 

OPARM+1 
VAL!SGL!4 S 'BANK\0 

BPARM+1 
SW!SGL!5 S 'PAUSE' 9 

PPARM+1 
SW!SGL!6 9 'RESUME' S 

RPARM+1 
SW!SGL!5 S 'CLEAR' S 

CPARM+1 



$<-8+l<8 
256 



6.x table format 
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13970 ; 








2D00 


13980 *GET 


LBSP00LB:3 






13990 ;LBSPOOLB/ASM 


- Actual spool 


driver 




14000 ; 










14010 ; 










14020 ; 


This 


is the spool/des 


pool driver - bank 




14030 ; 








2D00 CDC32D 


14040 FIX1 


CALL 


SPLR2 


;Code mods to module-A 


2D01 


14050 RX16 


EQU 


$-2 


; if strictly bank-0 


2D03 AF 


14060 


XOR 


A 




2D04 C9 


14070 


RET 






2D05 CD732E 


14080 


CALL 


DSPLR1 




2D06 


14090 RX17 


EQU 


$-2 




2D08 AF 


14100 


XOR 


A 




2D09 C9 


14110 


RET 






2D0A CDBA2E 


14120 


CALL 


GETBLK2 




2D0B 


14130 RX18 


EQU 


$-2 




2D0D AF 


14140 


XOR 


A 




2D0E C9 


14150 
14160 ; 


RET 






2D0F 


14170 DVRABGr 


i EQU 


$ 




2D0F 1819 


14180 


JR 


DVREPT 


;Branch around linkage 


2D11 0000 


14190 


DW 


$-$ 


;Last byte used 


2D13 05 


14200 


DB 


5 




2D14 53 


14210 SPOOLS 


DB 


'SPOOL' 




50 4F 4F 


4C 








2D19 0000 


14220 S0DCB 


DW 


S 


;Space for DCB pointers 


0000 










2D1D 0000 


14230 PRMSAV 


DW 





;HIGH$ before space alloc 


2D1F 0E2D 


14240 


DW 


DVRABGN-1 


;HIGH$ after space alloc 


2D21 0000 


14250 


DW 





previous MPARM 


2D23 0000 


14260 


DW 





; Previous DPARM 


2D25 0000 


14270 MODDVR 


DW 





;DCB address of device 


2D27 00 


14280 SPLBNK 


DB 





;Bank of RAM 


2D28 332F 


14290 


DW 


SPLFCB 


;FCB pointer 


2D28 


14300 RX8 
14310 ; 


EQU 


$-2 




2D2A 2830 


14320 DVREPT 


JR 


Z 9 PUTCHAR 


;Go on @PUT 


2D2C 3003 


14330 


JR 


NC 3 CKCTL 


;Go on @CTL 


2D2E 3E00 


14340 


LD 


A s 


;Show nothing on @GET 


2D30 C9 


14350 


RET 






2D31 AF 


14360 CKCTL 


XOR 


A 




2D32 C9 


14370 
14380 ; 


RET 




;Show available on CTL-0 




14390 ; 


Move j 


;tack low if nee 


ded 




14400 ; 








2D33 E5 


14410 STKCTL 


PUSH 


HL 




2D34 210580 


14420 


LD 


HL 9 8005H 




2D37 39 


14430 


ADD 


HL,SP 


;Stack in what bank? 


2D38 El 


14440 


POP 


HL 




2D39 D0 


14450 


RET 


NC 


;0k if stack low 


2D3A F3 


14460 


DI 






2D3B 225A2D 


14470 


LD 


(SVHL),HL 




2D3C 


14480 RX19 


EQU 


$-2 




2D3E El 


14490 


POP 


HL 


;Return address 


2D3F ED73582D 


14500 


LD 


(SAVSTK),SP 


;Save the current stack 


2D41 


14510 RX20 


EQU 


$-2 




2D43 316003 


14520 


LD 


SP,STACK$-20H 


;Force it low 


2D46 E5 


14530 


PUSH 


HL 


;User ret back on 


2D47 21512D 


14540 


LD 


HL,SPOLRET 




2D48 


14550 RX21 


EQU 


$-2 




2D4A E3 


14560 


EX 


(SP),HL 


;Now s ultimate ret 1st, 
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2D4B E5 


14570 


PUSH 


HL 


; and local ret 2nd 


2D4C 2A5A2D 


14580 


LD 


HL,(SVHL) 


;Restore HL 


2D4D 


14590 RX23 


EQU 


$-2 




2D4F FB 


14600 


EI 






2D50 C9 


14610 
14620 ; 
14630 SPOLRET 


RET 






2D51 F3 


14640 


DI 




;Just in case 


2D52 ED7B582D 


14650 


LD 


SP, (SAVSTK) 


;Get the old stack 


2D54 


14660 RX22 


EQU 


$-2 




2D56 FB 


14670 


EI 






2D57 C9 


14680 


RET 






2D58 0000 


14690 SAVSTK 


DW 







2D5A 0000 


14700 SVHL 
14710 ; 


DW 









14720 ; 


Character to PUT - Get 


bank activated 




14730 ; 








2D5C 21B82D 


14740 PUTCHAR 


LD 


HL,SPLR1A 


; Point to transfer addr 


2D5D 


14750 RX01 


EQU 


$-2 




2D5F 59 


14760 


LD 


E,C 


;Xfer char to PUT 


2D60 018000 


14770 


LD 


BC,0<8!0!80H 


;P/u function & bank req 


2D61 


14780 BANKX1 


EQU 


$-2 




2D63 CD332D 


14790 


CALL 


STKCTL 


;Move stack low? 


2D64 


14800 RX24 


EQU 


$-2 




2D66 


14810 


@@BANK 




; & invoke bank transfer 


2D66 3E66 


00091 


LD 


A, 102 




2D68 EF 


00092 


RST 


40 




2D69 C9 


14820 
14830 ; 


RET 








14840 ; 


Task processor despool" 


"ng routine 




14850 ; 








2D6A 6C2D 


14860 DSPLTCB 


DW 


DSPLR 


;Despool task control blk 


2D6A 


14870 RX02 


EQU 


$-2 




2D6C 3A0000 


14880 DSPLR 


LD 


A,($-$) 


;P/u PFLAG$ & ck if 


2D6D 


14890 DFLAG 


EQU 


$-2 


; despooling is active 


2D6F 07 


14900 


RLCA 






2D70 D0 


14910 


RET 


NC 


;Back if not 


2D71 2A192D 


14920 


LD 


HL s (S0DCB) 


;If spooler is inactive 


2D72 


14930 RX08 


EQU 


$-2 


; then don't try to 


2D74 2C 


14940 


INC 


L 


; do any despooling 


2D75 4E 


14950 


LD 


C,(HL) 


;Get DCB vector 


2D76 2C 


14960 


INC 


L 




2D77 46 


14970 


LD 


B,(HL) 


; into BC 


2D78 210F2D 


14980 


LD 


HL 9 DVRABGN 


;P/u spooler start 


2D79 


14990 RX09 


EQU 


$-2 




2D7B AF 


15000 


XOR 


A 




2D7C ED42 


15010 


SBC 


HL S BC 


;If the same, then 


2D7E C8 


15020 


RET 


Z 


; module is not active 


2D7F 21642E 


15030 FIX2UP 


LD 


HL,DSPLR0 


;Point to transfer addr 


2D80 


15040 RX03 


EQU 


$-2 




2D82 018000 


15050 


LD 


BC,0<8!0!80H 


;P/u function & bank req 


2D83 


15060 BANKX2 


EQU 


$-2 




2D85 CD332D 


15070 


UM L.L. 


STKCTL 


;Move stack low? 


2D86 


15080 RX25 


EQU 


$-2 




2D88 


15090 


@@BANK 




; & invoke bank transfer 


2D88 3E66 


00093 


LD 


A,102 




2D8A EF 


00094 


RST 


40 




2D8B C9 


15100 
15110 ; 


RET 








15120 ; 


KI tas^ 


c routine to get 


a disk block 




15130 ; 
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2D8C 21B02E 

2D8D 

2D8F 018000 

2D90 

2D92 CD332D 

2D93 

2D95 

2D95 3E66 

2D97 EF 

2D98 00 



LIBRARY Files 

15140 GETBLK LD 

15150 RX04 EQU 

15160 LD 

15170 BANKX3 EQU 

15180 CALL 

15190 RX26 EQU 

15200 @@BANK 

00095 LD 

00096 RST 
15210 GETBLK0 DB 



SPOOL - LS-DOS 6.2 Page 00020 
;Point to transfer addr 
;P/u function & bank req 
;Move stack low? 
; & invoke bank transfer 



HL.GETBLKl 

$-2 

BC,0<8!0!80H 

$-2 

STKCTL 

$-2 



A, 102 
40 



;Orig @KITSK 



2D9A 15220 DVRAEND EQU 
2D9B 0D 15230 RELTABA DB 
2D9C 6A2D 15240 DW 

D327 DB27 722D 792D 
2DA6 3C2D 15250 DW 

412D 482D 542D 4D2D 
2DB0 642D 15260 DW 

862D 932D 



$-1 

TABALEN 

RX02,RX05,RX06,RX08,RX09 

RX19,RX20 5 RX21,RX22 5 RX23 

RX24,RX25,RX26 



000D 


15270 TABALEN EQU 


$-RELTABA/2 






15280 ; 










15290 ; 








2DB6 


15300 DVRBBG!\ 
15310 ; 


1 EQU 


$ 






15320 ; 


Spool/a 


lespool module 


in bank x 




15330 ; 








2DB6 0000 


15340 S0DCB1 
15350 ; 


DW 









15360 ; 


Spool a 


. character 






15370 ; 








2DB8 E5 


15380 SPLR1A 


PUSH 


HL 


;Save new transfer addr 


2DB9 C5 


15390 


PUSH 


BC 


;Save invocation 


2DBA 4B 


15400 


LD 


C S E 


;Get char to PUT 


2DBB CDC32D 


15410 


CALL 


SPLR2 


;Spool a char 


2DBC 


15420 RX1 


EQU 


$-2 




2DBE CI 


15430 


POP 


BC 




2DBF El 


15440 


POP 


HL 




2DC0 


15450 


@(3BANK 




;Transfer back 


2DC0 3E66 


00097 


LD 


A s 102 




2DC2 EF 


00098 


RST 


40 




2DC3 DD21332F 


15460 SPLR2 


LD 


IX,SPLFCB 




2DC5 


15470 RX2 


EQU 


$-2 




2DC7 DD6E20 


15480 


LD 


L,(IX+20H) 


;P/u next buffer position 


2DCA DD6621 


15490 


LD 


H,(IX+21H) 




2DCD 71 


15500 


LD 


(HL) 9 C 


;Stuff char received 


2DCE F3 


15510 


DI 






2DCF DD3420 


15520 SPLR3 


INC 


(IX+20H) 


;Inc lo order 


2DD2 2807 


15530 


JR 


Z S SPLR5 


;Jump if block ful 1 


2DD4 CD6E2E 


15540 


CALL 


DSPLR1X 


;Output to *PR if avail 


2DD5 


15550 RX3 


EQU 


$-2 




2DD7 FB 


15560 


EI 






2DD8 C3BA2E 


15570 


JP 


GETBLK2 




2DD9 


15580 RX4 


EQU 


$-2 




2DDB DD6E24 


15590 SPLR5 


LD 


L,(IX+24H) 


;P/u pointer to table 


2DDE DD6625 


15600 


LD 


H,(IX+25H) 




2DE1 7E 


15610 SPLR6 


LD 


A,(HL) 


;Find spare pointer field 


2DE2 23 


15620 


INC 


HL 




2DE3 B6 


15630 


OR 


(HL) 




2DE4 2805 


15640 


JR 


Z S SPLR7 


;Jump if spare 


2DE6 23 


15650 


INC 


HL 


; else index to next 


2DE7 23 


15660 


INC 


HL 
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2DE8 
2DE9 
2DEB 
2DEC 
2DED 
2DEE 
2DEF 
2DF0 
2DF1 
2DF2 
2DF4 
2DF6 
2DF7 
2DF8 
2DFA 
2DFB 
2DFC 
2DFE 
2DFF 
2E01 
2E03 



2E05 
2E06 
2E07 
2E08 
2E09 
2E0A 
2E0B 
2E0E 
2E11 
2E14 
2E17 
2E1A 
2E1B 
2E1C 
2E1D 
2E1E 
2E21 
2E24 
2E25 

2E26 
2E26 
2E27 
2E28 
c n Cr\ 
2E2B 
2E2D 
2E2E 
2E2E 
2E30 
2E31 

2E34 
2E37 
2E3A 
2E3B 
2E3C 



23 

18F6 

2B 

E5 

23 

23 

46 

23 

7E 

FEFF 

200B 

CD6E2E 



CDBA2E 

F3 

18DA 
CB7F 
2021 



El 

E5 

75 

7C 

23 

77 

DD7021 

DD6E26 

DD6627 

DD752A 

DD742B 

CI 

71 

23 

70 

DD7126 

DD7027 

FB 

C9 



FB 

48 

E60F 

47 

DDE5 

Dl 

3E42 

EF 

00 

00 00 

DD4E26 

DD4627 

El 

E5 

71 



15670 

15680 

15690 SPLR7 

15700 

15710 

15720 

15730 

15740 

15750 

15760 

15770 

15780 

15790 SPLR8 

15800 RX5 

15810 

15820 SPLR9 

15830 RX6 

15840 

15850 

15860 SPLR10 

15870 

15880 ; 

15890 ; 

15900 ; 

15910 

15920 

15930 

15940 

15950 

15960 

15970 

15980 

15990 

16000 

16010 

16020 

16030 

16040 

16050 

16060 

16070 

16080 

16090 

16100 ; 

16110 SPLR12 

16120 

16130 

16140 

16150 

16160 

16170 

16180 

00099 

00100 

16190 

16200 
16210 
16220 
16230 
16240 



INC 

JR 

DEC 

PUSH 

INC 

INC 

LD 

INC 

LD 

CP 

JR 

POP 

CALL 

EQU 

EI 

CALL 

EQU 

DI 

JR 

BIT 

JR 



HL 

SPLR6 

HL 

HL 

HL 

HL 

B S (HL) 

HL 

A 9 (HL) 

0FFH 

NZ 9 SPLR10 

HL 

DSPLR1X 

$-2 

GETBLK2 
$-2 

SPLR5 

7 9 A 

NZ S SPLR12 



;Save pointer 

;P/u memory segment byte 
; or To-order recno 
;End of table? 

;Jump if still space 

;Output to *PR if avai 1 

;Disk rec to bring back? 



;Test mem or disk block 
;Jump if disk pointer 



Found a spare memory pointer 



POP 

PUSH 

LD 

LD 

INC 

LD 

LD 

LD 

LD 

LD 

LD 

POP 

LD 

INC 

LD 

LD 

LD 

EI 

RET 

EQU 

EI 

LD 

AND 

LD 

PUSH 

POP 

@@POSN 

LD 

RST 

DB 

LD 

LD 

POP 

PUSH 

LD 



HL 

HL 

(HL) S L 

A 9 H 

HL 

(HL) 9 A 

(IX+21H) S B 

L 9 (IX+26H) 

H S (IX+27H) 

(IX+2AH) S L 

(IX+2BH) S H 

BC 

(HL),C 

HL 

(HL) 9 B 

(IX+26H) 9 C 

(IX+27H) 9 B 



C 9 B 

0FH 

B 9 A 

IX 

DE 

A 9 66 
40 



C, (IX+26H) 

B,(IX+27H) 

HL 

HL 

(HL) 9 C 



;Rcvr ptr to start 
; of spare table field 
;Place address of table 
; position into table 



; Stuff hi -order free mem 
;P/u current table ptr 

;Stuff last block pointer 

;Rcvr ptr to field start 
;Set up a link to this 
; block in last block 

;Reset current block ptr 



;Lo order recno 
;Hi-order recno 

;Position file to recno 

;FCB to DE 

;Posn to desired record 



;Reserved 

;P/u current table ptr 

;P/u ptr to this di sk 
;Block table field 
;Tel 1 this di sk block 



Page 418 



The Source 


LIBRARY Fi 


les 


SPOOL - LS-DOS 6 


2 Page 00022 


2E3D 23 


16250 




INC 


HL 


field which memory 


2E3E 70 


16260 




LD 


(HL),B 


block it is storing 


2E3F CI 


16270 




POP 


BC 


;Exchange link in last 


2E40 DD6E2A 


16280 




LD 


L,(IX+2AH) 


block pointer with new 


2E43 DD662B 


16290 




LD 


H,(IX+2BH) 


link since this memory 


2E46 71 


16300 




LD 


(HL),C 


. block is now on disk 


2E47 23 


16310 




INC 


HL 




2E48 70 


16320 




LD 


(HL),B 




2E49 DD712A 


16330 




LD 


(IX+2AH) S C 




2E4C OD702B 


16340 




LD 


(IX+2BH),B 




2E4F 010001 


16350 




LD 


BC,256 


Block move the page 


2E52 69 


16360 




LD 


L,C 


; into the low memory 


2E53 DD6621 


16370 




LD 


H S (IX+21H) 


buuffer fo disk I/O 


2E56 D5 


16380 




PUSH 


DE 


;Save fcb pointer 


2E57 110023 


16390 




LD 


DE,LOWBUF$ 




2E5A EDB0 


16400 




LDIR 






2E5C Dl 


16410 




POP 


DE 




2E5D 


16420 




G0WRITE 




;Write out the block 


2E5D 3E4B 


00101 




LD 


A, 75 




2E5F EF 


00102 




RST 


40 




2E60 00 


16430 




DB 


0,0,0 


.Reserved 


00 00 












2E63 C9 


16440 
16450 


, 


RET 






2E64 E5 


16460 


DSPLR0 


PUSH 


HL 


Save new transfer addr 


2E65 C5 


16470 




PUSH 


BC 


;Save invocation 


2E66 CD732E 


16480 




CALL 


DSPLR1 


.Send device a char 


2E67 


16490 RX7 


EQU 


$-2 




2E69 CI 


16500 




POP 


BC 




2E6A El 


16510 




POP 


HL 




2E6B 


16520 




@@BANK 




.Transfer back 


2E6B 3E66 


00103 




LD 


A, 102 




2E6D EF 


00104 
16530 


, 


RST 


40 






16540 


, 


Routine 


will output a char to PR if available 




16550 


s 








2E6E 3A0000 


16560 


DSPLR1X 


LD 


A,($-$) 


P/u PFLAG$ & ck if 


2E6F 


16570 


DFLAG1 


EQU 


$-2 


, despooling is active 


2E71 07 


16580 




RLCA 






2E72 D0 


16590 




RET 


NC 


;Back if not active 


2E73 010004 


16600 


DSPLR1 


LD 


BC,4<8!0 


Init to CTL-0 


2E76 DDE5 


16610 




PUSH 


IX 


.Save current DCB vector 


2E78 DD2AB62D 16620 PUDCB 


LD 


IX,(S0DCB1) 


Point to printer 


2E7A 


16630 RX9 


EQU 


$-2 




2E7C 


16640 




(a@CHNIO 




Ck *PR status 


2E7C 3E14 


00105 




LD 


A, 20 




2E7E EF 


00106 




RST 


40 




2E7F DDE1 


16650 




POP 


IX 




2E81 C0 


16660 




RET 


NZ 


Ret if not avail 


2E82 DD21332F 


16670 PUFCB 


LD 


IX S SPLFCB 




2E84 


16680 RX10 


EQU 


$-2 




2E86 DD7E23 


16690 




LD 


A,(IX+23H) 


See if char in buffer 


2E89 B7 


16700 




OR 


A 


to send to the printer 


2E8A C8 


16710 




RET 


Z 


Ret if none 


2E8B 67 


16720 




LD 


H,A ; 


None also if GET pointer 


2E8C DDBE21 


16730 




CP 


(IX+21H) ; 


is same as PUT pointer 


2E8F DD7E22 


16740 




LD 


A,(IX+22H) 




2E92 2004 


16750 




JR 


NZ S DSPLR2 




2E94 DDBE20 


16760 




CP 


(IX+20H) 




2E97 C8 


16770 




RET 


z 


In & out the same 


2E98 6F 


16780 


DSPLR2 


LD 


L j n i 


P/u the character 
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2E99 4E 


16790 


LD 


C 9 (HL) 


;Xfer to output reg 


2E9A DDE5 


16800 


PUSH 


IX 


;Save this deb vector 


2E9C 0602 


16810 


LD 


B,2 


;Set chain for PUT 


2E9E DD2AB62D 


16820 PUDCB1 


LD 


IX,(S0DCB1) 


;Pt to spooled DCB 


2EA0 


16830 RX11 


EQU 


$-2 




2EA2 


16840 


(3@CHNI0 




;Output the char 


2EA2 3E14 


00107 


LD 


A, 20 




2EA4 EF 


00108 


RST 


40 




2EA5 DDE1 


16850 


POP 


IX 


;Rcvr deb 


2EA7 DD3422 


16860 


INC 


(IX+22H) 


;Bump PUT (out) ptr 


2EAA C0 


16870 


RET 


NZ 


;Ret if still more in buf 


2EAB DD362300 


16880 


LD 


(IX+23H),0 


;Block empty, turn off 


2EAF C9 


16890 
16900 ; 


RET 




; hi-order & exit 




16910 ; 


Routine 


to see if we can grab a block back from 




16920 ; 


the dis 


k file & insert 


into a spare memory block 




16930 ; 








2EB0 E5 


16940 GETBLK1 


PUSH 


HL 


;Save new transfer addr 


2EB1 C5 


16950 


PUSH 


BC 


;Save invocation 


2EB2 CDBA2E 


16960 


CALL 


GETBLK2 


;Spool a char 


2EB3 


16970 RX12 


EQU 


$-2 




2EB5 CI 


16980 


POP 


BC 




2EB6 El 


16990 


POP 


HL 




2EB7 


17000 


G^BANK 




;Transfer back 


2EB7 3E66 


00109 


LD 


A s 102 




2EB9 EF 


00110 


RST 


40 




2EBA F5 


17010 GETBLK2 


PUSH 


AF 




2EBB DDES 


17020 


PUSH 


IX 


;Save in case DSPLRl 


2EBD 3A562F 


17030 GETBLK3 LD 


A 9 (SPLFCB+23H) 


;Jump if block being 


2EBE 


17040 RX13 


EQU 


$-2 




2EC0 B7 


17050 


OR 


A 


; printed is not empty 


2EC1 202D 


17060 
17070 ; 


JR 


NZ S GETBLK6 






17080 ; 


The bio 


ck' s been despoc 


led. Get 1 from D,M? 




17090 ; 








2EC3 E5 


17100 


PUSH 


HL 




2EC4 D5 


17110 


PUSH 


DE 




2EC5 C5 


17120 


PUSH 


BC 




2EC6 DD21332F 


17130 GETBLK4 LD 


IX 9 SPLFCB 




2EC8 


17140 RX14 


EQU 


$-2 




2ECA DD6E28 


17150 


LD 


L S (IX+28H) 


;P/u pointer of block 


2ECD DD6629 


17160 


LD 


H S (IX+29H) 


; being printed 


2ED0 E5 


17170 


PUSH 


HL 




2ED1 4E 


17180 


LD 


C S (HL) 


;Point to POSN or hi -mem 


2ED2 23 


17190 


INC 


HL 


; byte of field this 


2ED3 46 


17200 


LD 


B S (HL) 


; field points to 


2ED4 210200 


17210 


LD 


HL S 2 


;P/u the POSN or hi-order 


2ED7 09 


17220 


ADD 


HL 9 BC 




2ED8 7E 


17230 


LD 


A S (HL) 




2ED9 23 


17240 


INC 


HL 




2EDA CB7E 


17250 


BIT 


7,(HL) 


;Jump if it is pointing 


2EDC 201B 


17260 


JR 


NZ S GETBLK7 


; to a disk block 


2EDE DD7723 


17270 


LD 


(IX+23H),A 


;Reset hi order of where 


2EE1 El 


17280 


POP 


HL 


; next block coming from 


2EE2 3600 


17290 


LD 


(HL) 9 


;Show that this block 


2EE4 23 


17300 


INC 


HL 


; is spare 


2EE5 3600 


17310 


LD 


(HL) s 




2EE7 DD7128 


17320 


LD 


(IX+28H),C 


;Set the next block 


2EEA DD7029 


17330 


LD 


(IX+29H) S B 


; to be printed 


2EED CI 


17340 GETBLK5 


POP 


BC 




2EEE Dl 


17350 


POP 


DE 
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2EEF El 
2EF0 
2EF0 F3 
2EF1 CD6E2E 
2EF2 
2EF4 FB 
2EF5 DDE1 
2EF7 Fl 
2EF8 C9 



2EF9 
2EFA 
2EFB 
2EFD 
2EFE 
2F00 
2F01 
2F01 
2F03 
2F04 

2F07 
2F08 
2F09 
2F0A 
2F0B 
2F0B 
2F0D 
2F0E 

2F11 
2F14 
2F15 
2F16 
2F19 
2F1B 
2F1C 
2F1D 
2F1E 
2F1F 
2F20 
2F21 
2F22 
2F24 
2F25 
2F26 
2F28 
2F29 
2F2A 
2F2B 
2F2C 
2F2D 
2F2E 
2F31 



0020 



4F 

7E 

E60F 

47 

DDE5 

Dl 

3E42 

EF 

00 

00 00 

El 

E5 

23 

23 

3E43 

EF 

00 

00 00 

010001 

56 

59 

210023 

EDB0 

El 

E5 

7E 

23 

66 

6F 

4E 

3600 

23 

46 

3600 

El 

71 

23 

70 

23 

46 

DD7023 

18BA 



17360 POP HL 

17370 GETBLK6 EQU $ 

17380 DI 

17390 CALL DSPLR1X 

17400 RX15 EQU $-2 

17410 EI 

17420 POP IX 

17430 POP AF 

17440 RET 

17450 ; 

17460 ; 

17470 ; 

17480 6ETBLK7 LD 



Check if we can despool 
a character whi le 
we are in here 



17490 
17500 
17510 
17520 
17530 
17540 
00111 
00112 
17550 

17560 
17570 
17580 
17590 
17600 
00113 
00114 
17610 

17620 

17630 

17640 

17650 

17660 

17670 

17680 

17690 

17700 

17710 

17720 

17730 

17740 

17750 

17760 

17770 

17780 

17790 

17800 

17810 

17820 

17830 

17840 

17850 

17860 ; 

17870 ; 

17880 ; 

17890 SPLFCB 

17900 ; 



Next block to print is on disk, get it 

;Set up position 



LD 

AND 

LD 

PUSH 

POP 

(a@POSN 

LD 

RST 

DB 

POP 

PUSH 

INC 

INC 

(SPREAD 

LD 

RST 

DB 

LD 

LD 

LD 

LD 

LDIR 

POP 

PUSH 

LD 

INC 

LD 

LD 

LD 

LD 

INC 

LD 

LD 

POP 

LD 

INC 

LD 

INC 

LD 

LD 

JR 



C,A 

A S (HL) 

0FH 

B,A 

IX 

DE 

A, 66 

40 

0,0,0 

HL 
HL 
HL 
HL 

A, 67 
40 



BC S 256 
D,(HL) 
E,C 

hulowbuf: 

HL 

HL 

A S (HL) 

HL 

H,(HL) 

L,A 

C S (HL) 

(HL)J 

HL 

B,(HL) 

(HL) 9 

HL 

(HL),C 

HL 

(HL) 9 B 

HL 

B 9 (HL) 

(IX+23H),I 

GETBLK5 



;Set FCB & position 
; the spool f i le 



;Reserved 

;Rcvr table ptr of 
; block just finished 

;P/u its buffer location 
;Read block from file 



;Reserved 

;Block move from the 
; low memory buffer 
; to RAM page 



;Tbl ptr of block fin'd 

;P/u field addrress of 
; the next table field 
; that gets printed 

;P/u field address of the 
; block after that to 
; print & show this one 
; as empty (this was the 
; disk one just vacated) 

;Reset current printing 
; block & point to 
: new next block 



;Show where new printing 
; block is & exit 



File control block area for spool file 
DS 32 
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0002 



0002 



0002 



0002 



0002 



2F5D 
2F5E 
2F5F 
2F60 

2F66 

2F76 

2F84 

0015 



2F8A 
2400 



15 

5D2D 

802 D 

BC2D 

C52D 

7A2E 

842E 

012D 

062D 



17910 
17920 
17930 
17940 
17950 
17960 
17970 
17980 
17990 
18000 
18010 
18020 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 
18110 
18120 
18130 
18140 
18150 
18160 
18170 
18180 
18190 
18200 
18210 
18220 
18230 
18240 
18250 
18260 
18270 
18280 
18290 
18300 
18310 
18320 
18330 
18340 
18350 
18360 
18370 

8D2D 

18380 

D52D D92D 
18390 

A02E B32E 
18400 

0B2D 

18410 
18420 
00140 
00150 
00160 



PUTNXTS DS 



GETNXTS DS 



Pointer to the memory location where the next 
character received from *XX can be put 



Pointer to where the next character to print 
is going to come from 



Pointer to start of block map table 

table configuration is: 

TAB+0/1 -> store the TAB address if the field 
is currently in use for receiving. If a 
block is not current, it stores the 
address of the next TA3 to print. If 
a disk field, then stores the TAB address 
of the previous block (link back) 

TAB+2 -> for a memory block, stores the hi -order 
byte of where the memory block starts. If 
a disk byte, stores the lo-order POSN #. 

TAB+3 -> s/b for a memory block or if a disk 
block, it contains the hi-order POSN 
vector with bit 7 set. 



MAPPTR$ DS 



Pointer to the beginning of the memory table 
block pointer for the block that is receiving 
characters from *PR calls (the current block) 



PUTBLK$ DS 



Pointer to the memory table field for the block 
that is printing characters 



GETBLK$ DS 



Points to the table position of the previous 
block. This is used to reset the previous link 



DVRBEND EQU 
RELTABB DB 
DW 



$-1 

TABBLEN 

RX01 9 RX03,RX04 



DW RX1 9 RX2 S RX3,RX4,RX5 S RX6,RX7,RX8 

F82D FC2D 672E 282D 

DW RX9,RX10,RX11,RX12 5 RX13,RX14,RX15 
BE2E C82E F22E 

DW RX16,RX17,RX18 



TABBLEN EQU 



$-RELTABB/2 



SUBTTL <> 
END SPOOL 
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@$SYS 


08F0 @@1 


0000 @@2 


0000 


(a@3 


0000 @@4 


0000 @BANK 


0877 


0BYTEIO 


1300 0CHNIO 


0689 0CKBRKC 


0553 


@CLS 


0545 0CTL 


0623 0DATE 


07A8 


(PDIV16 


06E3 @DSP 


0642 0DSPLY 


052D 


^FRENCH 


0000 0GERMAN 


0000 @GET 


0638 


0HEX16 


07BD 0HEX8 


07C2 GHEXDEC 


06F6 


0HZ50 


0000 0INTL 


0000 @JCL 


0630 


@KBD 


0635 @KEY 


0628 0KEYIN 


0585 


0KITSK 


0089 0LOGER 


0503 0LOGOT 


0500 


0MQD2 


0000 0MOD4 


FFFF @MSG 


0530 


0MUL16 


06C9 0OPREG 


0084 SPRINT 


0528 


@PRT 


063D @PUT 


0645 (3RSTNMI 


0FE9 


0RSTREG 


0680 @TIME 


078D @USA 


FFFF 


0VDCTL 


0B99 0VDCTL3 


0D38 @ VDCTL 


0D42 


ADDR 2 ROWCOL 


0DF1 BADDCB 


2442 BADDCBS 


2AC7 


BANKll 


2D61 BANKX2 


2D83 BANKX3 


2D90 


BAR$ 


0201 BOOTSTS 


439D BPARM 


25B5 


BUFFER 


2C00 BUR$ 


0200 CALCPTR 


26A1 


CANT 


244E CANT$ 


2AAD CASHK$ 


0A7B 


CFLAG$ 


006C CKCTL 


2D31 CKLNK 


258A 


CKRTE 


257F CKRTE1 


2583 CLEAR 


28 D4 


CLEAR1 


28FB CLEARD 


2411 CLEARDS 


297D 


CORES 


0300 CPARM 


252D CR 


000D 


CRTBGN$ 


F800 DATES 


0033 DAYTBL$ 


04C7 


DCBKL$ 


0031 DCT$ 


0470 DFLAG 


2D6D 


[FLAGS 


006 D DFLAG1 


2E6F DIS DO RAM 


0846 


DODATA$ 


0B94 DODCB$ 


0210 DO CONTROL 


0C44 


DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 DO RET 


0BCB 


DO RET1 


0BCC DO SCROLL 


0CCE DO TABS 


0BEA 


DPARM 


261A DSKSPC 


2B02 DSKTYP$ 


04C0 


DSPLR 


2D6C DSPLR0 


2E64 DSPLR1 


2E73 


DSPLR1X 


2E6E DSPLR2 


2E98 DSPLTCB 


2D6A 


DTPMTS 


04C2 DVRABGN 


2D0F DVRAEND 


2D9A 


DVRBBGN 


2DB6 DVRBEND 


2F5E DVREND$ 


0FF4 


DVREPT 


2D2A DVRHI$ 


0206 ENADIS DO RAM 


0817 


ERREXIT 


2454 ETX 


0003 EXIT 


2407 


FDDINTS 


000E FIX1 


2D00 FIX2UP 


2D7F 


FLGTABS 


006A FNDDCB 


2575 FREBNK$ 


2A87 


GBUF1 


26BB GBUF2 


26C4 GETBLK 


2D8C 


GETBLK$ 


2F5B GETBLK0 


2D98 GETBLK1 


2EB0 


GETBLK2 


2EBA GETBLK3 


2EBD GETBLK4 


2EC6 


GETBLK5 


2EED GETBLK6 


2EF0 GETBLK7 


2EF9 


GETNXT$ 


2F55 GETPRM 


250F GET @ ROWCOL 


0DAE 


GOTMEMS 


2A70 HERTZ$ 


0750 HIGHS 


040E 


HIPARM 


28DD IFLAG$ 


0072 INBUFS 


0420 


INTVC$ 


003E INUSE 


244A INUSES 


2A97 


IOERR 


2437 IPLDSK1 


26FE IPLDSK2 


2708 


IPLDSK3 


271A IPLMEM 


26F0 JCLCBS 


0203 


JLDCB$ 


0230 KCK@ 


07D6 KFLAGS 


0074 


KIDATA$ 


08FC KIDCB$ 


0208 KITSK0 


001 F 


LBANK$ 


0202 LOCDCB 


25D7 LOGMEM 


2888 


LOWBUF$ 


2300 MAPPTRS 


2F57 MAXDAYS 


0401 


MODDVR 


2D25 MODQUTS 


0076 MONTBLS 


04DC 


MOVMODB 


277B MPARM 


268C NAMLP 


25EC 


NFLAG$ 


0077 NOFIND 


2446 NOFINDS 


2960 


NOMEMS 


2A55 NOSET 


27C8 OLDHI 


27BC 
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OPARM 


2518 OPREG$ 


0078 OPREG SV AREA 


086E 




OPREG SV PTR 


0835 PAKNAMS 


0410 PAR ERR 


002C 




PAUSE 


2807 PAUSED 


0382 PAUSED 


2419 




PAUSED$ 


2992 PCSAVES 


07AF PDRVS 


001 B 




PPARM 


2526 PR$ 


2B09 PRDCBS 


0218 




PRMBGM 


242D PRMBGMS 


2A11 PRMERR 


2435 




PRMERRA 


2620 PRMSAV 


2D1D PRMTBLS 


2B0D 




PUDCB 


2E78 PUDCB1 


2E9E PUFCB 


2E82 




PUHIGH 


2658 PUTA0DE 


0DCD PUTBLKS 


2F59 




PUTCHAR 


2D5C PUTNXTS 


2F53 PUT @ 


0DCA 




PUT @ ROWCOL 


0DC6 RELO 


2930 RELTABA 


2D9B 




RELTABB 


2F5F RESDCB 


28A3 RESUMD 


2415 




RESUMDS 


29A8 RESUME 


281C RFLAGS 


007B 




RLOOP 


2947 ROWCOL 2 ADDR 


0DD0 RPARM 


251F 




RST28 


0028 RSTOR$ 


04C4 RX01 


2D5D 




RX02 


2D6A RX03 


2D80 RX04 


2D8D 




RX05 


27D3 RX06 


27DB RX08 


2D72 




RX09 


2D79 RX1 


2DBC RX10 


2E84 




RX11 


2EA0 RX12 


2EB3 RX13 


2EBE 




RX14 


2EC8 RX15 


2EF2 RX16 


2D01 




RX17 


2D06 RX18 


2D0B RX19 


2D3C 




RX2 


2DC5 RX20 


2D41 RX21 


2D48 




RX22 


2D54 RX23 


2D4D RX24 


2D64 




RX25 


2D86 RX26 


2D93 RX3 


2DD5 




RX4 


2DD9 RX5 


2DF8 RX6 


2DFC 




RX7 


2E67 RX8 


2D28 RX9 


2E7A 




S0DCB 


2D19 S0DCB1 


2DB6 S1DCBS 


0238 




SAVESP 


240A SAVSTK 


2D58 SETDVR 


25AD 




SET SCROLL 


0CF3 SFLAG$ 


007C SGL 


0010 




SIDCB$ 


0220 SODCB$ 


0228 SPL1 


249B 




SPL2 


249C SPL2A 


24CE SPL2B 


24DE 




SPL2C 


24E7 SPL3 


24F3 SPL4 


24FF 




SPLACT 


241D SPLACTS 


2A3A SPLBNK 


2D27 




SPLDCB 


2AE2 SPLEXT 


2B05 SPLFCB 


2F33 




SPLOFF 


2831 SPLOFM 


2425 SPLOFMS 


29 BF 




SPLONM 


2421 SPLONMS 


29D5 SPLOPM 


2429 




SPLOPMS 


29EF SPLR10 


2E01 SPLR12 


2E26 




SPLR1A 


2DB8 SPLR2 


2DC3 SPLR3 


2DCF 




SPLR5 


2DDB SPLR6 


2DE1 SPLR7 


2DEB 




SPLR8 


2DF7 SPLR9 


2DFB SPOLRET 


2D51 




SPOOL 


2400 SPOOLS 


2D14 SPOOL1 


2459 




STACKS 


0380 STARTS 


0000 STKCTL 


2D33 




STORHI 


27A2 STR 


0020 SVBGN 


28B2 




SVDCB 


28A4 SVEND 


2935 SVHL 


2D5A 




SW 


0040 SWAP 


27FA SWAP1 


28C2 




TABALEN 


000D TABBLEN 


0015 TIMES 


002D 




TIMERS 


002C TIMSLS 


002B TIMTSKS 


0713 




TMPMTS 


04C3 TRACE INT 


07B1 TYPHKS 


0A8F 




TYPTSKS 


0B26 USEPR 


24C3 VAL 


0080 




VFLAG$ 


007F ZEROS 


0401 @(3ABORT 


6C50 




@@ADTSK 


6CE3 @@BANK 


71FB GKdBKSP 


6EDB 




@(9BREAK 


7211 @@CHNIO 


6C3B (a@CKBRKC 


725F 




(3@CKDRV 


6D37 (aMEOF 


6EF0 (B0CKTSK 


6CCE 




INCLOSE 


6EC6 @(3CLS 


7249 GWINDI 


6C7A 




GGCMNDR 


6C8F (a@CTL 


6A9F @@DATE 


6C11 




(aPDCSTAT 


6D76 @@DEBUG 


6CB9 G>@DECHEX 


717B 




@@DIRRl) 


70E8 (a@DIRWR 


70FD @@DIV16 


7166 




@@DIV8 


7151 (3@DODIR 


6D4C (d@DSP 


6A63 




(apDSPLY 


6B03 TERROR 


6CA4 @@EXIT 


6C65 
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@(3FEXT 


7055 @(<>FLAGS 


71E5 (a@FNAME 


706A 




@@FSPEC 


7040 @@GATRD 


70D3 @@GATWR 


7112 




@@GET 


6A77 @@GTDCB 


7094 @@GTDCT 


707F 




@(3GTM0D 


70A9 (a@HDFMT 


6E1E @(aHEX16 


71BA 




(a@HEX8 


71A5 @(?HEXDEC 


7190 @(3HIGH$ 


71CF 




@@INIT 


6E9C @@KBD 


6ADB @@KEY 


6A4F 




@@KEYIN 


6AEF @@KLTSK 


6D22 @@LOAD 


7016 




@(9L0C 


6F05 @@L0F 


6F1A @@LOGER 


6B3A 




@@L0G0T 


6B4F @@MSG 


6B86 @@MUL16 


713C 




@@MUL8 


7127 @(aOPEN 


6EB1 @@PARAM 


6BFC 




(a@PAUSE 


6BE7 (3@PE0F 


6F2F (30POSN 


6F44 




(SPRINT 


6B9B @@PRT 


6AB3 @@PUT 


6A8B 




@@RAMDIR 


6D61 @@RDSEC 


6DF4 @@RDSSC 


70BE 




(SPREAD 


6F59 @@REM0V 


6E87 <a(3RENAM 


6E72 




@@REW 


6F6E (a@RMTSK 


6CF8 (30RPTSK 


6D0D 




@@RREAD 


6F83 00RSLCT 


6DDF (9@RST0R 


6DA0 




@(3RUN 


702B @@RWRIT 


6F98 (3(s>SEEK 


6DCA 




(a@SEEKSC 


6FAD @@SKIP 


6FC2 (a@SLCT 


6D8B 




(a@STEPI 


6DB5 (a@TIME 


6C26 G»(j>VDCTL 


6BD2 




@@VER 


6FD7 @@VRSEC 


6E09 @@WE0F 


6FEC 




@@WHERE 


6AC7 (aflWRITE 


7001 @@WRSEC 


6E33 




@@WRSSC 


6E48 @@WRTRK 


6E5D 






2400 is the 


transfer address 








00000 Total 


errors 
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0000 

002 C 
000 D 
4300 
0028 

0000 



00100 ;LBSYSGEN/ASM - SYSGEN Command 

00110 TITLE <SYSGEN - LS-DOS 6.2> 

00120 ; 

00130 PAR_ERR EQU 44 ; Parameter Error 

00140 CR EQU 13 

00150 MOD3BUF EQU 4300H 

00160 RST28 EQU 28H 

00170 ; 

00180 *GET SVCMAC:3 ;SVC Macro equivalents 

00010 ;SVCMAC/ASM - LS-DOS Version VI 

00020 *LIST OFF 





03900 


*LIST 


ON 








00190 


*LIST 


OFF 




;Get SYS0/EQU 




00210 


*LIST 


ON 








00220 


s 








2400 


00230 




ORG 


2400H 






00240 


s 








2400 


00250 


SYSGEN 


@@CKBRKC 


;Break key down? 


2400 3E6A 


00001 




LD 


A, 106 




2402 EF 


00002 




RST 


40 




2403 2804 


00260 




JR 


Z 9 BEGINA 


;Ok if not 


2405 21FFFF 


00270 




LD 


HL.-l 


; else abort 


2408 C9 


00280 
00290 


» 


RET 








00300 


s 


Save st 


ack & call the 


sysgen routine 




00310 


s 








2409 ED731424 00320 


BEGINA 


LD 


(SAVESP+1),SP 


;Save the stack pointer 


240D CD4624 


00330 




CALL 


SYSGENl 


;Do the SYSGEN 


2410 210000 


00340 EXIT 


LD 


HL 9 


;Set for no error 


2413 310000 


00350 


SAVESP 


LD 


SP s $-$ 


;P/u original SP 


2416 


00360 




(SGCKBRKC 


;Clear pending <BREAK> 


2416 3E6A 


00003 




LD 


A 5 106 




2418 EF 


00004 




RST 


40 




2419 C9 


00370 
00380 


s 


RET 




;Back to DOS 




00390 


s 


I/O Err 


or Handler 






00400 


s 








241A 3E2C 


00410 


PRMERR 


LD 


A 9 PAR_ERR 


; Parameter Error 


241C 6F 


00420 


IOERR 


LD 


LjM 


;Error # to HL 


241D 2600 


00430 




LD 


H,0 




241F F6C0 


00440 




OR 


0C0H 


;Abbrev 9 return 


2421 4F 


00450 




LD 


C 5 A 




2422 


00460 




(TERROR 




;Display error 


2422 3E1A 


00005 




LD 


A, 26 




2424 EF 


00006 




RST 


40 




2425 18EC 


00470 
00480 


» 


JR 


SAVESP 


;Exi t 




00490 


S 


Interna 


1 Error Message 


; Handler 




00500 


S 








2427 213D27 


00510 


NOMDSK 


LD 


HL 9 N0MDSK$ 


;"Memdisk active 


242A DD 


00520 




DB 


0DDH 




242B 215B27 


00530 


NORTES 


LD 


HL 9 N0RTES$ 


;"File routes active 


242E DD 


00540 




DB 


0DDH 




242F 219126 


00550 


NOTFND 


LD 


HL 9 N0TFND$ 


;"No config found 


2432 DD 


00560 




DB 


0DDH 




2433 212127 


00570 


NOSPL 


LD 


HL 9 N0SPL$ 


;"Spooler active 


2436 DD 


00580 




DB 


0DDH 




2437 21D626 


00590 


NOINDO 


LD 


HL,NOINDO$ 


;"JCL active 


243A DD 


00600 




DB 


0DDH 




243B 21FD26 


00610 


NOCANDO 


i LD 


HL s NOCANDO$ 


;"Sysgen inhibit set 


243E CD0005 


00620 




CALL 


0LOGOT 
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2441 21FFFF 


00630 


LD 


HL.-l 


;Set abort code 


2444 18CD 


00640 
00650 ; 


JR 


SAVESP 


;Exit 




00660 ; 


SYSGENl 


- Save the state 


of the system 




00670 j 








2446 117F27 


00680 SYSGEN1 LD 


DE,PRMTBL$ 


;Check for user parametei 


2449 


00690 


0(3 PAR AM 






2449 3E11 


00007 


LD 


A,17 




244B EF 


00008 


RST 


40 




244C C21A24 


00700 


JP 


NZ 9 PRMERR 


;Quit on parm error 


244F 


00710 


@@FLAGS 






244F 3E65 


00009 


LD 


A, 101 




2451 EF 


00010 
00720 ; 


RST 


40 






00730 ; 


Routine 


to process DRIVE 


parameter 




00740 , 








2452 010000 


00750 DRIVE LD 


BC 9 


;Drive parm response 


2455 79 


00760 


LD 


A,C 




2456 FE08 


00770 


CP 


8 


;Drive in range? 


2458 D21A24 


00780 


JP 


NC.PRMERR 


;Go if > 7 


245B F630 


00790 


OR 


'0' 


;Make it ASCII 


245D 322A26 


00800 


LD 


(CFGSPEC) S A 


; & stuff drive spec 


2460 327026 


00810 


LD 


(ATRSPEC) 5 A 




2463 CDEB25 


00820 


CALL 


NPARM 


;Ck on yes or no entry 


2466 CAB825 


00830 


JP 


Z s CFGOFF 


;Jump if SYSGEN=OFF 


2469 FDCB126E 


00840 


BIT 


5 9 (IY+'S , -'A') 


;Can't sysgen during DO 


246D C23724 


00850 


JP 


NZ 9 N0IND0 




2470 FDCB0346 


00860 


BIT 


9 (IY+ , D , -'A') 


;Can't sysgen if spooler 


2474 C23324 


00870 


JP 


NZ 9 N0SPL 


; is active 


2477 FDCB0366 


00880 


BIT 


4,(IY+ , D , -'A') 


;Can't sysgen if memdisk 


247B C22724 


00890 


JP 


NZ 9 N0MDSK 


; is active 


247E FDCB026E 


00900 


BIT 


S^IY+'C'-'A' ) 


;CK user sysgen inhibit 


2482 C23B24 


00910 


JP 


NZ,NOCANDO 


;Quit if set 


2485 CDF525 


00920 


CALL 


CKRTES 


;Ck if any route to file 


2488 C22B24 


00930 
00940 


JP 


NZ 5 N0RTES 


;Can't if so 




00950 


, Initial 


ize a CONFIG file 


i on disk 9 or user spec 




00960 


> 






248B 111B26 


00970 


LD 


DE 9 GENDCB 


;"CONFIG/SYS.CCC 


248E 210029 


00980 


LD 


HL 9 GENBUF 


;Config I/O buffer 


2491 0600 


00990 


LD 


B 9 


;Set LRL=256 


2493 


01000 


@@INIT 




;Create config file 


2493 3E3A 


00011 


LD 


A 9 58 




2495 EF 


00012 


RST 


40 




2496 C21C24 


01010 
01020 


JP 
» 


NZ 9 I0ERR 


;Quit on init error 




01030 


; Generate the file header 


block 




01040 


> 






2499 3E05 


01050 


LD 


A 9 5 


;Put f i le header 


249B CD1326 


01060 


CALL 


PUTOUT 




249E 3E06 


01070 


LD 


A 9 6 


;Put header length 


24A0 CD1326 


01080 


CALL 


PUTOUT 




24 A3 0606 


01090 


LD 


B 9 6 


;Put header name 


24A5 213B26 


01100 


LD 


HL 9 CFGNAM$ 


; "CONFIG" 


24A8 7E 


01110 WRNAM LD 


A 9 (HL) 


; Write name to 


24A9 23 


01120 


INC 


HL 


; config file header 


24AA CD1326 


01130 


CALL 


PUTOUT 




24AD 10F9 


01140 
01150 


DJNZ 


WRNAM 






01160 


; Generate disabling of all interrupts 




01170 
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24AF 0601 


01180 


LD 


B,l 


;Set block length 


24B1 113800 


01190 


LD 


DE S @RST38 


;Set load address 


24B4 219425 


01200 


LD 


HL,C9FLD 


;Point to block (X'C9') 


24B7 CD9625 


01210 
01220 ; 


CALL 


WRBLCK 


;Write the block 




01230 ; 


Dump 


memory from (DVRHI$) to DVREND$ 




01240 ; 








24BA 2A0602 


01250 


LD 


HL,(DVRHI$) 


; Point to max memory 


24BD 11F40F 


01260 


LD 


DE,DVREND$ 


;Point to start 


24C0 AF 


01270 


XOR 


A 




24C1 ED52 


01280 


SBC 


HL,DE 


;How much to save 


24C3 44 


01290 


LD 


B,H 


; into BC 


24C4 4D 


01300 


LD 


C,L 




24C5 C45C25 


01310 
01320 ; 


CALL 


NZ.DUMP 


;File DVREND$ to top 




01330 ; 


Dump 


memory from HIGHS 


to top-of -memory FIRST 




01340 ; 








24C8 ED5B1C00 01350 


LD 


DE,(PHIGH$) 


; Point to max memory 


24CC 210000 


01360 


LD 


HL,0 


;Set up to get current 


24CF 45 


01370 


LD 


B,L 


; HIGH$ 


24D0 


01380 


(a@HIGH$ 




24D0 3E64 


00013 


LD 


A, 100 




24D2 EF 


00014 


RST 


40 




24D3 EB 


01390 


EX 


DE,HL 


;HIGH$ to DE, 


24 D4 AF 


01400 


XOR 


A 


; PHIGH to HL 


24D5 ED52 


01410 


SBC 


HL.DE 


;How much to save? 


24D7 44 


01420 


LD 


B,H 




24D8 4D 


01430 


LD 


C S L 




24D9 13 


01440 


INC 


DE 


;First byte in use 


24DA C45C25 


01450 
01460 ; 


CALL 


NZ.DUMP 


;File HIGH$+1 to top 




01470 ; 


Generate all data from 


address table 




01480 ; 








24DD 21A427 


01490 


LD 


HL,ADRTBL$ 


;Point to grab table 


24E0 4E 


01500 WRTBL 


LD 


C,(HL) 


;P/u lo order length 


24E1 23 


01510 


INC 


HL 




24E2 46 


01520 


LD 


B,(HL) 


;P/u hi order length 


24E3 23 


01530 


INC 


HL 




24E4 78 


01540 


LD 


A,B 




24E5 Bl 


01550 


OR 


C 




24E6 280B 


01560 


JR 


Z S GENDCT 


;Exit on zero length 


24E8 5E 


01570 


LD 


E,(HL) 


;P/u lo order address 


24E9 23 


01580 


INC 


HL 




24EA 56 


01590 


LD 


D,(HL) 


;P/u hi order address 


24EB 23 


01600 


INC 


HL 




24EC E5 


01610 


PUSH 


HL 


;Save table pointer 


24ED CD5C25 


01620 


CALL 


DUMP 


;P/u the code & f i le it 


24F0 El 


01630 


POP 


HL 


;Restore table pointer 


24F1 18ED 


01640 
01650 ; 


JR 


WRTBL 






01660 ; 


Generate the DCT$ (offset) 




01670 ; 








24F3 0650 


01680 GENDCT 


LD 


B 9 80 


;Table is 80 bytes 


24F5 110043 


01690 


LD 


DE,MOD3BUF 


;Place to stuff DCT$ 


24F8 0E00 


01700 


LD 


C,0 




24FA 


01710 


@@GTDCT 


;Write out the DCTs 


24FA 3E51 


00015 


LD 


A,81 




24FC EF 


00016 


RST 


40 




24FD FDE5 


01720 


PUSH 


IY 


; handled by SYS0 


24FF El 


01730 


POP 


HL 




2500 CD9625 


01740 


CALL 


WRBLCK 
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01750 ; 










01760 ; 


Generate the original 


interrupt vector JP 




01770 ; 








2503 0601 


01780 INTVEC 


LD 


B,l 


; F i 1 e the interrupt 


2505 113800 


01790 


LD 


DE 9 @RST38 


; vector address 


2508 219525 


01800 


LD 


HL.JPINST 


; with a JP 


250B CD9625 


01810 
01820 ; 


CALL 


WRBLCK 


;Write the block 




01830 ; 


Generate the transfer 


address 




01840 ; 








250E 3E02 


01850 


LD 


A 9 2 


;Transfer address 


2510 CD1326 


01860 


CALL 


PUTOUT 




2513 3E02 


01870 


LD 


A 9 2 




2515 CD1326 


01880 


CALL 


PUTOUT 




2518 AF 


01890 


XOR 


A 


;Xfer address is 0000 


2519 CD1326 


01900 


CALL 


PUTOUT 




251C AF 


01910 


XOR 


A 




251D CD1326 


01920 


CALL 


PUTOUT 




2520 


01930 


@@CLOSE 




;Close config file 


2520 3E3C 


00017 


LD 


A 9 60 




2522 EF 


00018 


RST 


40 




2523 C21C24 


01940 
01950 ; 


JP 


NZ s IOERR 


;Quit on close error 




01960 ; 


Let the 


config sector 


know there's a CONFIG/SYS 




01970 ; 










01980 


IF 


@MOD2 






01990 ; 










02000 


LD 


A 9 (DRIVE+1) 


; Drive # 




02010 


LD 


C 9 A 


;Pass drive # 




02020 


LD 


HL 9 SBUFF$ 


;I/0 buffer 


2526 


02030 


(ataGTDCT 




;Fetch DCT 




00019 


LD 


A 9 81 






00020 


RST 


40 






02040 ; 










02050 


LD 


A 9 (IY+3) 


;Get DCT data 




02060 


AND 


28 H 


;Bit 5/3 




02070 


CP 


20H 


;8" floppy? 




02080 


JR 


NZ 9 SETSYS1 


;Go if not 




02090 


LD 


A 9 (IY+4) 


;Get DCT data 




02100 


AND 


50H 


;Bit 6/4 




02110 


CP 


40H 


;DD and not alien? 




02120 


JR 


NZ 9 SETSYS1 


;Go if not 




02130 ; 










02140 


LD 


D 9 (IY+9) 


;Get GAT address 




02150 


LD 


E,0 


;DE=>gat 


2526 


02160 


@@RDSEC 




;Read sector 




00021 


LD 


A 9 49 






00022 


RST 


40 






02170 


CP 


6 


; Directory? 




02180 


JP 


NZ 9 I0ERR 


;Go on disk error 




02190 


LD 


A 9 (SBUFF$+0CDH) ;Get gat data byte 




02200 


BIT 


7,A 


;Data disk? 




02210 SETSYS1 


LD 


D 9 


;Init sys info sector 




02220 


JR 


NZ 9 $+3 


;Go if not 8" floppy sys 




02230 


INC 


D 


; else sysinfo on cyl 1 




02240 


LD 


E,2 


;Sysinfo sector 




02250 ; 










02260 


ENDIF 








02270 ; 








2526 21001D 


02280 
02290 ; 


LD 


HL,SBUFF$ 


;Use this as disk buffer 
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02300 


IF 


@M0D4 




2529 110200 


02310 
02320 
02330 ; 


LD 
ENDIF 


DE 5 0<8+2 


Trk 5 sect 2 (SIS) 


252C 3A5324 


02340 


LD 


A 9 (DRIVE+1) 


P/u logical drive # 


252F 4F 


02350 


LD 


L s A « 


of drive (DRIVE) 


2530 


02360 


@@RDSEC 




Read System Info Sector 


2530 3E31 


00023 


LD 


A, 49 




2532 EF 


00024 


RST 


40 




2533 C21C24 


02370 


JP 


NZ,IOERR 


Quit on read error 


2536 AF 


02380 


XOR 


A 


Turn on standard config 


2537 32011D 


02390 


LD 


(SBUFF$+1),A 




253A 


02400 


00WRSEC 




.Write it back 


253A 3E35 


00025 


LD 


A, 53 




253C EF 


00026 


RST 


40 




253D C21C24 


02410 


JP 


NZ,IOERR 


.Quit on write error 


2540 2EC0 


02420 


LD 


L,0C0H 


Pt to SYS/DATA byte 


2542 B6 


02430 


OR 


(HL) 


Check if System disk 


2543 21AD26 


02440 


LD 


HL, WARNS 


and inform in not 


2546 2003 


02450 


JR 


NZ,$+5 




2548 


02460 


@@LOGOT 








00027 


IFEQ 


00H S 1 






00028 


LD 


HL, 






00029 


ENDIF 






2548 3E0C 


00030 


LD 


A, 12 




254A EF 


00031 
02470 ; 


RST 


40 






02480 ; 


Let user know it's done 






02490 ; 








254B 


02500 


@@LOGOT 


CFGBLT 


,Log completion 




00032 


IFEQ 


01H 9 1 




254B 214126 


00033 
00034 


LD 
ENDIF 


HL,CFGBLT 




254E 3E0C 


00035 


LD 


A s 12 




2550 EF 


00036 


RST 


40 




2551 215A26 


02510 


LD 


HL,ATRBIT 


Make CONFIG invisible 


2554 3E18 


02520 


LD 


A s 24 


;Init for CMNDI 


2556 C32800 


02530 


JP 


RST28 


; & execute 


2559 


02540 


G>(aCMNDI 






2559 3E18 


00037 


LD 


A, 24 




255B EF 


00038 
02550 ; 


RST 


40 






02560 ; 


Routine 


to DUMP core 






02570 ; 








255C EB 


02580 DUMP 


EX 


DE,HL 


.Load address to HL 


255D 111B26 


02590 


LD 


DE,GENDCB 


,Config/sys FCB 


2560 E5 


02600 DUMPl 


PUSH 


HL 




2561 C5 


02610 


PUSH 


BC 


;Save block length 


2562 60 


02620 


LD 


H s B 


;Length of this block 


2563 69 


02630 


LD 


L 5 L 


; to HL 


2564 01FE00 


02640 


LD 


BC,254 


;Write block in groups 


2567 AF 


02650 


XOR 


A 


;0f 254 bytes max 


2568 ED42 


02660 


SBC 


HL,BC 


;Sub blk Ten fm dump len 


256A 3006 


02670 


JR 


NC.DUMP2 


;Go if write len > 254 


256C CI 


02680 


POP 


BC 


;Recover block len 


256D 210000 


02690 


LD 


HL,0 


;Show block written 


2570 1801 


02700 


JR 


DUMP 3 




2572 .Fl 


02710 DUMP2 


POP 


AF 


;Remove old len from sta 


2573 E3 


02720 DUMP3 


EX 


(SP),HL 


;Xchg len w/address 


2574 41 


02730 


LD 


B,C 




2575 3E01 


02740 


LD 


A,l 


;Start of block 
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2577 CD1326 


02750 


CALL 


PUTOUT 




257A 78 


02760 


LD 


A,B 




257B C602 


02770 


ADD 


A,2 


;Add for address 


257D CD1326 


02780 


CALL 


PUTOUT 


;Write block length 


2580 7D 


02790 


LD 


A,L 




2581 CD1326 


02800 


CALL 


PUTOUT 


;Write lo order address 


2584 7C 


02810 


LD 


A,H 




2585 CD1326 


02820 


CALL 


PUTOUT 


;Write hi order address 


2588 7E 


02830 DUMP4 


LD 


A,(HL) 




2589 23 


02840 


INC 


HL 




258A CD1326 


02850 


CALL 


PUTOUT 


;Write the block 


258D 10F9 


02860 


DJNZ 


DUMP4 




258F CI 


02870 


POP 


BC 


;Get remaining length 


2590 78 


02880 


LD 


A,B 




2591 Bl 


02890 


OR 


C 




2592 20CC 


02900 


JR 


NZ,DUMP1 


;Loop if block not done 


2594 C9 


02910 C9FLD 
02920 ; 


RET 




; else go back 




02930 ; 


Routine 


to write an 


offset block 




02940 ; 








2595 C3 


02950 JPINST 


DB 


0C3H 


;JP instruction 


2596 E5 


02960 WRBLCK 


PUSH 


HL 


;Save real load address 


2597 62 


02970 


LD 


H S D 


;HL = offset address 


2598 6B 


02980 


LD 


L 5 E 




2599 111B26 


02990 


LD 


DE,GENDCB 


;Config/sys FCB 


259C 3E01 


03000 


LD 


A,l 


;Start of block 


259E CD1326 


03010 


CALL 


PUTOUT 




25A1 78 


03020 


LD 


A S B 




25A2 C602 


03030 


ADD 


A,2 


;Adj for address 


25A4 CD1326 


03040 


CALL 


PUTOUT 


;Write block length 


25A7 7D 


03050 


LD 


A,L 




25A8 CD1326 


03060 


CALL 


PUTOUT 


;Write lo order load 


25AB 7C 


03070 


LD 


A,H 




25AC CD1326 


03080 


CALL 


PUTOUT 


;Write hi order load 


25AF El 


03090 


POP 


HL 


;Recover real address 


25B0 7E 


03100 WRBLK1 


LD 


A S (HL) 


; and p/u data from there 


25B1 23 


03110 


INC 


HL 




25B2 CD1326 


03120 


CALL 


PUTOUT 


;Write the block 


25B5 10F9 


03130 


DJNZ 


WRBLK1 




25B7 C9 


03140 
03150 ; 


RET 








03160 ; 


Perform 


SYSGEN OFF 






03170 ; 








25B8 21001D 


03180 CFGOFF 
03190 ; 


LD 


HL,SBUFF$ 


;Set disk I/O buffer 




03200 


IF 


@MOD2 






03210 ; 










03220 


LD 


A,(DRIVE+1) 


;Get drive 




03230 


LD 


C,A 


;Pass to C 


25BB 


03240 


@@GTDCT 




;Fetch DCT 




00039 


LD 


A, 81 






00040 


RST 


40 






03250 


LD 


D,(IY+9) 


;Dir cylinder 




03260 ; 










03270 


LD 


A 9 (IY+3) 


;Get dct data 




03280 


AND 


28 H 


;Bit 5/3 




03290 


CP 


20H 


;8" floppy? 




03300 


JR 


NZ,SETSYS2 


;Go if not 




03310 


LD 


A,(IY+4) 


;Get data 




03320 


AND 


50H 


;Bit 6/4 




03330 


CP 


40H 


;DD not alien? 
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03340 


JR 


NZ,SETSYS2 


;Go if not 




03350 ; 










03360 


LD 


E,0 


;GAT table 


25BB 


03370 


GK9RDSEC 




;Read sector 




00041 


LD 


A, 49 






00042 


RST 


40 






03380 


CP 


6 


; Directory read? 




03390 


JP 


NZ, IOERR 


;Go if not 




03400 


LD 


A,(SBUFF$+0CDH) 


;Get gat data byte 




03410 


BIT 


7,A 


; System disk? 




03420 SETSYS2 


! LD 


D,0 


;Cyl if not 




03430 


JR 


NZ,$+3 


;Go if not 




03440 


INC 


D 


;Else on cyl 1 




03450 


LD 


E 9 2 


;Sysinfo sector 




03460 ; 










03470 


ENDIF 








03480 ; 










03490 


IF 


@M0D4 




25BB 110200 


03500 
03510 
03520 ; 


LD 
ENDIF 


DE,0<8+2 


;Trk 0, sect 2 (SIS) 


25BE 3A5324 


03530 


LD 


A 9 (DRIVE+1) 


;P/u drive number 


25C1 4F 


03540 


LD 


C S A 


; & note 


25C2 


03550 


@@RDSEC 




; that no config is 


25C2 3E31 


00043 


LD 


A, 49 




25C4 EF 


00044 


RST 


40 




25C5 C21C24 


03560 


JP 


NZ, IOERR 


; on the disk 


25C8 3EC9 


03570 


LD 


A S 0C9H 




25CA 32011D 


03580 


LD 


(SBUFF$+1) S A 


;A X'C9' indicates 


25CD 


03590 


@@WRSEC 




; no config 


25CD 3E35 


00045 


LD 


A 9 53 




25CF EF 


00046 


RST 


40 




25D0 C21C24 


03600 
03610 ; 


JP 


NZ, IOERR 


;Quit if write error 




03620 ; 


Now that none is shown, 


kill the CONFIG/SYS 




03630 ; 








25D3 111B26 


03640 


LD 


DE,GENDCB 


;Pt to FCB 


25 D6 0600 


03650 


LD 


B,0 




25 D8 


03660 


@(30PEN 




;Try to open the config 


25D8 3E3B 


00047 


LD 


A, 59 




25 DA EF 


00048 


RST 


40 




25DB C22F24 


03670 


JP 


NZ,NOTFND 


;Jump if not there 


25 DE 


03680 


@@REMOV 




;Kill the config/sys 


25DE 3E39 


00049 


LD 


A s 57 




25E0 EF 


00050 


RST 


40 




25E1 C21C24 


03690 


JP 


NZ, IOERR 


;Quit if can't be ki lied 


25E4 


03700 


@(<>LOGOT 


CFGDEL$ 


;"config deleted.. 




00051 


IFEQ 


01H,1 




25E4 217626 


00052 
00053 


LD 
ENDIF 


HL,CFGDEL$ 




25E7 3E0C 


00054 


LD 


A, 12 




25E9 EF 


00055 


RST 


40 




25EA C9 


03710 
03720 ; 


RET 




;Done - return 




03730 ; 


Parameter parsing of yes 


;/no 




03740 ; 








25 EB 010000 


03750 NPARM 


LD 


BC,0 


;P/u "no" parm entry 


25EE 78 


03760 


LD 


A,B 




25 EF Bl 


03770 


OR 


C 


;If NO, make Z 


25F0 EEFF 


03780 


XOR 


0FFH 




25F2 C9 


03790 


RET 
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25F3 0000 




03800 YPARM 
03810 ; 


DW 













03820 ; 


Any dev 


ices routed to 


f 


les? 






03830 ; 










25F5 114B49 


03840 CKRTES 


LD 


DE , ' IK ' 




; Point to begin of area 


25F8 




03850 


@@GTDCB 








25F8 3E52 




00056 


LD 


A,82 






25FA EF 




00057 


RST 


40 






25FB E5 




03860 CKRT0 


PUSH 


HL 




;Save pointer 


25FC CB66 




03870 CKRT1 


BIT 


4,(HL) 




;Routed device? 


25FE 280B 




03880 


JR 


Z,CKRT2 




;Jump if not 


2600 2C 




03890 


INC 


L 




; Bypass TYPE code 


2601 7E 




03900 


LD 


A,(HL) 




;P/u route vector 


2602 2C 




03910 


INC 


L 




; lo-order 


2603 66 




03920 


LD 


H,(HL) 




;P/u vector hi -order 


2604 6F 




03930 


LD 


L,A 






2605 CB7E 




03940 


BIT 


7,(HL) 




;Routed to a file? 


2607 28F3 




03950 


JR 


Z,CKRT1 




;Ck further route if not 


2609 El 




03960 


POP 


HL 




; else exit with NZ 


260A C9 




03970 
03980 ; 


RET 












03990 ; 


Point to next device 










04000 ; 










260B El 




04010 CKRT2 


POP 


HL 




;Recover DCB pointer 


260C 7D 




04020 


LD 


A,L 




;Advance to next DCB area 


260D C608 




04030 


ADD 


A,8 




;Loop through all 


260F 6F 




04040 


LD 


L 9 A 




; devices while checking 


2610 20E9 




04050 


JR 


NZ s CKRT0 




;Loop until table end 


2612 C9 




04060 
04070 ; 


RET 








2613 4F 




04080 PUTOUT 


LD 


C,A 




;Byte into C 


2614 




04090 


(a@PUT 






;Do the put 


2614 3E04 




00058 


LD 


A s 4 






2616 EF 




00059 


RST 


40 






2617 C8 




04100 


RET 


Z 




;Back if good 


2618 C31C24 


04110 


JP 


IOERR 




; else abort 






04120 ; 










261 B 43 




04130 GENDCB 


DB 


'CONFIG/SYS. CCC:0\0 


4F 4E 


46 


49 47 2F 53 59 








53 2E 


43 


43 43 3A 30 00 








262A 




04140 CFGSPEC 


EQU 


$-2 






000F 




04150 


DS 


32-$+GENDCB 






263B 43 




04160 CFGNAM$ 


DB 


'CONFIG' 






4F 4E 


46 


49 47 










2641 55 




04170 CFGBLT 


DB 


'User configur 


•at 


ion built 1 ,CR 


73 65 


72 


20 63 6F 6E 6( 










69 67 


75 


72 61 74 69 6F 










6E 20 


62 


75 69 6C 74 0D 








265A 41 




04.180 ATRBIT 


DB 


'Attrib CONFIG/SYS. CCC:d (I)',CR 


74 74 


72 


69 62 20 43 4F 










4E 46 


49 


47 2F 53 59 53 


! 








2E 43 


43 


43 3A 64 20 2£ 


1 








49 29 0D 












2670 




04190 ATRSPEC 


EQU 


$-6 






2676 55 




04200 CFGDEL$ 


DB 


'User configur 


at 


ion deleted' S CR 


73 65 


72 


20 63 6F 6E 66 










69 67 


75 


72 61 74 69 6F 










6E 20 64 65 6C 65 74 65 










64 0D 














2691 4E 




04210 NOTFND$ 


DB 


'No user confi 


gu 


ration found' 9 CR 


6F 20 


75 


73 65 72 20 63 
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6F 6E 
74 69 
6E 64 
26AD 57 

61 72 
54 61 

72 69 

74 61 
20 73 

26 D6 43 

6F 6D 
6E 76 

75 72 
4F 3E 

73 73 
26FD 2A 

2A 20 
20 69 
65 64 
69 73 
2A 2A 
2721 43 

61 6E 
6C 65 
20 69 

76 65 
273D 43 

61 6E 
6C 65 
53 4B 

74 69 
275B 43 

61 6E 
6C 65 
2D 74 
20 69 
76 65 



277F 

2784 
2786 

278B 
278D 

2792 
2794 

2798 
279A 

27A1 
27A3 



42 4F 
F325 
43 

4F 46 
EC 25 
53 

59 45 
F325 
52 

4E 4F 
EC 25 
95 

44 52 
5324 



66 69 67 75 72 61 
6F 6E 20 66 6F 75 
0D 

04220 WARNS DB 
6E 69 6E 67 3A 20 

72 67 65 74 20 64 
76 65 20 63 6F 6E 
69 6E 73 20 6E 6F 
79 73 74 65 6D 0D 

04230 NOINDOS DB 
6D 61 6E 64 20 69 
61 6C 69 64 20 64 
69 6E 67 20 3C 44 
20 70 72 6F 63 65 
69 6E 67 0D 

04240 NOCANDO$ 
53 59 53 47 45 4E 
6E 68 69 62 69 74 
20 61 74 20 74 68 
20 74 69 6D 65 20 
0D 

04250 NOSPL$ DB 
27 74 20 77 68 69 
20 53 50 4F 4F 4C 

73 20 61 63 74 69 
0D 

04260 NOMDSK$ DB 
27 74 20 77 68 69 
20 4D 45 4D 44 49 
20 69 73 20 61 63 
76 65 0D 

04270 NORTESS DB 
27 74 20 77 68 69 
20 72 6F 75 74 65 
6F 2D 66 69 6C 65 
73 20 61 63 74 69 
0D 

04280 ; 

04290 PRMTBL$ DB 
4E 00 



04300 
04310 

46 00 
04320 
04330 

53 00 
04340 
04350 



DW 
DB 

DW 
DB 

DW 
DB 



27A4 0200 
0E04 

27A8 0200 
1E00 



04360 DW 
04370 DB 
49 56 45 00 

04380 DW 

04390 NOP 

04400 ; 

04410 ; 

04420 ; 

04430 ADRTBL$ DW 



'Warning: Target drive contains no system', CR 



Command invalid during <D0> processing' ,CR 



DB 



SYSGEN inhibited at this time **',CR 



'Can"t while SPOOL is active' ,CR 



Can"t while MEMDISK is active' 9 CR 



Can''t while route-to-file is active' S CR 



80H S 42H 9 'ON',0 

YPARM 
43H,'OFF\0 

NPARM+1 
53H,'YES' S 

YPARM 
52H,'NO',0 

NPARM+1 
95H 5 'DRIVE\0 

DRIVE+1 



04440 



Table of regions to sysgen 

2 S HIGH$ ;Save HIGH$ 

DW 2,L0W$ ; Lowest user address 
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27AC 0100 

2B00 
27B0 FA00 

0602 
27B4 0300 

A419 
27B8 3200 

3C00 
27BC 2200 

6A00 
27C0 0200 

9601 
27C4 0300 

6C1A 
27C8 0200 

FE08 
27CC 0100 

940 B 
27D0 0200 

970B 
27 D4 1000 

F001 
27D8 1000 

0800 
27DC 0100 

5007 



27E0 



27 E4 0000 
27E8 



2 7 EC 0000 

0000 

27F0 



27F4 0000 

0000 

27F8 



27FC 0000 



2800 0000 
2802 00 

00 00 00 



LIBRARY Files 

04450 DW 

04460 DW 

04470 DW 

04480 DW 

04490 DW 

04500 DW 

04510 DW 

04520 DW 

04530 DW 

04540 DW 

04550 DW 

04560 DW 

04570 DW 

04580 ; 

04590 IF 

04600 DW 

04610 ENDIF 

04620 IF 

04630 DW 

04640 ENDIF 

04650 ; 

04660 DW 

04670 DW 

04680 DW 

04690 DW 

04700 DW 

04710 DW 

04720 DW 

04730 DW 

04740 DC 
00 00 00 00 00 



SYSGEN - LS-DOS 6.2 Page 00010 

1,TIMSL$ ;Time slice 

250,DVRHI$ ;Save primary DCBs 

3,EXTDBG$ ;Ext DEBUG vector & DBGHK 

50,INTIM$ ;Table & TCBs 

34,FLGTAB$ ;Flag table & assorted 

2,75*2+SVCTAB$ ;Save WRITE vector 

3,HKRES$ ;Sys overlay hook 

2,KIDATA$+2 

1,D0DATA$ 

2,D0DATA$+3 

16,240+SVCTAB$ ;SVCs 120 - 127 

16,(3RST08 ;RST zones 8 and 10 

1,HERTZ$ ; Hertz rate for timer 



@M0D2 
3,$CRSCHAR 

0MOD4 



0,0 
0,0 



;Cursor char + column siz 



20,0 



;End of table 
; Patch space 



2900 
2900 

2400 



04750 ; 

04760 ORG 

04770 GENBUF EQU 

04780 ; 

04790 END 



$<-8+l<+8 
$ 

SYSGEN 
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$A1 


03B7 $A2 


03 B8 $A3 


03B9 




$CKE0F 


1470 ©$SYS 


08F0 ©©1 


0000 




©©2 


0000 ©©3 


0000 ©©4 


0000 




©ABORT 


1B08 ©ADTSK 


1CDA ©BANK 


0877 




©BKSP 


1486 ©BREAK 


196F ©BYTE 10 


1300 




©CHNIO 


0689 ©CKBRKC 


0553 ©CKDRV 


1993 




©CKEOF 


158F ©CKTSK 


1CF5 ©CLOSE 


1999 




©CLS 


0545 ©CMNDI 


197E ©CMNDR 


197B 




©CTL 


0623 ©DATE 


07A8 ©DBGHK 


199F 




©DCINIT 


19C0 ©DCRES 


19C4 ©DCSTAT 


19B5 




©DCTBYT 


1A2B ©DEBUG 


19A0 ©DECHEX 


03E1 




©DIRCYL 


18F7 ©DIRRD 


18BB ©DIRWR 


1803 




©DIV16 


06E3 @DIV8 


1927 ©DODIR 


19AF 




©DOKEY 


19A9 ©DSP 


0642 ©DSPLY 


052 D 




©ERROR 


1B0F @EXIT 


1B0B ©FEXT 


1984 




©FLAGS 


196A ©FNAME 


199C ©FRENCH 


0000 




©FSPEC 


1981 ©GATRD 


1874 ©GATWR 


1875 




©GERMAN 


0000 ©GET 


0638 ©GTDCB 


1990 




©GTDCT 


1A1E ©GTMOD 


19B2 ©HDFMT 


19E4 




©HEX16 


07BD ©HEX8 


07C2 ©HEXDEC 


06F6 




©HIGH$ 


1948 ©HITRD 


1897 ©HITWR 


1898 




(3 HZ 50 


0000 ©ICNFG 


0086 ©INIT 


198D 




©INTL 


0000 ©IPL 


1BF2 ©JCL 


0630 




©KBD 


0635 ©KEY 


0628 ©KEYIN 


0585 




©KITSK 


0089 ©KLTSK 


1CD0 ©LOAD 


1B38 




©LOC 


14B3 ©LOF 


14DE ©LOGER 


0503 




©LOGOT 


0500 ©MOD2 


0000 ©M0D4 


FFFF 




©MSG 


0530 ©MUL16 


06C9 ©MUL8 


190A 




©NMI 


0066 ©OPEN 


198A ©OPREG 


0084 




© PAR AM 


1987 ©PAUSE 


0382 ©PEOF 


14A2 




©PQSN 


1434 ©PRINT 


0528 ©PRT 


063 D 




©PUT 


0645 ©RAMDIR 


19AC ©RDHDR 


19D8 




©RDSEC 


19F4 ©RDSSC 


18D8 ©RDTRK 


19E0 




©READ 


1513 ©REMOVE 


19A6 ©RENAME 


1996 




©REW 


149 b ©RMTSK 


1CD7 ©RPTSK 


1CEB 




©RREAD 


1473 ©RSLCT 


19D4 ©RST00 


0000 




©RST08 


0008 ©RST10 


0010 ©RST18 


0018 




©RST20 


0020 ©RST28 


0028 ©RST30 


0030 




©RST38 


0038 ©RSTNMI 


0FE9 ©RSTOR 


19C8 




©RSTREG 


0680 ©RUN 


IBID ©RWRIT 


13AD 




©SEEK 


19D0 ©SEEKSC 


1421 ©SKIP 


1430 




©SLCT 


19BC ©SOUND 


0392 ©STEPI 


19CC 




©TIME 


078D ©USA 


FFFF ©VDCTL 


0B99 




©VDCTL3 


0D38 ©VER 


1560 ©VRSEC 


19DC 




©WEOF 


14EC ©WHERE 


1979 ©WRITE 


1531 




©WRSEC 


19E8 ©WRSSC 


19EC ©WRTRK 


19F0 




© VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 ADRTBL$ 


27A4 




AFLAG$ 


006 A ATRBIT" 


265A ATRSPEC 


2670 




AUTO? 


1FF1 BAR$ 


0201 BEGINA 


2409 




BOOTST$ 


439D BREAK? 


1C60 BRKVEC$ 


1C88 




BUR$ 


0200 C9FLD 


2594 CASHKS 


0A7B 




CFCB$ 


00E0 CFGBLT 


2641 CFGDEL$ 


2676 




CFGFCB$ 


00E0 CFGNAM$ 


263B CFGOFF 


25 B8 




CFGSPEC 


262A CFLAG$ 


006C CKMOD© 


1A7F 




CKOPEN© 


1568 CKRT0 


25FB CKRT1 


25FC 




CKRT2 


260B CKRTES 


25F5 CONFIGS 


203 F 




CORES 


0300 CR 


000D CRTBGN$ 


F800 




CYL GRN 


16AE D©FBYT8 


1A26 DATES 


0033 




DAYTBL$ 


04C7 DBGSV$ 


00A0 DCBKL$ 


0031 




DCT$ 


0470 DCTBYT8© 


1A29 DCTFLD© 


1A34 
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DFLAG$ 


006D DIRBUF$ 


2300 DIS DO RAM 


0846 


D0DATA$ 


0B94 DODCB$ 


0210 DO CONTROL 


0C44 


DO DSPCHAR 


0CB8 DO INVERT DIS 


0C8C DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 DO RET 


0BCB 


DO RET1 


0BCC DO SCROLL 


0CCE DO TABS 


0BEA 


DRTVE 


2452 DSFTYPS 


04C0 DTFMTS 


04C2 


DUMP 


255C DUMP1 


2560 DUMP2 


2572 


DUMP 3 


2573 DUMP4 


2588 DVRENDS 


0FF4 


DVRHI$ 


0206 EFLAG$ 


006E ENADIS DO RAM 


0817 


EXIT 


2410 EXTDBG$ 


19A4 FDDINTf 


000E 


FEMSK$ 


006F FLGTAB$ 


006A GENBUF 


2900 


GENDCB 


261B GENDCT 


24F3 GET @ ROWCOL 


0DAE 


HERTZ$ 


0750 HIGH$ 


040E HKRESl 


1A6C 


IF LAG $ 


0072 INBUF$ 


0420 INTIMS 


003 C 


INTMSK$ 


003D INTVC$ 


003E INTVEC 


2503 


IOERR 


241C JCLCB$ 


0203 JDCBS 


0024 


JFCB$ 


00C0 JLDCB$ 


0230 JPINST 


2595 


JRET$ 


0026 KCK0 


07D6 KFLAGS 


0074 


KIDATA$ 


08FC KIDCBS 


0208 LBANKS 


0202 


LDRV$ 


0023 LFLAG$ 


0075 LNKFCB0 


1566 


LOW$ 


001 E LSVC$ 


000D MAXCORS 


2400 


MAXDAY$ 


0401 MINCOR$ 


3000 M0D3BUF 


4300 


MODOUT$ 


0076 MONTBL$ 


04DC NFLAGS 


0077 


NOCANDO 


243B NOCANDOS 


26FD NOINDO 


2437 


NOINDO$ 


26 D6 NOMDSK 


2427 NOMDSKS 


273D 


NORTES 


242B NORTES$ 


275B NOSPL 


2433 


NOSPL$ 


2721 NOTFND 


242F NOTFNDS 


2691 


NPARM 


25EB OPREG$ 


0078 OPREG SV AREA 


086 E 


OPREG SV PTR 


0835 ORARET0 


14DC OSRLSl 


003 B 


OSVERl 


0085 OVRLY$ 


0069 PAKNAMS 


0410 


PAR ERR 


002C PAUSED 


0382 PCSAVES 


07 AF 


PDRV$ 


001B PHIGH$ 


001C PRDCBS 


0218 


PRMERR 


241A PRMTBL$ 


277F PUTA0DE 


0DCD 


PUTOUT 


2613 PUT @ 


0DCA PUT @ ROWCOL 


0DC6 


RFLAG$ 


007 B ROWCOL 2 ADDR 


0DD0 RST28 


0028 


RST38(a 


1BFF RSTORS" ~ 


04C4 RWRIT0 


13A2 


S1DCB$ 


0238 SAVESP 


2413 SBUFFS 


1D00 


SET^EXEC 


1A79 SET SCROLL 


0CF3 SFCBS 


008C 


SFLAG$ 


007C SIDCB$ 


0220 SODCBS 


0228 


SPACE 4$ 


2142 STACKS 


0380 STARTS 


0000 


SVCRET$ 


000B SVCTABS 


0100 SYSERRS 


1B13 


SYSGEN 


2400 SYSGEN1 


2446 TCBS 


004 E 


TFLAG$ 


007D TIMES 


002D TIMERS 


002 C 


TIMSL$ 


002B TIMTSKS 


0713 TMPMTS 


04C3 


TRACE INT 


07B1 TYPHKS 


0A8F TYPTSKS 


0B26 


US TORI 


0013 VFLAGS 


007F WARNS 


26AD 


WRBLCK 


2596 WRBLK1 


25 B0 WRINTS 


0080 


WRNAM 


24A8 WRTBL 


24E0 YPARM 


25F3 


ZEROS 


0401 ZEROA0 


13A0 G>(s>ABORT 


9749 


GGADTSK 


97 DC (a@BANK 


9CF4 @@BKSP 


99 D4 


INBREAK 


9D0A 00CHNIO 


9734 @@CKBRKC 


9D58 


@@CKDRV 


9830 @@CKEOF 


99E9 @@CKTSK 


97C7 


00CLOSE 


99 BF @@CLS 


9D42 mCMDl 


9773 


00CMNDR 


9788 (PiaCTL 


9598 (SEDATE 


970A 


@@DCSTAT 


986F @@DEBUG 


97B2 @@DECHEX 


9C74 


@@DIRRD 


9BE1 @@DIRWR 


9BF6 @@DIV16 


9C5F 


@@DIV8 


9C4A (90DODIR 


9845 @@DSP 


955C 


@@DSPLY 


95FC TERROR 


979D @@EXIT 


975E 


@(3FEXT 


9B4E @@FLAGS 


9CDE (a@FNAME 


9B63 


@(9FSPEC 


9B39 @@GATRD 


9BCC @@GATWR 


9C0B 


@@GET 


9570 (3@GTDCB 


9B8D (a@GTDCT 


9B78 
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<a@GTM0D 


9BA2 (a@HDFMT 


{a@HEX8 


9C9E ©GHEXDEC 


@@INIT 


9995 @@KBD 


@@KEYIN 


95 E8 @@KLTSK 


(a@L0C 


99FE @@LOF 


(30LOGOT 


9648 @@MSG 


@@MUL8 


9C20 (3@OPEN 


@@ PAUSE 


96E0 00PEOF 


SPRINT 


9694 @@PRT 


(a(9RAMDIR 


985A (90RDSEC 


(9(3READ 


9A52 @@REMOV 


@@REW 


9A67 @@RMTSK 


(BGRREAD 


9A7C @@RSLCT 


@@RUN 


9B24 @@RWRIT 


00SEEKSC 


9AA6 @@SKIP 


00STEPI 


98AE @@TIME 


(a@VER 


9AD0 @@VRSEC 


(a@WHERE 


95C0 00WRITE 


(3@WRSSC 


9941 @(3WRTRK 


2400 is the 


transfer address 


00000 Total 


errors 



SYSGEN - LS-DOS 6.2 
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9917 
9C89 
95 D4 
981B 
9A13 
967F 
99AA 
9A28 
95 AC 
98ED 
9980 
97F1 
98 D8 
9A91 
9ABB 
971F 
9902 
9AFA 
9956 



@(3HEX16 

@@HIGH$ 

@@ KEY 

00LOAD 

@@LOGER 

@(3MUL16 

@(3PARAM 

@@POSN 

0(9 PUT 

(a(3RDSSC 

@@RENAM 

@(3RPTSK 

(3(s»RST0R 

@(aSEEK 

@@SLCT 

@@VDCTL 

@@WEOF 

00WRSEC 



9CB3 
9CC8 
9548 
9B0F 
9633 
9C35 
96F5 
9A3D 
9584 
9BB7 
996B 
9806 
9899 
98C3 
9884 
96CB 
9AE5 
992C 
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0000 

0000 

00 EC 
000 D 



LIBRARY Files 



SYSTEM - LS-DOS 6.2 



Page 00001 



00100 *GET LBSYSTEM:3 

00010 ;LBSYSTEM/ASM - SYSTEM Command 

00020 TITLE <SYSTEM - LS-DOS 6.2> 

00030 ; 

00040 MODPORT EQU 0ECH 

00050 CR EQU 13 

00060 ; 

00070 *GET SVCMAC:3 

00080 ;SVCMAC/ASM - LS-DOS Version VI 

00090 *LIST OFF 



;SVC Macro equivalents 





03970 


*LIST 


ON 








03990 


*LIST 


OFF 




;Get SYS0/EQU 




07010 


*LIST 


ON 








07020 


> 








2400 


07030 
07040 


s 


ORG 


2400H 






07050 SYSTEM 








2400 


07060 




@@CKBRKC 


;Check for <BREAK> 


2400 3E6A 


00001 




LD 


A s 106 




2402 EF 


00002 




RST 


40 




2403 2825 


07070 




JR 


Z 9 SYSTEM1 


;Go if not 


2405 21FFFF 


07080 




LD 


HL.-l 


; else abort 


2408 C9 


07090 
07100 


» 


RET 






2409 310000 


07110 SAVESP 


LD 


SP 9 $-$ 


;P/u original stack 


240C 


07120 




@(<>CKBRKC 


;Clear any <BREAK> 


240C 3E6A 


00003 




LD 


A s 106 




240E EF 


00004 




RST 


40 




240F C9 


07130 
07140 


s 


RET 




;Ret to DOS 




07150 


s 


Interna 


1 Error Message 


Handling 




07160 


i 








2410 217C29 


07170 


NOMEM 


LD 


HL,NOMEM$ 


;"No memroy avai Table 


2413 DD 


07180 




DB 


0DDH 




2414 219629 


07190 


PRMERR 


LD 


HL S PRMERR$ 


;"Parm error 


2417 


07200 


SETERR 


@@LOGOT 








00005 




IFEQ 


00H S 1 






00006 




LD 


HL S 






00007 




ENDIF 






2417 3E0C 


00008 




LD 


A s 12 




2419 EF 


00009 




RST 


40 




241A 21FFFF 


07210 FRCERR 


LD 


HL.-l 


;Set abort code 


241D 18EA 


07220 
07230 


» 


JR 


SAVESP 


;Exit 




07240 


9 


I/O Error Handler 






07250 


» 








241F 6F 


07260 


IOERR 


LD 


L S A 


;Error # to HL 


2420 2600 


07270 




LD 


H,0 




2422 F6C0 


07280 




OR 


0C0H 


;Set brief to return 


2424 4F 


07290 




LD 


C,A 




2425 


07300 




(TERROR 




; Display the error 


2425 3E1A 


00010 




LD 


A, 26 




2427 EF 


00011 




RST 


40 




2428 18DF 


07310 
07320 


» 


JR 


SAVESP 


;Exit 




07330 


5 


SYSTEM1 


- Set the O/S' 


s parameters 




07340 


» 










07350 


SYSTEM1 








242A ED730A24 


07360 
07370 


» 


LD 


(SAVESP+1),SP 


;Save the stack 


242E 11A32A 


07380 




LD 


DE,PRMTBL$ 


;Get parms 
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2431 


07390 


@@PARAM 






2431 3E11 


00012 


LD 


A,17 




2433 EF 


00013 


RST 


40 




2434 C21424 


07400 


JP 


NZ,PRMERR 


;Jump on parm error 


2437 


07410 


@@FLAGS 




;Get IY = flagtab 


2437 3E65 


00014 


LD 


A, 101 




2439 EF 


00015 


RST 


40 




243A 010000 


07420 SLOW 


LD 


BC,0 


;Test SLOW parm 


243D 78 


07430 


LD 


A,B 




243E Bl 


07440 


OR 


C 




243F 2013 


07450 


JR 


NZ,SETSLOW 


;Jump if SLOW entered 


2441 010000 


07460 FPARM 


LD 


BC,0 


;P/u FAST parm 


2444 78 


07470 


LD 


A,B 




2445 Bl 


07480 


OR 


C 




2446 281D 


07490 


JR 


Z, FPEND 


; Neither SLOW nor FAST? 


2448 FDCB12DE 


07500 


SET 


3 9 ( I Y+ ' S ' - ' A ' ) 


;Set fast in flag 




07510 


IF 


@M0D4 




244C FDCB0CF6 07520 


SET 


S.dY+'M'-'A') 


;Set bit 6 in port mask 




07530 


ENDIF 






2450 0655 


07540 


LD 


B,55H 


; Ini t time slice byte 


2452 1808 


07550 
07560 ; 


JR 


SETCLK 


;Go set it 




07570 ; 


Turn off FAST 






07580 ; 








2454 FDCB129E 


07590 SETSLOW 


1 RES 


3 S (IY+ , S , - , A , ) 


; Reset the FAST bit 




07600 


IF 


@M0D4 




2458 FDCB0CB6 


07610 
07620 


RES 
ENDIF 


e.UY+'M'-'A') 


; Reset bit in port mask 


245C 78 


07630 SETCLK 


LD 


A,B 




245 D 322B00 


07640 


LD 


(TIMSL$),A 


;Set 55H=fast, FFH=slow 




07650 


IF 


GW0D4 




2460 FD7E0C 


07660 


LD 


A.dY+'M'-'A') 


; Update the port 


2463 D3EC 


07670 
07680 


OUT 
ENDIF 


(MODPORT),A 




2465 


07690 FPEND 
07700 ; 


EQU 


$ 






07710 ; 


Trace entry 






07720 ; 








2465 010100 


07730 TRACE 


LD 


BC,1 


; Ini t to pass by 


2468 78 


07740 


LD 


A,B 




2469 Bl 


07750 


OR 


C 




246A 280D 


07760 


JR 


Z.TROFF 


;Go if Trace off 


246C 3C 


07770 


INC 


A 




246D 200F 


07780 


JR 


NZ, TREND 


;Go if not entered 




07790 


IF 


@M0D4 




246F 11B107 


07800 


LD 


DE S TRACE_INT 


;Pt to trace SYSRES rtn 




07810 


ENDIF 








07820 


IF 


@MOD2 






07830 


LD 


DE,DO_TRACE 


;Address 




07840 


ENDIF 






2472 0E07 


07850 


LD 


C,7 


; Init to task 7 


2474 


07860 


(3@ADTSK 




;Turn TRACE (ON) 


2474 3E1D 


00016 


LD 


A, 29 




2476 EF 


00017 


RST 


40 




2477 1805 


07870 


JR 


TREND 




2479 0E07 


07880 TROFF 


LD 


C,7 


; Init to task 7 


247B 


07890 


@@RMTSK 




;Remove TRACE task 


247B 3E1E 


00018 


LD 


A, 30 




247D EF 


00019 


RST 


40 




247E 


07900 TREND 
07910 ; 


EQU 


$ 
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247E 010100 

2481 78 

2482 Bl 

2483 2809 

2485 3C 

2486 200A 
2488 FDCB12A6 
248C 1804 



08040 ; 
248E FDCB12E6 08050 BRKOFF 
2492 08060 BRKEND 

08070 



07920 ; 

07930 ; 

07940 BREAK 

07950 

07960 

07970 

07980 

07990 

08000 

08010 



Routine to handle BREAK 



;Init BREAK=0N 



2492 
2495 
2496 
2497 
2499 
249 B 
249C 
249E 
249F 
24A2 
24A3 
24A6 
24A9 



010100 

78 

Bl 

06FF 

2804 

3C 

200 B 

47 

CD5F29 

78 

32C21D 

CD5C29 



24A9 010100 
24AC 78 
24AD Bl 
24AE 06FF 
24 B0 2804 
24B2 3C 
24B3 200B 
24B5 47 
24B6 CD5F29 
24B9 78 
24BA 32C31D 
24BD CD5C29 
24C0 



24C0 01FFFF 
24C3 04 
24C4 281B 
24C6 79 
24C7 FE04 
24C9 3808 
24CB 21832A 
24CE CD1724 
24 Dl 180E 
24 D3 47 
24D4 CD5F29 



08090 

08100 DATE 

08110 

08120 

08130 

08140 

08150 

08160 

08170 

08180 DOFF 

08190 

08200 

08210 

08220 DATEND 

08230 ; 

08240 ; 

08250 ; 

08260 TIME 

08270 

08280 

08290 

08310 

08320 

08330 

08340 TOFF 

08350 

08360 

08370 

08380 TIMEND 

08390 ; 

08400 ; 

08410 ; 

08420 BSPARM 

08430 

08440 

08450 

08460 

08470 

08480 

08490 

08500 

08510 GUDBS 

08520 



LD BC.l 

LD A,B 

OR C 

JR Z, BRKOFF ;Jump if BREAK=OFF 

INC A ;Check Break=ON 

JR NZ, BRKEND ;Go if no parm used 

RES 4,(IY+ , S'- , A') ;Correct system flag 

JR BRKEND 

Disable <BREAK> key 

SET 4,(IY+ , S'-'A') 
EQU $ 

Date prompt suppression during BOOT 

; Ini t to pass by 



LD 

LD 

OR 

LD 

JR 

INC 

JR 

LD 

CALL 

LD 

LD 

CALL 

EQU 



BC,1 

A,B 

C 

B,0FFH 

Z,DOFF 

A 

NZ, DATEND 

B,A 

GETCFG 

A,B 



; Init to DATE Suppress 
;Go if suppress 

;Go if not entered 
;B=0 on no suppress 
;Get track 0, sector 2 
;Get back the code byte 



(DTPMT$&0FFH+SBUFF$),A 

PUTCFG ; Write it back 

$ 



Time prompt suppression during BOOT 

; Init to pass by 



LD 

LD 

OR 

LD 

JR 

INC 

JR 

LD 

CALL 

LD 

LD 

CALL 

EQU 



BC.l 

A S B 

C 

B,0FFH 

Z.TOFF 

A 

NZ S TIMEND 

B S A 

GETCFG 

A,B 



;Init to TIME Suppress 
;Go if suppress 

;Go if not entered 
;B=0 on no suppress 
;Get track 0, sector 2 
;Get back the code byte 



(TMPMT$&0FFH+SBUFF$),A 

PUTCFG ;Write it back 



BOOT Step rate adjust 



LD 

INC 

JR 

LD 

CP 

JR 

LD 

CALL 

JR 

LD 

CALL 



BC,-1 

B 

Z,BSPEND 

A,C 

4 

C, GUDBS 

HL,BADBS$ 

SETERR 

BSPEND 

B 5 A 

GETCFG 



;P/u parm 
;User entry? 
;Go if not entered 
;Transfer parm 

;Ok if < 4 

; else bad step rate 



;Save step 

;Get System Info Sector 
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24D7 2E73 


08530 




LD 


L,70H+3 


;Offset to data 


24D9 7E 


08540 




LD 


A 9 (HL) 


;P/u DCT+3 parms 


24 DA E6FC 


08550 




AND 


0FCH 


; Strip off boot step 


24 DC B0 


08560 




OR 


B 


; Merge new 


24 DD 77 


08570 




LD 


(HL),A 


; Stuff back 


24 DE CD5C29 


08580 




CALL 


PUTCFG 


; Write it back 


24E1 


08590 
08600 


BSPEND 


EQU 


$ 






08610 


i 


BLINK 


parm 






08620 


» 








24E1 010100 


08630 


BLINK 


LD 


BC,1 


;P/U parm 


24E4 78 


08640 




LD 


A,B 




24E5 Bl 


08650 




OR 


C 




24E6 3D 


08660 




DEC 


A 


;Specified? 


24E7 2829 


08670 




JR 


Z,BLIEND 


;Go if not 


24E9 3C 


08680 




INC 


A 




24 EA 2006 


08690 




JR 


NZ, BLNKON 


;Go if BLINK=ON 


24EC FDCB15F6 08700 




SET 


6 , ( I Y+ ' V ' - ' A ' ) 


;Turn off blinking 




08710 




IF 


0MOD2 






08720 




LD 


A,($CRSCHAR) 


;Get current char 




08730 




AND 


1FH 


;Keep size only 




08740 




JR 


SETBLK 


;Setup 




08750 




ENDIF 








08760 




IF 


@M0D4 




24F0 1820 


08770 
08780 




JR 
ENDIF 


BLIEND 


; Continue 


24F2 FDCB15B6 08790 


BLNKON 


RES 


6 9 (IY+' V'-'A' ) 


;Turn on blinking 


24F6 FEFF 


08800 




CP 


0FFH 


;If not just BLINK, 




08810 




IF 


@M0D4 




24F8 2012 


08820 
08830 




JR 
ENDIF 


NZ, SETBLK 


; set user cursor 




08840 




IF 


0MOD2 






08850 




JR 


Z s LARGE 


;Go if not 




08860 


BLIADJ 


SUB 


7 


;Force in range 0-7 




08870 




JR 


NC,BLIADJ 


;Go till in range 




08880 




ADD 


A s 7 


;Add back last sub 




08890 




OR 


01000000B 


;Set blink enable 1/16 




08900 




JR 


SETBLK 


;Continue 




08910 




ENDIF 






24FA 010000 


08920 LARGE 


LD 


BC,0 


; else test if large, 


24FD 0C 


08930 




INC 


C 


; small , or default 




08940 




IF 


0MOD2 






08950 




LD 


A,01000111B 


; Standard cursor 




08960 




ENDIF 








08970 




IF 


@M0D4 




24FE 3E5F 


08980 




LD 


A,'_' 


;Standard cursor 




08990 




ENDIF 






2500 2002 


09000 




JR 


NZ, SMALPRM 






09010 




IF 


0MOD2 






09020 




LD 


A ,01 000000 B 


;To large 




09030 




ENDIF 








09040 




IF 


@M0D4 




2502 3E8F 


09050 
09060 




LD 
ENDIF 


A,8FH 


;To large 


2504 010000 


09070 


SMALPRM 


LD 


BC,0 




2507 0C 


09080 




INC 


C 




2508 2002 


09090 




JR 


NZ, SETBLK 






09100 




IF 


@M0D2 






09110 




LD 


A,01000101B 


; Small 




09120 




ENDIF 








09130 




IF 


(3M0D4 





Page 447 



The Source 


LIBRARY Fi 


les 


SYSTEM - LS-DOS 


6.2 Page 00005 


250A 3E88 


09140 
09150 


LD 
ENDIF 


A,88H 


;Smal 1 


250C 4F 


09160 SETBLK 


LD 


C,A 


;Xfer cursor char to C 


250D 0608 


09170 


LD 


B,8 


;Cursor update function 


250F 


09180 


@(aVDCTL 






250F 3E0F 


00020 


LD 


A s 15 




2511 EF 


00021 


RST 


40 




2512 


09190 BLIEND 
09200 ; 


EQU 


$ 






09210 ; 


RESTORE 


parameter 






09220 ; 








2512 010100 


09230 RPARM 


LD 


BC S 1 


;P/U parm 


2515 78 


09240 


LD 


A S B 




2516 Bl 


09250 


OR 


C 




2517 3D 


09260 


DEC 


A 


; Specified? 


2518 280F 


09270 


JR 


Z.REND 


;Go if not 


251A 3C 


09280 


INC 


A 




25 IB 2001 


09290 


JR 


NZ s RSTRON 


;Go if RESTORE=on 


251D 3E 


09300 


DB 


3EH 


;Make LD A,n 


251 E AF 


09310 RSTRON 


XOR 


A 




251F 47 


09320 


LD 


B,A 


;Save step 


2520 CD5F29 


09330 


CALL 


GETCFG 


;Get config sector 


2523 2EC4 


09340 


LD 


L,RSTOR$&0FFH 


;Pt to RESTORE flag 


2525 70 


09350 


LD 


(HL),B 


; Stuff back 


2526 CD5C29 


09360 


CALL 


PUTCFG 


;Put it back 


2529 


09370 REND 
09380 ; 


EQU 


$ 






09390 ; 


Type ah 


ead processing 






09400 ; 








2529 010100 


09410 TYPE 


LD 


BC S 1 


;P/u Type parm value 


252C 78 


09420 


LD 


A,B 




252D Bl 


09430 


OR 


C 




252E 3D 


09440 


DEC 


A 


;Was Type used? 


252F 280D 


09450 


JR 


Z S TYPEND 


;Jump if TYPE not entered 


2531 3C 


09460 


INC 


A 




2532 2006 


09470 


JR 


NZ s TYPEON 


;Jump if TYPE=ON 


2534 FDCB038E 


09480 


RES 


l.dY+'D'-'A') 


;Turn TYPE off 


2538 1804 


09490 


JR 


TYPEND 




253A FDCB03CE 


09500 TYPEON 


SET 


l.UY+'D'-'A') 


;Turn TYPE on 


253E 


09510 TYPEND 
09520 ; 


EQU 


$ 






09530 ; 


Process 


SMOOTH 






09540 ; 








253E 010100 


09550 SMOOTH 


LD 


BC S 1 


;P/u Smooth parm value 


2541 78 


09560 


LD 


A S B 




2542 Bl 


09570 


OR 


C 




2543 3D 


09580 


DEC 


A 


;Was Smooth used? 


2544 2817 


09590 


JR 


Z S SMEND 


; Ski p if not entered 


2546 3C 


09600 


INC 


A 




2547 200B 


09610 


JR 


NZ,SMON 


;Go if Smooth=ON 




09620 


IF 


@M0D4 




2549 FDCB039E 


09630 


RES 


S.dY+'D'-'A') 


;Show OFF in DFLAG$ 


254D 3E00 


09640 


LD 


A 9 00 


;Set to store NOP 


254F 320E00 


09650 
09660 


LD 
ENDIF 


(FDDINT$),A 


; put it there 


2552 1809 


09670 


JR 


SMEND 




2554 


09680 SMON 


EQU 


$ 






09690 


IF 


0MOD4 




2554 FDCB03DE 


09700 


SET 


S.dY+'D'-'A') 


;Show ON in DFLAG$ 


2558 3EF3 


09710 


LD 


A S 0F3H 


;DI opcode 


255A 320E00 


09720 


LD 


(FDDINT$),A 


; put it there 
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09730 


ENDIF 






255D 


09740 SMEND 
09750 ; 


EQU 


$ 






09760 ; 


Routine 


to process 


HERTZ selection 




09770 ; 








255D 010100 


09780 HERTZ50 


LD 


BC.l 


;P/u H50 parm value 


2560 78 


09790 


LD 


A,B 




2561 Bl 


09800 


OR 


C 




2562 3D 


09810 


DEC 


A 


;Check if parm entered 


2563 2805 


09820 


JR 


Z,HZ50END 


;Go if not 


2565 3E19 


09830 


LD 


A, 25 


;Init 25 ints/sec 


2567 325007 


09840 


LD 


(HERTZ$),A 


;Put value in timer code 


256A 


09850 HZ50END EQU 


$ 




256A 010100 


09860 HERTZ60 


LD 


BC,1 


;P/u H60 parm value 


256D 78 


09870 


LD 


A,B 




256E Bl 


09880 


OR 


C 




256F 3D 


09890 


DEC 


A 


;Check if parm entered 


2570 2805 


09900 


JR 


Z,HZ60END 


;Go if not 


2572 3E1E 


09910 


LD 


A, 30 


;Init 30 ints/sec 


2574 325007 


09920 


LD 


(HERTZ$),A 


; & load it to timer 


2577 


09930 HZ60END 
09940 ; 


EQU 


$ 






09950 ; 


Routine 


to process 


GRAPHIC 




09960 ; 








2577 010100 


09970 GRAPHI 


LD 


BC S 1 


;Init for bypass 


257A 78 


09980 


LD 


A S B 




257B Bl 


09990 


OR 


C 




257C 3D 


10000 


DEC 


A 


;Check if parm entered 


257D 280D 


10010 


JR 


Z 5 GRAEND 


;Go if not entered 


257F 3C 


10020 


INC 


A 


;Test of GRAPHIC=off 


2580 2806 


10030 


JR 


Z,GROFF 


;Go if off 


2582 FDCB03FE 


10040 


SET 


7 9 (IY+' D'-' 


A' ) ; else turn on 


2586 1804 


10050 


JR 


GRAEND 




2588 FDCB03BE 


10060 GROFF 


RES 


7 S (IY+ , D'-' 


A 1 ) ;Turn graphic off 


258C 


10070 GRAEND 
10080 ; 


EQU 


$ 






10090 ; 


Routine 


to process 


ALIVE 




10100 ; 








258C 010100 


10110 ALIVE 


LD 


BC S 1 


;P/u Alive parm value 


258F 78 


10120 


LD 


A,B 




2590 Bl 


10130 


OR 


C 




2591 3D 


10140 


DEC 


A 


;Check if entered 


2592 2866 


10150 


JR 


Z,ALVEND 


; Bypass if parm omitted 


2594 3C 


10160 


INC 


A 




2595 2007 


10170 


JR 


NZ s ALIVEON 


;Jump if ALIVE=0N 




10180 


IF 


@MOD2 






10190 


LD 


C 9 6 


;Slot alive 




10200 


ENDIF 








10210 


IF 


@M0D4 




2597 0E03 


10220 
10230 


LD 
ENDIF 


C s 3 


;Slot alive 


2599 


10240 


(a@RMTSK 




;Remove it if OFF 


2599 3E1E 


00022 


LD 


A, 30 




259B EF 


00023 


RST 


40 




259C 185C 


10250 
10260 ; 


JR 


ALVEND 




259E 


10270 ALIVEON 


EQU 


$ 






10280 


IF 


@MOD2 






10290 . 


LD 


C s 6 


;Slot alive 




10300 


LD 


DE,DO_ALIVE 


;Task address 


259E 


10310 


@@ADTSK 




;Add task 
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00024 


LD 


A 9 29 






00025 


RST 


40 






10320 


ENDIF 








10330 


IF 


(3M0D4 




259E CD7729 


10340 


CALL 


GOTMEM? 


;Is HIGH$ frozen? 


25A1 DA1024 


10350 


JP 


C.NOMEM 


;Quit if so 


25A4 CD6F29 


10360 


CALL 


GETHI$ 


;Get address for Alive 


25A7 22D325 


10370 


LD 


(ALVBGN+2),HL 


; Stuff last byte used 


25AA 012900 


10380 


LD 


BC 9 ALVEND-ALVBGN ;Get len of code 


25AD AF 


10390 


XOR 


A 




25AE ED42 


10400 


SBC 


HL,BC 


;Calc new HIGH$ 


25B0 0600 


10410 


LD 


B,0 




25B2 


10420 


@@HIGH$ 




;Stuff new HIGH$ 


25B2 3E64 


00026 


LD 


A s 100 




25B4 EF 


00027 


RST 


40 




25B5 23 


10430 


INC 


HL 


; Point to module start 


25B6 E5 


10440 


PUSH 


HL 


;Save start 


25B7 0E10 


10450 


LD 


C 9 ALVTCB-ALVBGN+2 


25B9 09 


10460 


ADD 


HL,BC 


;Point to alive task 


25 BA 22DF25 


10470 


LD 


(ALVTCB) S HL 


; & stuff ALIVE TCB 


25BD E3 


10480 


EX 


(SP),HL 


;Rcvr start of module 


25BE EB 


10490 


EX 


DE S HL 


; into DE 


25BF 21D125 


10500 


LD 


HL,ALVBGN 




25C2 012900 


10510 


LD 


BC,ALVEND-ALVBGN 


25C5 EDB0 


10520 


LDIR 




;Move to high memory 


25C7 Dl 


10530 


POP 


DE 


;Rcvr start of task 


25C8 IB 


10540 


DEC 


DE 


;Back up to TCB 


25C9 IB 


10550 


DEC 


DE 




25CA 0E03 


10560 


LD 


C s 3 


;Add as task 3 


25CC 


10570 


@(8ADTSK 






25CC 3E1D 


00028 


LD 


A s 29 




25CE EF 


00029 


RST 


40 




25CF 1829 


10580 
10590 
10600 ; 


JR 
ENDIF 


ALVEND 






10610 ; 


ALIVE h 


igh memory module 




10620 ; 










10630 


IF 


@M0D4 




25D1 18FE 


10640 ALVBGN 


JR 


$ 




25 D3 0000 


10650 


DW 


$-$ 




25D5 05 


10660 


DB 


5 S 'ALIVE ! 




41 4C 49 


56 45 








25 DB 0000 


10670 


DW 


0,0 




0000 










25 DF 0000 


10680 ALVTCB 


DW 







25E1 214F00 


10690 


LD 


HL,79 


;Get character at 0,79 


25E4 E5 


10700 


PUSH 


HL 




25 E5 0601 


10710 


LD 


B,l 


;Set function 1 


25E7 CD990B 


10720 


CALL 


@VDCTL 


;P/u character currently 


25 EA FEA3 


10730 


CP 


0A3H 


; on the screen and 


25 EC 3E93 


10740 


LD 


A,93H 


; exchange it 


25 EE 2802 


10750 


JR 


Z S ALIVE1 




25F0 3EA3 


10760 


LD 


A,0A3H 




25F2 El 


10770 ALIVE1 


POP 


HL 




25F3 0602 


10780 


LD 


B 5 2 


;Function to put char 


25F5 4F 


10790 


LD 


C,A 




25F6 CD990B 


10800 


CALL 


(3VDCTL 


; at row, col 


25F9 C9 


10810 
10820 


RET 
ENDIF 






25 FA 


10830 ALVEND 
10840 ; 


EQU 


$ 
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10850 ; 


Routi 


ne to process : 


SYSRES 




10860 ; 








25FA 01FFFF 


10870 SYSRES 


LD 


BC.-l 


;P/u Sysres parm value 


25FD 04 


10880 


INC 


B 


;Test if parm entered 


25FE CA3B27 


10890 


JP 


Z S RESEND 


;Go if not 


2601 CD7729 


10900 


CALL 


GOTMEM? 


;Is high memory available 


2604 DA1024 


10910 


JP 


C.NOMEM 


;Quit if not 


2607 79 


10920 


LD 


A,C 


;Get module to reside 


2608 B7 


10930 


OR 


A 




2609 2837 


10940 


JR 


Z, BADSYS 


;Cannot sysres 


260B FE02 


10950 


CP 


2 


;Check if it is SYS2 


260D 2005 


10960 


JR 


NZ,TEST6 


;Go if not 


260F 217404 


10970 


LD 


HL,DCT$+4 


; Point to SYSTEM DCT 


2612 CBBE 


10980 


RES 


7,(HL) 


; & allow CKDRV now 


2614 FE06 


10990 TEST6 


CP 


6 




2616 3808 


11000 


JR 


C, GUDSYS 


;Can sysres 1-5 


2618 FE09 


11010 


CP 


9 




261A 3826 


11020 


JR 


C, BADSYS 


;Cannot sysres 6-8 


261C FE0D 


11030 


CP 


13 




261E 3022 


11040 


JR 


NC, BADSYS 


; Nothing > 12 yet 


2620 F5 


11050 GUDSYS 


PUSH 


AF 


;Save sysres req 


2621 216D1A 


11060 


LD 


HL,HKRES$+1 


;Check if the driver 


2624 5E 


11070 


LD 


E,(HL) 


; is already resident 


2625 23 


11080 


INC 


HL 




2626 56 


11090 


LD 


D,(HL) 




2627 217F1A 


11100 


LD 


HL,CKMOD(a 


;Standard address 


262A B7 


11110 


OR 


A 


;Reset carry 


262B ED52 


11120 


SBC 


HL S DE 


;No driver if = 


262D 2871 


11130 


JR 


Z,PUTDVR 


;Go and instal 1 driver 


262F 21E0FF 


11140 


LD 


HL s -32 


;Find restab$ pos 


2632 19 


11150 


ADD 


HL S DE 


;Pt to vector table 


2633 07 


11160 


RLCA 




;Request x 2 


2634 85 


11170 


ADD 


A,L 




2635 6F 


11180 


LD 


L 5 A 




2636 3001 


11190 


JR 


NC,$+3 




2638 24 


11200 


INC 


H 


;RESTAB$ + entry index 


2639 23 


11210 


INC 


HL 


;Pt to hi order 


263A 7E 


11220 


LD 


A,(HL) 


;P/u hi order 


263B B7 


11230 


OR 


A 




263C 281B 


11240 


JR 


Z s MOVITIN 


;Go if not there 


263E 21022A 


11250 


LD 


HL,MODRES$ 


; else show already res'ed 


2641 DD 


11260 


DB 


0DDH 




2642 21E429 


11270 BADSYS 


LD 


HL S BADSYS$ 




2645 CD1724 


11280 


CALL 


SETERR 


;Log & Set error 


2648 Fl 


11290 


POP 


AF 




2649 C33B27 


11300 


JP 


GETSEC2 




264C 18FE 


11310 RES1 


JR 


$ 


;No real entry 


264E 0000 


11320 


DW 


$-$ 


;Last used 


2650 04 


11330 


DB 


4 9 'SYS ' 




53 59 53 


20 








2655 0000 


11340 


DW 


S 




0000 










2658 


11350 RES1E 


EQU 


$-1 




2659 326900 


11360 MOVITIN 


LD 


(OVRLY$),A 


;Show no overlay res 


265C Fl 


11370 


POP 


AF 


;Rcvr requested SYS 


265D F5 


11380 


PUSH 


AF 




265 E C602 


11390 


ADD 


A s 2 


;Adjust for dec 


2660 F680 


11400 


OR 


80H 


;Set Sys request 


2662 E5 


11410 


PUSH 


HL 


;Save restab$ addr 


2663 CD7F1A 


11420 


CALL 


CKMODia 


;Load SYSn, no exec 


2666 CD6F29 


11430 


CALL 


GETHI$ 


;P/u HIGHS 
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2669 224E26 


11440 


LD 


(RES1+2) 5 HL 


;Save in header 


266C EB 


11450 


EX 


DE,HL 




266D ED4BFE23 


11460 


LD 


BC,(MAXCOR$-2) 


;P/u length of SYSx 


2671 21001E 


11470 


LD 


HL.1E00H 


;Pt to start of overlay 


2674 09 


11480 


ADD 


HL,BC 




2675 2B 


11490 


DEC 


HL 


; Point to last byte 


2676 C5 


11500 


PUSH 


BC 


;Save length 


2677 EDB8 


11510 


LDDR 






2679 CI 


11520 


POP 


BC 


;Rcvr length of SYSx 


26 7A 78 


11530 


LD 


A 9 B 


; & stuff in front 


267B 12 


11540 


LD 


(DE),A 


; of SYSRESed module 


267C IB 


11550 


DEC 


DE 




267D 79 


11560 


LD 


A,C 




267E 12 


11570 


LD 


(DE),A 




267F El 


11580 


POP 


HL 


;Rcvr RESTAB ptr 


2680 72 


11590 


LD 


(HL) 9 D 


;Save hi order addr 


2681 2B 


11600 


DEC 


HL 




2682 73 


11610 


LD 


(HL) 9 E 


;Save low order addr 


2683 Fl 


11620 


POP 


AF 


;Rcvr module requested 


2684 FE0A 


11630 


CP 


10 


; Convert to ASCII 


2686 3802 


11640 


JR 


C,$+4 




2688 C607 


11650 


ADD 


A 9 7 




268A C630 


11660 


ADD 


A,'0' 




268C 215426 


11670 


LD 


HL s RESl+8 




268F 77 


11680 


LD 


(HL) S A 


; Stuff module name 


2690 IB 


11690 
11700 


DEC 


DE 


;Pt to 1st free byte 
s & move in the 


2691 010D00 


11710 


LD 


BC 5 13 


; linkage protocol 


2694 215826 


11720 


LD 


HL S RES1E 




2697 EDB8 


11730 


LDDR 






2699 EB 


11740 


EX 


DE S HL 




26 9 A 


11750 


@@HIGH$ 




;Stuff new HIGH$ (B=0) 


269A 3E64 


00030 


LD 


A, 100 




269C EF 


00031 


RST 


40 




269D C33B27 


11760 
11770 ; 


JP 


RESEND 




26A0 CD6F29 


11780 PUTDVR 


CALL 


GETHI$ 


;P/u high mem 


26 A3 22CF26 


11790 


LD 


(RESB6N+2) 9 HL 


;Stuff last used 


26A6 016E00 


11800 


LD 


BC 9 RESEND-RESBGN 


26A9 ED42 


11810 


SBC 


HL 9 BC 


;Make space for driver 


26AB 0600 


11820 


LD 


B 9 




26 AD 


11830 


<3@HIGH$ 




; Stuff new value 


26AD 3E64 


00032 


LD 


A, 100 




26 AF EF 


00033 


RST 


40 




26B0 E5 


11840 


PUSH 


HL 


;Save new HIGH$ 


26B1 110D00 


11850 


LD 


DE 9 13 


;Pt to RESTAB$-3 


26B4 19 


11860 


ADD 


HL,DE 




26B5 220827 


11870 


LD 


(RESD1+1) 9 HL 


; Stuff ptr to RESTAB$-3 


26B8 El 


11880 


POP 


HL 




26B9 23 


11890 


INC 


HL 


;Resbgn 


26BA E5 


11900 


PUSH 


HL 




26BB EB 


11910 


EX 


DE 9 HL 


; Where it goes to DE 


26BC 21CD26 


11920 


LD 


HL 9 RESBGN 


;Where it's now 


26BF EDB0 


11930 


LDIR 




;Move up to high 


26C1 El 


11940 


POP 


HL 


;Rcvr where it got to 


26C2 112F00 


11950 


LD 


DE 9 32+RESTAB$-RESBGN ; Index start of dvr 


26C5 19 


11960 


ADD 


HL 9 DE 


;Pt to driver entry 


26C6 226D1A 


11970 


LD 


(HKRES$+1) 9 HL 


;Hook into SYS0 


26C9 Fl 


11980 


POP 


AF 


;Rcvr code & loop 


26CA C32026 


11990 
12000 ; 


JP 


GUDSYS 


; to get the request 
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26CD 18FE 12010 RESBGN JR 

26CF 0000 12020 DW 

26D1 06 12030 DB 

53 59 53 52 45 53 

26D8 0000 12040 DW 



$-$ 
6,'SYSRES' 



;No real entry 



26DC 0100 12050 

0000 0000 0000 

26 EC 0000 12060 

0000 0000 0000 

12070 

26FC E5 12080 

26FD F5 12090 

26FE 216900 12100 

2701 AE 12110 

2702 E60F 12120 
2704 2830 12130 

2706 Fl 12140 

2707 21DD26 12150 
270A F5 12160 
270B E60F 12170 
270D 07 12180 
270E 85 12190 
270F 6F 12200 
2710 3001 12210 

2712 24 12220 

2713 7E 12230 

2714 B7 12240 

2715 281F 12250 

2717 2B 12260 

2718 6E 12270 

2719 67 12280 
271A D5 12290 
271B C5 12300 
271C 4E 12310 
271D 23 12320 
271E 46 12330 
271F 23 12340 

2720 11001 E 12350 
2723 ED53751A 12360 

2727 C5 12370 

2728 EDB0 12380 
272A El 12390 
272B 22FE23 12400 
272E CI 12410 
272F Dl 12420 

2730 Fl 12430 

2731 32701A 12440 

2734 El 12450 

2735 C9 12460 

2736 Fl 12470 

2737 El 12480 

2738 C37F1A 12490 
273B 12500 

12510 
12520 
12530 

273B 3A7B27 12540 

273E B7 12550 

273F C45F29 12560 

2742 01FFFF 12570 



RESTAB$ 


DW 


1,0,0,0,0,0,1,1 




0000 0000 0100 0100 






DW 


0,0,0,0,0,0,0,0 




0000 0000 0000 


0000 




RESDVR 


PUSH 


HL 






PUSH 


AF 


;Save SYS needed 




LD 


HL,OVRLY$ 


;Check if already in 




XOR 


(HL) 


; overlay area 




AND 


0FH 


; Strip garbage 




JR 


Z, NOTRES 






POP 


AF 




RESD1 


LD 


HL,RESTAB$+1 


;P/u table ptr 




PUSH 


AF 






AND 


0FH 


;Check if in high mem 




RLCA 




;X 2 




ADD 


A,L 






LD 


L,A 






JR 


NC,$+3 






INC 


H 






LD 


A,(HL) 


;P/u hi order 




OR 


A 






JR 


Z, NOTRES 


;Go if not in high 




DEC 


HL 


;Pt to low 




LD 


L,(HL) 


;P/u lo order vector 




LD 


H,A 


;Xfer hi order 




PUSH 


DE 


;Save these regs 




PUSH 


BC 






LD 


C,(HL) 


;P/u module length 




INC 


HL 


; into BC 




LD 


B,(HL) 






INC 


HL 


; Point to module start 




LD 


DE,1E00H 


; Point to overlay region 




LD 


(HKRES$+9),DE 


;Upd TRAADR 




PUSH 


BC 


;Save the length 




LDIR 








POP 


HL 


;Rcvr the length 




LD 


(MAXCOR$-2),HL 


; Stuff pointer 




POP 


BC 


;Restore regs 




POP 


DE 






POP 


AF 






LD 


(HKRES$+4),A 


;Show its resident 




POP 


HL 


; in tempy loc'n 




RET 






NOTRES 


POP 


AF 






POP 


HL 






JP 


CKMOD@ 




RESEND 


EQU 


$ 




5 
> 


Routine 


; to process DRIVE 


i parameter 


GETSEC2 


LD 


A,(CYLPRM+1) 


;If CYL=c entered, 




OR 


A 


; get config sector 




CALL 


NZ,GETCFG 




DRIVE 


LD 


BC,-1 
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2745 DD21701D 

2749 FD217004 
274D 04 

274E 280B 

2750 79 

2751 FE08 
2753 D21424 
2756 

2756 3E51 

2758 EF 

2759 FDE5 
275B 

275B FDE5 
275D El 
275E 1190FB 

2761 19 

2762 EB 

2763 DD19 
2765 



2765 010100 

2768 78 

2769 Bl 
276A 3D 
276B 280D 
276D 3C 
276E 2806 

2770 FDCB03FE 
2774 1804 
2776 FDCB03BE 
277A 



277A 
277D 
277E 
277F 
2781 
2785 
2787 
278A 
278B 
278E 
2791 
2793 
2794 
2795 
2797 
2799 
279B 
279D 
27A0 
27A3 
27A4 
27A7 
27A9 
2 7 AC 



78 

Bl 

282B 

DDCB036E 

280C 

3A4327 

B7 

21A629 

C41724 

1819 

79 

3D 

FE22 

3804 

FE60 

380C 

21C029 

CD1724 

AF 

327B27 

1803 

DD7706 



12580 
12590 
12600 
12610 
12620 
12630 
12640 
12650 
00034 
00035 
12660 
12670 
12680 
12690 
12700 
12710 
12720 
12730 
12740 
12750 
12760 
12770 
12780 
12790 
12800 
12810 
12820 
12830 
12840 
12850 
12860 
12870 
12880 
12890 
12900 
12910 
12920 
12930 
12940 
12950 
12960 
12970 
12980 
12990 
13000 
13010 
13020 
13030 
13040 
13050 
13060 
13070 
13080 
13090 
13100 
13110 
13120 
13130 
13140 
13150 
13160 



CKEI 
ADJEI 



DRVLOOP 



WPARM 



WPON 

WPOFF 
WPEND 



CYLPRM 



CYL1 



BADCYL 



GUDCYL 
CYLEND 



LD 

LD 

INC 

JR 

LD 

CP 

JP 

@@GTDCT 

LD 

RST 

PUSH 

EQU 

PUSH 

POP 

LD 

ADD 

EX 

ADD 

EQU 



IX,SBUFF$+70H 

IY,DCT$ 

B 

Z,CKEI 

A,C 

8 

NC, PRIOR 

A, 81 

40 

IY 

$ 

IY 

HL 

DE,-DCT$ 

HL 9 DE 

DE,HL 

IX 9 DE 



;Pt to DCT sector fields 
;Init to do all DCT$'s * 

;Go if Drive not entered 

; Drive in range? 
;Go if > 7 
;Get its DCT 



;Save the DCT address 



Calc IY offset into 
DCTs to adjust IX 
without affecting IY 



Routine to process WP parameter 



LD 

LD 

OR 

DEC 

JR 

INC 

JR 

SET 

JR 

RES 

EQU 



BC 9 1 

A,B 

C 

A 

Z 9 WPEND 

A 

Z 9 WP0FF 

7,(IY+3) 

WPEND 

7 s (IY+3) 

$ 



;P/u WP parm value 



;Check if entered 
; and go if not 

;Go if OFF 

;Turn on write protect 

;Turn off write protect 



Routine to process CYL parameter 



LD 

LD 

OR 

JR 

BIT 

JR 

LD 

OR 

LD 

CALL 

JR 

LD 

DEC 

CP 

JR 

CP 

JR 

LD 

CALL 

XOR 

LD 

JR 

LD 

EQU 



BC s 

A S B 

C 

Z 9 CYLEND 

5 9 (IX+3) 

Z 9 CYL1 

A 9 (DRIVE+1) 

A 

HL 9 N0CYL8$ 

NZ 9 SETERR 

DISABL 

A S C 

A 

34 

C 9 BADCYL 

96 

C S GUDCYL 

HL 9 BADCYL$ 

SETERR 

A 

(CYLPRM+1) 9 A 

DISABL 

(IX+6) 9 A 



;P/u Cyl parm value 



;Go if parm not entered 

;If drive is 8", 

; can't do it 

;If drive entered, 

; give error msg 

;' Can't CYL on 8" drive 

;Msg if DRIVE=d 

;P/u user entry 

;Not < 35 al lowed 

;Go if bad 

;Max for 5-1/4" floppy 

;Good if < 96 

; "Cyl out of range 

;Dsply and quit 



;Stuff default DCT 



Page 454 



The Source 


LIBRARY F 


iles 


SYSTEM - LS-DOS 6.2 Page 00012 




13170 ; 










13180 ; 


Routine to process 


DISABL parameter 




13190 ; 








27AC 010000 


13200 DISABL 


LD 


BC 9 


;P/u parm value 


27AF 78 


13210 


LD 


A 9 B 




27B0 Bl 


13220 


OR 


C 




27B1 280A 


13230 


JR 


Z S ENABLE 


;Go if not DISABLE 


27B3 3A4327 


13240 


LD 


A 9 (DRIVE+1) ;Don't permit disable 


27B6 3C 


13250 


INC 


A 


; if DRIVE parm not 


27B7 2810 


13260 


JR 


Z,STEP 


; entered 


27B9 3EC9 


13270 


LD 


A S 0C9H 


;Init disable byte 


27BB 1809 


13280 


JR 


ENADIS 




27 BD 010000 


13290 ENABLE 


LD 


BC 9 


;P/u parm value 


27C0 78 


13300 


LD 


A 9 B 




27C1 Bl 


13310 


OR 


C 




27C2 2805 


13320 


JR 


Z,STEP 


;Go if not ENABLE 


27C4 3EC3 


13330 


LD 


A 9 0C3H 


; Init enable byte 


27C6 FD7700 


13340 ENADIS 
13350 ; 


LD 


(IY) S A 


; Stuff Ena or Dis byte 




13360 ; 


Routine to process 


STEP parameter 




13370 ; 








27C9 01FFFF 


13380 STEP 


LD 


BC.-l 


;P/u Step parm value 


27CC 04 


13390 


INC 


B 




27CD 2815 


13400 


JR 


Z 9 STEPEND 


;Go if STEP not entered 


27CF 79 


13410 


LD 


A S C 




27D0 FE04 


13420 


CP 


4 


;Step must be < 4 


27D2 D21424 


13430 


JP 


NC.PRMERR 


;Quit if out of range 


27D5 FDCB0466 13440 


BIT 


4 9 (IY+4) 


;Alien controller? 


27D9 2039 


13450 


JR 


NZ S WDESD 


;Bypass if alien 


27DB FD7E03 


13460 


LD 


A 9 (IY+3) 


;P/u DCT byte and 


27DE E6FC 


13470 


AND 


0FCH 


; mask out old step 


27E0 Bl 


13480 


OR 


C 


;0r in the new value 


27E1 FD7703 


13490 


LD 


(IY+3) 9 A 


; and put back in DCT 


27E4 


13500 STEPEND 
13510 ; 


EQU 


$ 






13520 ; 


Routine 


to process 


DELAY parameter 




13530 ; 








27E4 010100 


13540 DELAY 


LD 


BC 9 1 


;P/u the parm value 


27E7 78 


13550 


LD 


A 9 B 




27E8 Bl 


13560 


OR 


C 




27E9 3D 


13570 


DEC 


A 


; Check if entered 


27EA 2810 


13580 


JR 


Z 9 CKDRV 


;Go if no delay entered 


27EC 3C 


13590 


INC 


A 


;Check if OFF 


27ED 0600 


13600 


LD 


B,0 


; Init delay=on 


27 EF 2002 


13610 


JR 


NZ 9 DELAY1 


;Go if ON 


27F1 0604 


13620 


LD 


B,4 


; Init delay=off 


27F3 FD7E03 


13630 DELAY1 


LD 


A,(IY+3) 


; Update delay 


27F6 E6FB 


13640 


AND 


0FBH 


; in DCT 


27F8 B0 


13650 


OR 


B 




27F9 FD7703 


13660 
13670 ; 


LD 


(IY+3),A 






13680 ; 


Routine 


to process 


CKDRV parameter 




13690 ; 








27FC 010100 


13700 CKDRV 


LD 


BC 9 1 


;P/u Ckdrv parm value 


27FF 78 


13710 


LD 


A 9 B 




2800 Bl 


13720 


OR 


C 




2801 3D 


13730 


DEC 


A 


;Check if entered 


2802 2810 


13740 


JR 


Z,WDESD 


;Go if not entered 


2804 3C 


13750 


INC 


A 


;See if OFF or ON 


2805 0600 


13760 


LD 


B,0 


; Init ckdrv=on 


2807 2002 


13770 


JR 


NZ,CKDRV1 


;Go if ON 
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2809 0680 


13780 


LD 


B,80H 


280B FD7E04 


13790 CKDRV1 


LD 


A.CIY+4) 


280E E67F 


13800 


AND 


7FH 


2810 B0 


13810 


OR 


B 


2811 FD7704 


13820 


LD 


(IY+4),A 


2814 3A4327 


13830 WDESD 


LD 


A,(DRIVE+1) 


2817 3C 


13840 


INC 


A 


2818 2014 


13850 


JR 


NZ,PUTSEC2 


281A 110A00 


13860 


LD 


DE,10 


281D DD19 


13870 


ADD 


IX, DE 


281F FD19 


13880 


ADD 


IY,DE 


2821 FDE5 


13890 


PUSH 


IY 


2823 El 


13900 


POP 


HL 


2824 7D 


13910 


LD 


A,L 


2825 FEC0 


13920 


CP 


80+70H 


2827 DA6527 


13930 


JP 


CDRVLOOP 


282A 210000 


13940 


LD 


HL,0 


282D E5 


13950 


PUSH 


HL 


282E 3A7B27 


13960 PUTSEC2 


LD 


A 9 (CYLPRM+1) 


2831 B7 


13970 


OR 


A 


2832 C45C29 


13980 
13990 ; 


CALL 


NZ S PUTCFG 




14000 ; 


Routine 


to process D 




14010 ; 






2835 110000 


14020 DVRPARM 


LD 


DE,0 


2838 7A 


14030 


LD 


A,D 


2839 B3 


14040 


OR 


E 


283A CAD928 


14050 


JP 


Z S DVR4 


283D 3C 


14060 


INC 


A 


283E 2823 


14070 


JR 


Z,GETN3 


2840 219E2B 


14080 


LD 


HL S FCB1+1 


2843 E5 


14090 


PUSH 


HL 


2844 1A 


14100 GETNl 


LD 


A S (DE) 


2845 FE0D 


14110 


CP 


CR 


2847 2815 


14120 


JR 


Z 9 GETN2 


2849 FE2C 


14130 


CP 


» 


284B 2811 


14140 


JR 


Z,GETN2 


284D FE22 


14150 


CP 


i H i 


284F 280D 


14160 


JR 


Z,GETN2 


2851 FE29 


14170 


CP 


')' 


2853 2809 


14180 


JR 


Z S GETN2 


2855 FE03 


14190 


CP 


3 


2857 2805 


14200 


JR 


Z,GETN2 


2859 77 


14210 


LD 


(HL),A 


285A 13 


14220 


INC 


DE 


285B 23 


14230 


INC 


HL 


285C 18E6 


14240 


JR 


GETN1 


285E 360D 


14250 GETN2 


LD 


(HL) S CR 


2860 El 


14260 


POP 


HL 


2861 1844 


14270 


JR 


DVR2 


2863 


14280 GETN3 


@@DSPLY 


EIPMPT 




00036 


IFEQ 


01H.1 


2863 21212A 


00037 


LD 


HL, EIPMPT 




00038 


ENDIF 




2866 3E0A 


00039 


LD 


A, 10 


2868 EF 


00040 


RST 


40 


2869 219E2B 


14290 


LD 


HL,FCB1+1 


286C 010018 


14300 


LD 


BC,24<8 


286F 


14310 


@@KEYIN 




286F 3E09 


00041 


LD 


A,9 


2871 EF 


00042 


RST 


40 



6.2 Page 00013 

;Set bit 7, ckdrv off 

; Update ckdrv bit 

; by removing old state, 

; merging or 80H 

; and putting back in DCT 

; Drive parm used prev ? 

;Go if DRIVE entered 

; else loop thru all DCTs 

.Advance to next DCT 



;Xfer DCT start to HL 
;Ck on end of DCTs 
; Off set is 70H 
;Loop until done 
;Show no DCT given 

;If CYL=c entered 
; put config sector 



DRIVER parameter 

;P/u parm value 



;Go if DRIVER not entered 

Full name given? 

Go if not & prompt 
else pick it up 

Save ptr to start 
;P/u name char 

;Exit on eol 

;Exit on end of parm 

;Exit on closing quote 

;Exit on end of parms 

;Exit on JCL line end 
; else xfer the char 



;Loop 

;End with CR 

;Recover name ptr 

:"Enter dct dvr name 



;Pt to buffer 
;24 char max 
;Get f i lespec 



Page 456 



The Source 


LIBRARY Fi 


les 


SYSTEM - LS-DOS 


6.2 Page 00014 


2872 3033 


14320 
14330 




JR 


NC.DVR2 


;Go if not BREAK 




14340 




BREAK entered on DRIVER 


request 




14350 




Reset a 


11 drive code table positions 




14360 




if DRIVE not entered 






14370 


» 








2874 CD5F29 


14380 




CALL 


GETCFG 


;Get SIS 


2877 210019 


14390 




LD 


HL,SBUFF$+70H-DCT$ ;Pt to tables " 


28 7 A 3A4327 


14400 


DDCT1 


LD 


A,(DRIVE+1) 


;Was Drive entered? 


287D 3C 


14410 




INC 


A 




287E Dl 


14420 




POP 


DE 


;Rcvr drive # 


287F 2003 


14430 




JR 


NZ,DDCT2 




2881 117004 


14440 




LD 


DE,DCT$ 


;Else use all 8 


2884 19 


14450 


DDCT2 


ADD 


HL,DE 


; Index the specific DCT 


2885 7B 


14460 


DVRA 


LD 


A,E 




2886 FE98 


14470 




CP 


40+70H 




2888 3EC9 


14480 




LD 


A,0C9H 


; Disable drives 4-7 


288A 3002 


14490 




JR 


NC.DVRB 




288C 3EC3 


14500 




LD 


A,0C3H 




288 E 77 


14510 


DVRB 


LD 


(HL) S A 


; Stuff vector (JP/RET) 


288F 2C 


14520 




INC 


L 


;Pt to default DCT+3 


2890 2C 


14530 




INC 


L 




2891 2C 


14540 




INC 


L 




2892 1C 


14550 




INC 


E 


;Pt to resident DCT+3 


2893 1C 


14560 




INC 


E 




2894 1C 


14570 




INC 


E 




2895 010700 


14580 




LD 


BC S 7 


;Shift defaults to 


2898 EDB0 


14590 




LDIR 




; resident DCT 


289A 3A4327 


14600 


DVRC 


LD 


A S (DRIVE+1) 


;Test if drive entered 


289D 3C 


14610 




INC 


A 




289E 203A 


14620 




JR 


NZ S SYSPRM 


;Go if yes 


28A0 7B 


14630 




LD 


A S E 


;Ck on end of DCTs 


28A1 FEC0 


14640 




CP 


80+70H 




28A3 30E0 


14650 




JR 


NC,DVRA 


;Loop until all 8 


28A5 1833 


14660 




JR 


SYSPRM 




28A7 7E 


14670 


DVR2 


LD 


A S (HL) 


;Is first char <ENTER>? 


28A8 FE0D 


14680 




CP 


CR 




28AA 282D 


14690 




JR 


Z.DVR4 


;Bypass if default 


28AC CD7729 


14700 




CALL 


GOTMEM? 




28AF Dl 


14710 




POP 


DE 


;Pop to keep stack 


28B0 DA1024 


14720 




JP 


C.NOMEM 


; straight if error 


28B3 D5 


14730 




PUSH 


DE 




28B4 119D2B 


14740 




LD 


DE,FCB1 


;Else fetch spec 


28B7 


14750 




(3@FSPEC 






28B7 3E4E 


00043 




LD 


A, 78 




28B9 EF 


00044 




RST 


40 




28BA 21A02A 


14760 




LD 


HL 9 DCTEXT 


;Use /DCT as the 


28BD 


14770 




GGFEXT 




; default extension 


28BD 3E4F 


00045 




LD 


A s 79 




28BF EF 


00046 




RST 


40 




28C0 


14780 




(3@FLAGS 






28C0 3E65 


00047 




LD 


A, 101 




28C2 EF 


00048 




RST 


40 




28C3 FDCB12D6 


14790 




SET 


2,(IY+'S , - , A I ) 


;Set RUN bit 


28C7 


14800 




@@LOAD 




;Load the prog 


28C7 3E4C 


00049 




LD 


A, 76 




28C9 EF 


00050 




RST 


40 




28CA Dl 


14810 




POP 


DE 


;Recover drive table 


28CB C21F24 


14820 




JP 


NZ s IOERR 


;Quit on load error 


28CE D5 


14830 




PUSH 


DE 




28CF E5 


14840 




PUSH 


HL 


;Save prog's traadr 
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28 D0 21D928 


14850 


LD 


HL S DVR4 


;Pt to our return 


28 D3 E3 


14860 


EX 


(SP) 9 HL 


;Exch with his 


28 D4 FDCB02DE 


14870 


SET 


3,(IY+ , C , - , A') 


;Set system request 


28 D8 E9 


14880 


JP 


(HL) 


;Go to prog 


28 D9 Dl 


14890 DVR4 
14900 ; 


POP 


DE 


;Rcvr drive table 




14910 ; 


System 


= new system drive 




14920 ; 








28DA 01FFFF 


14930 SYSPRM 


LD 


BC.-l 


;P/u parm value 


28 DD 78 


14940 


LD 


A S B 




28 DE C3842B 


14950 
14960 ; 


JP 


PATCH1 


;Set HL=0, no abort if e 


28E1 3D 


14970 CONT1 


DEC 


A 




28 E2 FE08 


14980 


CP 


8 


; Drive in range? 


28E4 D21424 


14990 
15000 ; 


JP 


NC 3 PRMERR 


;Go if > 7 




15010 ; 


Check on diskette in place 




15020 ; 








28 E7 


15030 


@@CKDRV 






28E7 3E21 


00051 


LD 


A 5 33 




28 E9 EF 


00052 


RST 


40 




28EA 2025 


15040 


JR 


NZ S SYSP2 


; Prompt if no diskette 


28 EC 


15050 


(a@GTDCT 




;Get its DCT 


28EC 3E51 


00053 


LD 


A s 81 




28 EE EF 


00054 
15060 ; 


RST 


40 






15070 ; 


Perform 


minimal check for SYSTEM disk 




15080 ; 








28 EF FD5609 


15090 SYSP1 


LD 


D,(IY+9) 


;P/u the dir cyl 


28F2 21001D 


15100 


LD 


HL,SBUFF$ 




28F5 5D 


15110 


LD 


E S L 


; Init for GAT read 


28F6 


15120 


@@RDSSC 




;Read the sector 


28F6 3E55 


00055 


LD 


A s 85 




28 F8 EF 


00056 


RST 


40 




28F9 C21F24 


15130 


JP 


NZ S IOERR 


;Quit on read error 


28FC 2ECD 


15140 


LD 


LJCDH 


;Check the SYSTEM bit 


28FE CB7E 


15150 


BIT 


7 S (HL) 




2900 200F 


15160 


JR 


NZ,SYSP2 


;Not system? Go prompt 


2902 21001 D 


15170 


LD 


HL,SBUFF$ 


; Point to buffer 


2905 1EJ95 


15180 


LD 


E,5 


; Point to dir sec #5 


2907 


15190 


@@RDSSC 




;Read the sector 


2907 3E55 


00057 


LD 


A, 85 




2909 EF 


00058 


RST 


40 




290A 7E 


15200 


LD 


A,(HL) 


;P/u the byte 


290B E650 


15210 


AND 


01010000B 


.Check for a system file 


290D FE50 


15220 
15230 


CP 


01010000B 


; and not killed 

, in this slot, (SYS1) 


290F 2818 


15240 
15250 ; 


JR 


Z,SYSP3 


;Alive and a SYS file 




15260 ; 


Diskette is not a SYSTEM 


diskette 




15270 ; 








2911 79 


15280 SYSP2 


LD 


A,C 


; Stuff drive # in msg 


2912 C630 


15290 


ADD 


A,'0' 


Cvrt drive to ASCII 


2914 32802A 


15300 


LD 


(NDSYS$+32) S A 




2917 


15310 


@(9DSPLY 


NDSYS$ ; 


"Need system diskette.. 




00059 


IFEQ 


01H.1 




2917 21602A 


00060 
00061 


LD 
ENDIF 


HL,NDSYS$ 




291A 3E0A 


00062 


LD 


A, 10 




291C EF 


00063 


RST 


40 




291D 219D2B 


15320 


LD 


HL,FCB1 


Create response buffer 
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2920 010000 
2923 

2923 3E09 

2925 EF 

2926 D8 

2927 18B1 

2929 217404 
292C CB7E 
292E CBBE 

2930 217004 
2933 119D2B 

2936 D5 

2937 E5 

2938 010A00 
293B EDB0 
293D FDCB04BE 
2941 2804 

2943 FDCB04FE 
2947 FDE5 

2949 El 
294A Dl 
294B E5 
294C 0E0A 
294E EDB0 

2950 Dl 

2951 El 

2952 0E0A 
2954 EDB0 
2956 21452A 
2959 C31724 



295C 3E35 



295E 21 



295F 

295F 3E31 
2961 110200 



15330 

15340 

00064 

00065 

15350 

15360 

15370 ; 

15380 SYSP3 

15390 

15400 

15410 

15420 

15430 

15440 

15450 

15460 

15470 

15480 

15490 

15500 

15510 NOSET 

15520 

15530 

15540 

15550 

15560 

15570 

15580 

15590 

15600 

15610 

15620 

15630 

15640 ; 

15650 ; 

15660 ; 

15670 PUTCFG 

15680 ; 

15690 

15700 

15710 

15720 

15730 

15740 

15750 ; 

15760 GETCFG 

15770 

15780 

15790 

15800 

15810 ; 

15820 

15830 

15840 

15850 

15860 

15870 

15880 

15890 

15900 

15910 ; 



LD BC,0<8 

@@KEYIN 

LD A, 9 

RST 40 

RET C 

JR SYSPRM 



LD 

BIT 

RES 

LD 

LD 

PUSH 

PUSH 

LD 

LDIR 

RES 

JR 

SET 

PUSH 

POP 

POP 

PUSH 

LD 

LDIR 

POP 

POP 

LD 

LDIR 

LD 

JP 



HL,DCT$+4 

7,(HL) 

7,(HL) 

HL,DCT$ 

DE,FCB1 

DE 

HL 

BC S 10 

7,(IY+4) 
Z, NOSET 

7 s (IY+4) 

IY 

HL 

DE 

HL 

C s 10 

DE 
HL 
C,10 

HL,NWSYS$ 
SETERR 



;Only BREAK or ENTER 
;Wait for entry 



;Exit on <BREAK> 
;Continue to check 



;Check Ckdrv bit in DCT 
;Enable it for now 

;Use FCB space 
;Save where temp 
;Save where new SYSTEM 
;Save current SYS's DCT 

Make sure OFF 

Only set if it was set 

on the SYSTEM drive 
CKDRV inhibit drive 
New DCT to HL 

;Rcvr SYS DCT now 
;Save where it goes 

;New DCT into SYSTEM 
;P/u where old SYS goes 
;P/u temp address 
;Move old SYS to new DCT 

;"New sys drive installed 
;Display and exit w/abort 
; in case JCL active 



Routines to read/write the config sector 
LD A, 53 ;@WRSEC 



IF @M0D4 

DB 21 H 

ENDIF 

IF @M0D2 

JR PUTGETC 

ENDIF 



EQU 

IF 

LD 

LD 

ENDIF 

IF 

LD 

AND 

CP 

JR 

LD 

AND 

CP 

JR 



@M0D4 
A, 49 
DE s 0<8+2 



@M0D2 

A s (DCT$+3) 

28 H 

20H 

NZ,SETSYS1 

A,(DCT$+4) 

50H 

40H 

NZ,SETSYS1 



; Ignore next with LD HL, 
;Jump over if mod2 



;@RDSEC 
;Config sector 



; Drive dct data 
;Bit 5/3 
;8" floppy? 
;Go if not 
;Get data 
;Bit 6/4 
;DD not alien? 
;Go if not 
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15920 LD 


HL,SBUFF$ 




; System buffer 






15930 LD 


A,(DCT$+9) 




;Get dir cylinder 






15940 LD 


D,A 




;Pass to D 






15950 LD 


E,0 




; Ini t sector 






15960 LD 


C,E 




; Ini t drive 


2964 




15970 (a@RDSSC 

00066 LD 

00067 RST 


A, 85 
40 




;Read directory 






15980 JR 


NZ, PUTGETE 




;Go on disk error 






15990 LD 


A,(SBUFF$+0CDH) 


;Get gat data byte 






16000 BIT 


7,A 




;Is data disk? 






16010 SETSYS1 LD 


DE,0<8+2 




; I ni t sysinfo sector 






16020 JR 


NZ,$+3 




;Go if data disk 






16030 INC 


D 




;Else new sysinfo 






16040 LD 


A, 49 




;Init RDSEC 






16050 ENDIF 












16060 ; 








2964 21001 D 


16070 PUTGETC LD 


HL,SBUFF$ 




; System buffer 


2967 0E00 




16080 LD 


C,0 




; in system drive 


2969 EF 




16090 RST 


40 




;Read or Write 


296A C8 




16100 RET 


Z 




;Back if good i/o 


296B El 




16110 PUTGETE POP 


HL 






296C C31F24 


I 


16120 JP 
16130 ; 


IOERR 




; else abort 






16140 ; Routine 


to get HIGH$ 








16150 ; 








296F 0600 




16160 GETHI$ LD 


B 9 




;Init to get HIGH$ 


2971 60 




16170 LD 


H,B 






2972 68 




16180 LD 


L,B 






2973 




16190 @@HIGH$ 






;Get current HIGH$ 


2973 3E64 




00068 LD 


A, 100 






2975 EF 




00069 RST 


40 






2976 C9 




16200 RET 
16210 ; 












16220 ; Routine 


to test if 


HIGH$ is frozen 






16230 ; 








2977 3A6C00 


16240 GOTMEM? LD 


A,(CFLAG$) 




; Check if memory can 


297A 0F 




16250 RRCA 






; be altered 


297B C9 




16260 RET 
16270 ; 








297C 4E 




16280 NOMEM$ DB 


'No memory 


spac< 


2 available', CR 


6F 20 


6D 


65 6D 6F 72 79 








20 73 


70 61 63 65 20 61 








76 61 


69 


6C 61 62 6C 65 








0D 












2996 50 




16290 PRMERR$ DB 


'Parameter 


error' ,CR 


61 72 


61 


6D 65 74 65 72 








20 65 


72 


72 6F 72 0D 








29A6 43 




16300 N0CYL8$ DB 


'CYL=c invc 


ilid ( 


3n 8" drive'.CR 


59 4C 


3D 


63 20 69 6E 76 








61 6C 


69 


64 20 6F 6E 20 








38 22 


20 64 72 69 76 65 








0D 












29C0 43 




16310 BADCYL$ DB 


'Cylinder count 


out of range <35-96>',C 


79 6C 


69 


6E 64 65 72 20 








63 6F 


75 


6E 74 20 6F 75 








74 20 6F 


66 20 72 61 6E 








67 65 


20 


3C 33 35 2D 39 








36 3E 0D 










29E4 43 




16320 BADSYS$ DB 


'Can"t SYSRES l 


"equested module' ,CR 


61 6E 


27 


74 20 53 59 53 
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52 45 53 20 72 65 71 75 
65 73 74 65 64 20 6D 6F 
64 75 6C 65 0D 

2A02 53 16330 MODRES$ DB 
79 73 74 65 6D 20 6D 6F 

64 75 6C 65 20 61 6C 72 

65 61 64 79 20 72 65 73 
69 64 65 6E 74 0D 

2A21 45 16340 EIPMPT DM 
6E 74 65 72 20 44 43 54 
20 64 72 69 76 65 72 20 
3C 42 52 45 41 4B 3D 64 
65 66 61 75 6C 74 3E 20 
3A 20 03 

2A45 4E 16350 NWSYS$ DB 
65 77 20 53 59 53 54 45 
4D 20 64 72 69 76 65 20 
69 6E 73 74 61 6C 6C 65 
64 0D 

2A60 49 16360 NDSYS$ DB 
6E 73 65 72 74 20 53 59 

53 54 45 4D 20 64 69 73 
6B 65 74 74 65 20 69 6E 
20 64 72 69 76 65 20 58 
20 0D 

2A83 42 16370 BADBS$ DB 
6F 6F 74 20 73 74 65 70 
20 6F 75 74 20 6F 66 20 
72 61 6E 67 65 20 3C 30 
2D 33 3E 0D 



'System module already resident' ,CR 



'Enter DCT driver <BREAK=def ault> : ',3' 



New SYSTEM drive instal led' ,CR 



'Insert SYSTEM diskette in drive X \CR 



'Boot step out of range <0-3>' ,CR 



2AA0 44 




16380 DCTEXT 


DM 


'DCT' 


43 54 




16390 ; 






2AA3 




16400 PRMTBL$ EQU 


$ 


2AA3 41 




16410 


DB 


'ALIVE ' 


4C 49 


56 


45 20 






2AA9 8D25 




16420 


DW 


ALIVE+1 


2AAB 42 




16430 


DB 


'BSTEP ' 


53 54 


45 


50 20 






2AB1 C124 




16440 


DW 


BSPARM+1 


2AB3 44 




16450 


DM 


'DRIVER' 


52 49 


56 


45 52 






2AB9 3628 




16460 


DW 


DVRPARM+1 


2ABB 46 




16470 


DB 


'FAST ' 


41 53 


54 


20 20 






2AC1 4224 




16480 


DW 


FPARM+1 


2AC3 53 




16490 


DB 


' SLOW ' 


4C 4F 


57 


20 20 






2AC9 3B24 




16500 


DW 


SLOW+1 


2ACB 53 




16510 


DB 


'SYSRES' 


59 53 


52 


45 53 






2AD1 FB25 




16520 


DW 


SYSRES+1 


2AD3 53 




16530 


DB 


'SYSTEM' 


59 53 


54 


45 4D 






2AD9 DB28 




16540 


DW 


SYSPRM+1 


2ADB 54 




16550 


DB 


'TYPE ' 


59 50 45 


20 20 






2AE1 2A25 




16560 


DW 


TYPE+1 


2AE3 57 




16570 


DB 


'WP 


50 20 20 


20 20 






2AE9 6627 




16580 


DW 


WPARM+1 
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2AEB 42 




16590 


DB 


'BLINK ' 




4C 49 


4E 


4B 20 








2AF1 E224 




16600 


DW 


BLINK+1 




2AF3 42 




16610 


DB 


'BREAK ' 




52 45 


41 


4B 20 








2AF9 7F24 




16620 


DW 


BREAK+1 




2AFB 43 




16630 


DB 


'CYL ' 




59 4C 20 20 20 








2B01 7B27 




16640 


DW 


CYLPRM+1 




2B03 44 




16650 


DB 


' DATE ' 




41 54 


45 


20 20 








2B09 9324 




16660 


DW 


DATE+1 




2B0B 44 




16670 


DB 


'DELAY ' 




45 4C 


41 


59 20 








2B11 E527 




16680 


DW 


DELAY+1 




2B13 43 




16690 


DB 


'CKDRV ' 




4B 44 


52 


56 20 








2B19 FD27 




16700 


DW 


CKDRV+1 




2B1B 44 




16710 


DB 


'DISABL' 




49 53 


41 


42 4C 








2B21 AD27 




16720 


DW 


DISABL+1 




2B23 44 




16730 


DB 


'DRIVE ' 




52 49 


56 


45 20 








2B29 4327 




16740 


DW 


DRIVE+1 




2B2B 45 




16750 


DB 


'ENABLE' 




4E 41 


42 


4C 45 








2B31 BE27 




16760 


DW 


ENABLE+1 




2B33 47 




16770 


DB 


'GRAPHI' 




52 41 


50 48 49 








2B39 7825 




16780 


DW 


GRAPHI+1 




2B3B 4C 




16790 


DB 


'LARGE ' 




41 52 


47 


45 20 








2B41 FB24 




16800 


DW 


LARGE+1 




2B43 52 




16810 


DB 


'RESTOR' 




45 53 


54 


4F 52 








2B49 1325 




16820 


DW 


RPARM+1 




2B4B 53 




16830 


DB 


'SMALL ' 




4D 41 


4C 4C 20 








2B51 0525 




16840 


DW 


SMALPRM+1 




2B53 53 




16850 


DB 


'STEP ' 




54 45 


50 20 20 








2B59 CA27 




16860 


DW 


STEP+1 




2B5B 54 




16870 


DB 


'TIME ' 




49 4D 45 


20 20 








2B61 AA24 




16880 


DW 


TIME+1 




2B63 54 




16890 


DB 


'TRACE ' 




52 41 


43 


45 20 








2B69 6624 




16900 


DW 


TRACE+1 




2B6B 53 




16910 


DB 


'SMOOTH' 




4D 4F 


4F 


54 48 








2B71 3F25 




16920 


DW 


SMOOTH+1 




2B73 48 




16930 


DB 


'HERTZ5' 




45 52 


54 


5A 35 








2B79 5E25 




16940 


DW 


HERTZ50+1 




2B7B 48 




16950 


DB 


'HERTZ6' 




45 52 


54 


5A 36 








2B81 6B25 




16960 


DW 


HERTZ60+1 




2B83 00 




16970 
16980 ; 


NOP 






2B84 210006 


J 


16990 PATCH1 


LD 


HL,0 ;Set HL=0 


"NO ERRORS" 


2B87 Bl 




17000 


OR 


C 
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2B88 3C 17010 INC 


A 


;Parm entered? 


2B89 C8 17020 RET 


Z 


;Exit if not 


2B8A C3E128 17030 JP 


CONT1 


; Continue on now 


17040 ; 






2B8D 00 17050 DC 


16,0 


; Patch space 


00 00 00 00 00 00 00 00 






00 00 00 00 00 00 00 






2B9D 00 17060 FCB1 DC 


32,0 




00 00 00 00 00 00 00 00 






00 00 00 00 00 00 00 00 






00 00 00 00 00 00 00 00 






00 00 00 00 00 00 00 






17070 ; 






2400 00110 END 


SYSTEM 
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$A1 


03B7 $A2 


03B8 $A3 


03B9 


$CKE0F 


1470 @$SYS 


08F0 @@1 


0000 


m 


0000 (a@3 


0000 @(34 


0000 


@AB0RT 


1B08 @ADTSK 


1CDA 0BANK 


0877 


0BKSP 


1486 0BREAK 


196F 0BYTEIO 


1300 


0CHNIO 


0689 (PCKBRKC 


0553 0CKDRV 


1993 


0CKEOF 


158F @CKTSK 


1CF5 @CLOSE 


1999 


(PCLS 


0545 (3CMNDI 


197E @CMNDR 


197B 


@CTL 


0623 0DATE 


07A8 (3DBGHK 


199F 


PDCINIT 


19C0 @DCRES 


19C4 (3DCSTAT 


19B5 


@DCTBYT 


1A2B @DEBUG 


19A0 @DECHEX 


03E1 


@DIRCYL 


18F7 @DIRRD 


18BB 0DIRWR 


1803 


0DIV16 


06E3 0DIV8 


1927 @DODIR 


19AF 


@DOKEY 


19A9 @DSP 


0642 0DSPLY 


052D 


0ERROR 


1B0F 0EXIT 


1B0B 0FEXT 


1984 


@FLAGS 


196A 0FNAME 


199C 0FRENCH 


0000 


0FSPEC 


1981 @GATRD 


1874 @GATWR 


1875 


^GERMAN 


0000 @GET 


0638 @GTDCB 


1990 


@GTDCT 


1A1E 0GTMOD 


19B2 0HDFMT 


19E4 


0HEX16 


07BD 0HEX8 


07C2 (3HEXDEC 


06F6 


(s>HIGH$ 


1948 (3HITRD 


1897 @HITWR 


1898 


0HZ50 


0000 @ICNFG 


0086 @INIT 


198D 


@INTL 


0000 @IPL 


1BF2 @JCL 


0630 


@KBD 


0635 @KEY 


0628 @KEYIN 


0585 


@KITSK 


0089 @KLTSK 


1CD0 @LOAD 


1B38 


0LOC 


14B3 @LOF 


14DE 0LOGER 


0503 


0LOGOT 


0500 0MOD2 


0000 @M0D4 


FFFF 


@MSG 


0530 (MJL16 


06C9 @MUL8 


190A 


@NMI 


0066 0OPEN 


198A @OPREG 


0084 


@ PAR AM 


1987 (BPAUSE 


0382 @PEOF 


14A2 


(3P0SN 


1434 SPRINT 


0528 @PRT 


063 D 


@PUT 


0645 0RAMDIR 


19AC @RDHDR 


19D8 


0RDSEC 


19F4 @RDSSC 


18D8 @RDTRK 


19E0 


@READ 


1513 ^REMOVE 


19A6 @RENAME 


1996 


@REW 


149 B GRMTSK 


1CD7 @RPTSK 


1CEB 


0RREAD 


1473 @RSLCT 


19D4 @RST00 


0000 


(3RST08 


0008 @RST10 


0010 (3RST18 


0018 


(BRST20 


0020 (3RST28 


0028 0RST30 


0030 


@RST38 


0038 (9RSTNMI 


0FE9 @RSTOR 


19C8 


(9RSTREG 


0680 @RUN 


IBID 0RWRIT 


13AD 


0SEEK 


19D0 (9SEEKSC 


1421 @SKIP 


1430 


PSLCT 


19BC @SOUND 


0392 @STEPI 


19CC 


@TIME 


078 D @USA 


FFFF @VDCTL 


0B99 


@VDCTL3 


0D38 @VER 


1560 0VRSEC 


19DC 


0WEOF 


14EC 0WHERE 


1979 GWRITE 


1531 


0WRSEC 


19E8 @WRSSC 


19EC @WRTRK 


19F0 


@ VDCTL 


0D42 ADDR 2 ROWCOL 


0DF1 ADJEI 


275B 


AFLAG$ 


006A ALIVE 


258C ALIVE1 


25F2 


ALIVEON 


259E ALVBGN 


25D1 ALVEND 


25FA 


ALVTCB 


25DF AUTO? 


1FF1 BADBS$ 


2A83 


BADCYL 


279D BADCYL$ 


29C0 BADSYS 


2642 


BADSYS$ 


29E4 BAR$ 


0201 BLIEND 


2512 


BLINK 


24E1 BLNKON 


24F2 BOOTST$ 


439D 


BREAK 


247E BREAK? 


1C60 BRKEND 


2492 


BRKOFF 


248E BRKVEC$ 


1C88 BSPARM 


24C0 


BSPEND 


24E1 BUR$ 


0200 CASHK$ 


0A7B 


CFCB$ 


00E0 CFGFCB$ 


00E0 CFLAG$ 


006 C 


CKDRV 


27FC CKDRV1 


280B CKEI 


275B 


CKMOD0 


1A7F CKOPEN@ 


1568 CONFIG$ 


203F 


CONT1 


28E1 CORES 


0300 CR 


000 D 
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CRTBGN$ 


F800 CYL1 


2793 


CYLEND 


27 AC 




CYLPRM 


277A 


CYL GRN 


16 AE 


D0FBYT8 


1A26 




DATE 


2492 


DATES 


0033 


DATEND 


24A9 




DAYTBLS 


04C7 


DBGSVS 


00 A0 


DCBKLS 


0031 




DCT$ 


0470 


DCTBYT80 


1A29 


DCTEXT 


2AA0 




DCTFLD0 


1A34 


DDCT1 


287A 


DDCT2 


2884 




DELAY 


27E4 


DELAY1 


27F3 


DFLAGS 


006 D 




DIRBUF$ 


2300 


DISABL 


27AC 


DIS DO RAM 


0846 




D0DATA$ 


0B94 


DODCBS 


0210 


DOFF 


249F 




DO CONTROL 


0C44 


DO DSPCHAR 


0CB8 


DO INVERT DIS 


0C8C 




DO INVERT ENA 


0C89 


DO INVERT OFF 


0C9B DO MASK 


0000 




DO RET 


0BCB 


DO RET1 


0BCC 


DO SCROLL 


0CCE 




DO TABS 


0BEA 


DRIVE 


2742 


DRVLOOP 


2765 




DSKTYP$ 


04C0 


DTPMTS 


04C2 


DVR2 


28A7 




DVR4 


28 D9 


DVRA 


2885 


DVRB 


288E 




DVRC 


289A 


DVRENDS 


0FF4 


DVRHIS 


0206 




DVRPARM 


2835 


EFLAGS 


006 E 


EIPMPT 


2A21 




ENABLE 


27BD 


ENADIS 


27C6 


ENADIS DO RAM 


0817 




EXTDBG$ 


19A4 


FCB1 


2B9D FDDINTl 


000E 




FEMSKS 


006F FLGTABS 


006A FPARM 


2441 




FPEND 


2465 


FRCERR 


241A 


GETCFG 


295F 




GETHI$ 


296F 


GETNl 


2844 


GETN2 


285 E 




GETN3 


2863 


GETSEC2 


273B 


GET @ ROWCOL 


0DAE 




GOT MEM? 


2977 


GRAEND 


258C 


GRAPHI 


2577 




GROFF 


2588 


GUDBS 


24D3 


GUDCYL 


27A9 




GUDSYS 


2620 


HERTZS 


0750 


HERTZ50 


255D 




HERTZ60 


256A HIGH$ 


040E 


HKRESS 


1A6C 




HZ50END 


256A 


HZ60END 


2577 


IF LAGS 


0072 




INBUF$ 


0420 


INTIMS 


003 C 


INTMSKS 


003 D 




INTVC$ 


003 E 


IOERR 


241F 


JCLCBS 


0203 




JDCB$ 


0024 


JFCBS 


00C0 JLDCBS 


0230 




JRET$ 


0026 


KCK@ 


07D6 KFLAGS 


0074 




KIDATA$ 


08FC 


KIDCBS 


0208 


LARGE 


24FA 




L BANKS 


0202 


LDRVS 


0023 


LFLAGS 


0075 




LNKFCB0 


1566 


LOWS 


001 E 


LSVCS 


000 D 




MAXCOR$ 


2400 


MAX DAYS 


0401 


MINCORS 


3000 




MODOUT$ 


0076 


MODPORT 


00EC 


MODRESS 


2A02 




MONTBL$ 


04 DC 


MOVITIN 


2659 


NDSYSS 


2A60 




NFLAG$ 


0077 


N0CYL8S 


29A6 


NOMEM 


2410 




NOMEM$ 


297C 


NOSET 


2947 


NOTRES 


2736 




NWSYS$ 


2A45 


OPREGS 


0078 


OPREG SV AREA 


086E 




OPREG SV PTR 


0835 


ORARET@ 


14DC 


OSRLSI ~ 


003 B 




OSVERl 


0085 


OVRLYS 


0069 


PAKNAMS 


0410 




PATCH1 


2B84 


PAUSED 


0382 


PC SAVES 


07AF 




PDRV$ 


001 B 


PHIGHS 


001 C 


PRDCBS 


0218 




PRMERR 


2414 


PRMERRS 


2996 


PRMTBLS 


2AA3 




PUTA0DE 


0DCD 


PUTCFG 


295C 


PUTDVR 


26A0 




PUTGETC 


2964 


PUTGETE 


296B 


PUTSEC2 


282E 




PUT @ 


0DCA 


PUT @ ROWCOL 


0DC6 


REND 


2529 




RESl 


264C 


RES1E 


2658 


RESBGN 


26CD 




RESDl 


2707 


RESDVR 


26FC 


RESEND 


273B 




RESTAB$ 


26 DC 


RFLAGS 


007 B 


ROWCOL 2 ADDR 


0DD0 




RPARM 


2512 


RST38@ 


1BFF 


RSTORS 


04C4 




RSTRON 


251E 


RWRIT@ 


13A2 


SIDCBS 


0238 




SAVESP 


2409 


SBUFFS 


1D00 


SET@EXEC 


1A79 




SETBLK 


250C SETCLK 


245C 


SETERR 


2417 




SETSLOW 


2454 


SET SCROLL 


0CF3 


SFCBS 


008C 




SFLAG$ 


007C 


SIDCBS 


0220 


SLOW 


243A 




SMALPRM 


2504 


SMEND 


255D 


SMON 


2554 




SMOOTH 


253E 


SODCBS 


0228 


SPACE4S 


2142 




STACKS 


0380 


STARTS 


0000 


STEP 


27C9 
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STEPEND 


27E4 SVCRET$ 


000B SVCTAB$ 


0100 




SYSERR$ 


1B13 SYSP1 


28EF SYSP2 


2911 




SYSP3 


2929 SYSPRM 


28DA SYSRES 


25FA 




SYSTEM 


2400 SYSTEM1 


242A TCB$ 


004E 




TEST6 


2614 TFLAG$ 


007D TIME 


24A9 




TIMES 


002D TIMEND 


24C0 TIMERS 


002 C 




TIMSL$ 


002B TIMTSK$ 


0713 TMPMT$ 


04C3 




TOFF 


24B6 TRACE 


2465 TRACE INT 


07B1 




TREND 


247E TROFF 


2479 TYPE 


2529 




TYPEND 


253E TYPEON 


253A TYPHK$ 


0A8F 




TYPTSK$ 


0B26 USTOR$ 


0013 VFLAGS 


007F 




WDESD 


2814 WPARM 


2765 WPEND 


277A 




WPOFF 


2776 WPON 


2770 WRINT$ 


0080 




ZEROS 


0401 ZEROA0 


13A0 (a@ABORT 


6BFF 




@@ADTSK 


6C92 @@BANK 


71AA @@BKSP 


6E8A 




m BREAK 


71C0 @@CHNIO 


6BEA @@CKBRKC 


720E 




0(3 CK DRV 


6CE6 @@CKEOF 


6E9F (3(3CKTSK 


6C7D 




INCLOSE 


6E75 @@CLS 


71F8 @@CMNDI 


6C29 




@@CMNDR 


6C3E @@CTL 


6A4E @@DATE 


6BC0 




@@DCSTAT 


6D25 @@DEBUG 


6C68 @@DECHEX 


712A 




@@DIRRD 


7097 (aGDIRWR 


70AC @@DIV16 


7115 




@@DIV8 


7100 @@DODIR 


6CFB MSP 


6A12 




@@DSPLY 


6AB2 TERROR 


6C53 @(aEXIT 


6C14 




@@FEXT 


7004 @(s>FLAGS 


7194 @@FNAME 


7019 




@@FSPEC 


6FEF @@GATRD 


7082 GGGATWR 


70C1 




(a@GET 


6A26 (s>(3GTDCB 


7043 @@GTDCT 


702 E 




G@GTMOD 


7058 (aPHDFMT 


6DCD @@HEX16 


7169 




(?@HEX8 


7154 (aPHEXDEC 


713F @@HIGH$ 


717E 




@@IIMIT 


6E4B GGKBD 


6A8A @@KEY 


69FE 




@@KEYIN 


6A9E (9(<>KLTSK 


6CD1 @@LOAD 


6FC5 




(a@LOC 


6EB4 (a@LOF 


6EC9 GGLOGER 


6AE9 




(a@LOGOT 


6AFE @@MSG 


6B35 (a(s>MUL16 


70EB 




@@MUL8 


70D6 @@OPEN 


6E60 @@PARAM 


6BAB 




GGPAUSE 


6B96 @@PEOF 


6EDE @@POSN 


6EF3 




SPRINT 


6B4A @(aPRT 


6A62 @@PUT 


6A3A 




OGRAMDIR 


6D10 (313RDSEC 


6DA3 (30RDSSC 


706D 




@(3READ 


6F08 @@REMOV 


6E36 @@RENAM 


6E21 




(30REW 


6F1D @@RMTSK 


6CA7 GGRPTSK 


6CBC 




(a@RREAD 


6F32 @@RSLCT 


6D8E @@RSTOR 


6D4F 




@@RUN 


6FDA @@RWRIT 


6F47 @@SEEK 


6D79 




@@SEEKSC 


6F5C GxaSKIP 


6F71 @@SLCT 


6D3A 




@@STEPI 


6D64 @@TIME 


6BD5 (^VDCTL 


6B81 




(a@ VER 


6F86 GGVRSEC 


6DB8 (9@WE0F 


6F9B 




<a@WHERE 


6A76 (^write 


6FB0 (aeWRSEC 


6DE2 




@(3WRSSC 


6DF7 GGWRTRK 


6E0C 






2400 is the 


transfer address 








00000 Total 


errors 
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The Source 



LIBRARY Files 



LDOS60/EQU 



Page 00001 



0000 

08F0 

0000 



0000 
0877 
1300 
0689 
0553 
0545 
0623 
07 A8 
06 E3 
0642 
052D 



0000 
0638 
07 BD 
07 C2 
06F6 
0000 
0000 
0630 
0635 
0628 
0585 
0089 
0503 
0500 



FFFF 
0530 
06C9 
0084 
0528 
063D 
0645 
0FE9 
0680 
078D 
FFFF 
0B99 
0D38 
0D42 
0DF1 
0201 
439D 
0200 
0A7B 
006 C 
0300 
F800 
0033 
04C7 
0031 
0470 
006 D 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 



;LDOS60/EQU - 
TITLE 



(3$SYS 

(3(31 

(3(32 

(3(33 

(3(34 

(3BANK 



EQU 

DEFL 

DEFL 

DEFL 

DEFL 

EQU 



(3BYTEIO EQU 

(3CHNIO EQU 

(3CKBRKC EQU 

@CLS EQU 

@CTL EQU 

(3DATE EQU 

(3DIV16 EQU 

(3DSP EQU 

(3DSPLY EQU 

(3FRENCH EQU 

(3GERMAN EQU 

@GET EQU 

(3HEX16 EQU 

(3HEX8 EQU 

(3HEXDEC EQU 

(3HZ50 EQU 



(3INTL 
(3JCL 
@KBD 
(3KEY 



EQU 
EQU 
EQU 
EQU 



00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 



00630 
00640 
00650 
00660 
00670 



00690 
00700 



(3KEYIN EQU 
(3KITSK EQU 
(3LOGER EQU 
(3LOGOT EQU 
(3MOD2 EQU 
(3M0D4 EQU 
(3MSG EQU 
(3MUL16 EQU 
(30PREG EQU 
(3PRINT EQU 
(3PRT EQU 
@PUT EQU 
@RSTNMI EQU 
(3RSTREG EQU 
@TIME EQU 
@USA EQU 
(3VDCTL EQU 
0VDCTL3 EQU 
(3J/DCTL EQU 
ADDR_2_ROWCOL 
BAR$ EQU 
BOOTST$ EQU 
BUR$ EQU 
CASHK$ EQU 
CFLAG$ EQU 
CORES DEFL 
CRTBGN$ EQU 
DATES EQU 
DAYTBLS EQU 
DCBKLS EQU 
DCTS EQU 
DFLAGS EQU 



Equates from cross reference of Lowcore 
<LDOS60/EQU> 

08F0H 
0000 H 



0000 H 
0000 H 
0877H 
1300H 
0689H 
0553H 
0545 H 
0623H 
07A8H 
06E3H 
0642H 
052DH 



0000 H 
0638H 
07BDH 
07C2H 
06F6H 
IH 
IH 
0630H 
0635 H 
0628H 
0585H 
0089 H 
0503 H 
0500H 
0000 H 
0FFFFH 
0530H 
06C9H 
0084H 
0528H 
063DH 
0645 H 
0FE9H 
0680H 
078 DH 
0FFFFH 
0B99H 
0D38H 
0D42H 
EQU 
0201 H 
439DH 
0200 H 
0A7BH 
006CH 
0300 H 
0F800H 
003 3 H 
04C7H 
0031 H 
0470H 
006 DH 



0DF1H 
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The Source 


LIBRARY Files 


LDOS60/EQU 


0846 


00710 DIS DO RAM 


EQU 


0846 H 


0B94 


00720 DODATAl" EQU 


0B94H 




0210 


00730 DODCB$ EQU 


0210H 




0C44 


00740 DO CONTROL 


EQU 


0C44H 


0CB8 


00750 DO DSPCHAR 


EQU 


0CB8H 


0C8C 


00760 DO~INVERT DIS 


EQU 


0C8CH 


0C89 


00770 DO INVERT ENA 


EQU 


0C89H 


0C9B 


00780 DO INVERT OFF 


EQU 


0C9BH 


0000 


00790 DO MASK EQU 


0000 H 




0BCB 


00800 DO RET EQU 


0BCBH 




0BCC 


00810 DO RET1 EQU 


0BCCH 




0CCE 


00820 DO SCROLL 


EQU 


0CCEH 


0BEA 


00830 DO TABS EQU 


0BEAH 




04C0 


00840 DSKTYP$ EQU 


04C0H 




04C2 


00850 DTPMT$ EQU 


04C2H 




0FF4 


00860 DVREND$ EQU 


0FF4H 




0206 


00870 DVRHI$ EQU 


0206H 




0817 


00880 ENADIS DO RAM 


EQU 


0817H 


000 E 


00890 FDDINTl EQU 


000EH 




006 A 


00900 FLGTAB$ EQU 


006 AH 




0DAE 


00910 GET @ ROWCOL 


EQU 


0DAEH 


0750 


00920 HERTZl EQU 


0750H 




040E 


00930 HIGH$ EQU 


040EH 




0072 


00940 IFLAG$ EQU 


0072 H 




0420 


00950 INBUF$ EQU 


0420H 




003 E 


00960 INTVC$ EQU 


003 EH 




0203 


00970 JCLCB$ EQU 


0203H 




0230 


00980 JLDCB$ EQU 


0230H 




07D6 


00990 KCK@ EQU 


07D6H 




0074 


01000 KFLAG$ EQU 


0074H 




08FC 


01010 KIDATA$ EQU 


08FCH 




0208 


01020 KIDCB$ EQU 


0208H 




0202 


01030 LBANK$ EQU 


0202 H 




0401 


01040 MAXDAY$ EQU 


0401 H 




0076 


01050 MODOUT$ EQU 


0076H 




04 DC 


01060 MONTBL$ EQU 


04DCH 




0077 


01070 NFLAGS EQU 


007 7 H 




0078 


01080 OPREG$ EQU 


0078H 




086 E 


01090 OPREG SV AREA 


EQU 


086EH 


0835 


01100 OPREG SV PTR 


EQU 


0835 H 


0410 


01110 PAKNAM$ EQU 


0410H 




0382 


01120 PAUSED EQU 


0382H 




07 AF 


01130 PCSAVE$ EQU 


07AFH 




001 B 


01140 PDRV$ EQU 


001 BH 




0218 


01150 PRDCB$ EQU 


0218H 




0DCD 


01160 PUTAPDE EQU 


0DCDH 




0DCA 


01170 PUT EQU 


0DCAH 




0DC6 


01180 PUT @ ROWCOL 


EQU 


0DC6H 


007B 


01190 RFLAG$ EQU 


007BH 




0DD0 


01200 ROWCOL 2 ADDR 


EQU 


0DD0H 


04C4 


01210 RSTOR$ EQU 


04C4H 




0238 


01220 S1DCB$ EQU 


0238H 




0CF3 


01230 SET SCROLL 


EQU 


0CF3H 


007 C 


01240 SFLAG$ EQU 


007CH 




0220 


01250 SIDCB$ EQU 


0220H 




0228 


01260 SODCB$ EQU 


0228H 




0380 


01270 STACKS EQU 


0380H 




0000 


01280 STARTS EQU 


0000 H 




002 D 


01290 TIMES EQU 


002DH 




002 C 


01300 TIMERS EQU 


002 CH 




002 B 


01310 TIMSLS EQU 


002 BH 
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The Source 


LIBRARY Files 


LDOS60/EQU 


0713 


01320 TIMTSK$ EQU 


0713H 


04C3 


01330 TMPMT$ EQU 


04C3H 


07B1 


01340 TRACE INT 


EQU 071 


0A8F 


01350 TYPHKf EQU 


0A8FH 


0B26 


01360 TYPTSK$ EQU 


0B26H 


007 F 


01370 VFLAG$ EQU 


007FH 


0401 


01380 ZEROS EQU 


0401 H 


No end statement 




00000 Total 


errors 
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The Source 


LIBRARY Fi 


les 


SYS0/I 




00100 ;SYS0/EQU - Equates fi 


0000 


00110 
00120 ; 


TITLE 


<SYS0, 


03B7 


00130 $A1 


EQU 


03B7H 


03 B8 


00140 $A2 


EQU 


03B8H 


03 B9 


00150 $A3 


EQU 


03B9H 


1470 


00160 $CKEOF 


EQU 


1470H 


08F0 


00170 <s>$SYS 


EQU 


08F0H 


0000 


00180 (3(31 


DEFL 


0000 H 


0000 


00190 001 


DEFL 


0000 H 


0000 


00200 (3(32 


DEFL 


0000 H 


0000 


00210 (3@2 


DEFL 


0000 H 


0000 


00220 (3(33 


DEFL 


0000 H 


0000 


00230 (3@3 


DEFL 


0000 H 


0000 


00240 (3@4 


DEFL 


0000H 


0000 


00250 004 


DEFL 


0000 H 


1B08 


00260 0ABORT 


EQU 


1B08H 


1CDA 


00270 0ADTSK 


EQU 


1CDAH 


0877 


00280 0BANK 


EQU 


087 7 H 


1486 


00290 0BKSP 


EQU 


1486H 


196F 


00300 0BREAK 


EQU 


196FH 


1300 


00310 0BYTEIO 


EQU 


1300H 


0689 


00320 0CHNIO 


EQU 


0689H 


0553 


00330 0CKBRKC 


EQU 


0553H 


1993 


00340 0CKDRV 


EQU 


1993H 


158F 


00350 0CKEOF 


EQU 


158FH 


1CF5 


00360 0CKTSK 


EQU 


1CF5H 


1999 


00370 0CLOSE 


EQU 


1999H 


0545 


00380 0CLS 


EQU 


0545 H 


197E 


00390 0CMNDI 


EQU 


197EH 


197B 


00400 0CMNDR 


EQU 


197BH 


0623 


00410 0CTL 


EQU 


0623H 


07 A8 


00420 0DATE 


EQU 


07A8H 


199F 


00430 0DBGHK 


EQU 


199FH 


19C0 


00440 0DCINIT 


EQU 


19C0H 


19C4 


00450 0DCRES 


EQU 


19C4H 


19 B5 


00460 0DCSTAT 


EQU 


19B5H 


1A2B 


00470 0DCTBYT EQU 


1A2BH 


19A0 


00480 0DEBU6 


EQU 


19A0H 


03E1 


00490 0DECHEX 


EQU 


03E1H 


18F7 


00500 0DIRCYL 


EQU 


18F7H 


18BB 


00510 0DIRRD 


EQU 


18BBH 


1803 


00520 0DIRWR 


EQU 


1803 H 


06 E3 


00530 0DIV16 


EQU 


06E3H 


1927 


00540 0DIV8 


EQU 


1927H 


19AF 


00550 0DODIR 


EQU 


19AFH 


19A9 


00560 0DOKEY 


EQU 


19A9H 


0642 


00570 0DSP 


EQU 


0642H 


052D 


00580 0DSPLY 


EQU 


052DH 


1B0F 


00590 0ERROR 


EQU 


1B0FH 


1B0B 


00600 0EXIT 


EQU 


1B0BH 


1984 


00610 0FEXT 


EQU 


1984H 


196A 


00620 0FLAGS 


EQU 


196AH 


199C 


00630 0FNAME 


EQU 


199CH 


0000 


00640 0FRENCH 


EQU 


0000 H 


1981 


00650 0FSPEC 


EQU 


1981H 


1874 


00660 0GATRD 


EQU 


1874H 


1875 


00670 0GATWR 


EQU 


1875H 


0000 


00680 0GERMAN EQU 


0000 H 


0638 


00690 0GET 


EQU 


0638H 


1990 


00700 0GTDCB 


EQU 


1990H 
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The Source 


LIBRARY Fi 


les 


SYS0/EI 


1A1E 


00710 @GTDCT 


EQU 


1A1EH 


19B2 


00720 (PGTMOD 


EQU 


19B2H 


19E4 


00730 @HDFMT 


EQU 


19E4H 


07 BD 


00740 0HEX16 


EQU 


07BDH 


07 C2 


00750 @HEX8 


EQU 


07C2H 


06F6 


00760 0HEXDEC 


EQU 


06F6H 


1948 


00770 @HIGH$ 


EQU 


1948H 


1897 


00780 0HITRD 


EQU 


1897H 


1898 


00790 (3HITWR 


EQU 


1898H 


0000 


00800 @ HZ 50 


EQU 


0000 H 


0086 


00810 @ICNFG 


EQU 


0086 H 


198 D 


00820 @INIT 


EQU 


198DH 


0000 


00830 @INTL 


EQU 


0000 H 


1BF2 


00840 @IPL 


EQU 


1BF2H 


0630 


00850 @JCL 


EQU 


0630H 


0635 


00860 @KBD 


EQU 


0635H 


0628 


00870 @KEY 


EQU 


0628H 


0585 


00880 0KEYIN 


EQU 


0585H 


0089 


00890 @KITSK 


EQU 


0089 H 


0089 


00900 (PKITSK 


EQU 


0089H 


1CD0 


00910 (9KLTSK 


EQU 


1CD0H 


1B38 


00920 (ROAD 


EQU 


1B38H 


14B3 


00930 @LOC 


EQU 


14B3H 


14 DE 


00940 @LOF 


EQU 


14DEH 


0503 


00950 (ROGER 


EQU 


0503 H 


0500 


00960 (3LOGOT 


EQU 


0500H 


0000 


00970 @MOD2 


EQU 


0000 H 


FFFF 


00980 @M0D4 


EQU 


0FFFFH 


0530 


00990 @MSG 


EQU 


0530H 


06C9 


01000 @MUL16 


EQU 


06C9H 


190A 


01010 0MUL8 


EQU 


190AH 


0066 


01020 @NMI 


EQU 


0066 H 


198A 


01030 WEN 


EQU 


198AH 


0084 


01040 WREG 


EQU 


0084 H 


1987 


01050 0PARAM 


EQU 


1987 H 


0382 


01060 (<>PAUSE 


EQU 


0382H 


14A2 


01070 G>PEOF 


EQU 


14A2H 


1434 


01080 @P0SN 


EQU 


1434H 


0528 


01090 (apRINT 


EQU 


0528H 


063 D 


01100 @PRT 


EQU 


063DH 


0645 


01110 (<SPUT 


EQU 


0645 H 


19AC 


01120 @RAMDIR 


EQU 


19ACH 


19D8 


01130 (aRDHDR 


EQU 


19D8H 


19F4 


01140 (aRDSEC 


EQU 


19F4H 


18 D8 


01150 (3RDSSC 


EQU 


18D8H 


19E0 


01160 (aRDTRK 


EQU 


19E0H 


1513 


01170 @READ 


EQU 


1513H 


19A6 


01180 0REMOVE 


EQU 


19A6H 


1996 


01190 (3RENAME 


EQU 


1996H 


149B 


01200 @REW 


EQU 


149 BH 


1CD7 


01210 (3RMTSK 


EQU 


1CD7H 


1CEB 


01220 @RPTSK 


EQU 


1CEBH 


1473 


01230 @RREAD 


EQU 


1473H 


19 D4 


01240 (PRSLCT 


EQU 


19D4H 


0000 


01250 (aRST00 


EQU 


0000 H 


0008 


01260 0RST08 


EQU 


0008 H 


0010 


01270 (aRSTl0 


EQU 


001 0H 


0018 


01280 @RST18 


EQU 


0018H 


0020 


01290 (aRST20 


EQU 


0020H 


0028 


01300 @RST28 


EQU 


0028H 


0030 


01310 (<>RST30 


EQU 


0030 H 
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The Source 


LIBRARY Fi 


les 


SYS0/E 


0038 


01320 @RST38 


EQU 


0038H 


0FE9 


01330 G>RSTNMI 


EQU 


0FE 9H 


19C8 


01340 (9RST0R 


EQU 


19C8H 


0680 


01350 0RSTREG 


EQU 


0680H 


IBID 


01360 @RUN 


EQU 


1B1DH 


13AD 


01370 @RWRIT 


EQU 


13ADH 


19 D0 


01380 @SEEK 


EQU 


19D0H 


1421 


01390 @SEEKSC 


EQU 


1421H 


1430 


01400 @SKIP 


EQU 


1430H 


19BC 


01410 @SLCT 


EQU 


19BCH 


0392 


01420 @SOUND 


EQU 


0392H 


19CC 


01430 0STEPI 


EQU 


19CCH 


078D 


01440 @TIME 


EQU 


078 DH 


FFFF 


01450 @USA 


EQU 


0FFFFH 


0B99 


01460 @VDCTL 


EQU 


0B99H 


0D38 


01470 (3VDCTL3 


EQU 


0D38H 


1560 


01480 @VER 


EQU 


1560H 


19 DC 


01490 @VRSEC 


EQU 


19DCH 


14 EC 


01500 @WEOF 


EQU 


14ECH 


1979 


01510 @WHERE 


EQU 


1979H 


1531 


01520 (MUTE 


EQU 


1531H 


19E8 


01530 @WRSEC 


EQU 


19E8H 


19EC 


01540 @WRSSC 


EQU 


19ECH 


19F0 


01550 @WRTRK 


EQU 


19F0H 


0D42 


01560 @ VDCTL 


EQU 


0D42H 


0U 1 


01570 ADDR 2 1 


ROWCOL 


EQU 


006 A 


01580 AFLAG$~ 


EQU 


006 AH 


1FF1 


01590 AUTO? 


EQU 


1FF1H 


0201 


01600 BAR$ 


EQU 


0201 H 


439D 


01610 BOOTST$ 


EQU 


439DH 


1C60 


01620 BREAK? 


EQU 


1C60H 


1C88 


01630 BRKVEC$ 


EQU 


1C88H 


0200 


01640 BUR$ 


EQU 


0200H 


0A7B 


01650 CASHK$ 


EQU 


0A7BH 


00E0 


01660 CFCB$ 


EQU 


00E0H 


00E0 


01670 CFGFCB$ 


EQU 


00E0H 


006C 


01680 CFLAG$ 


EQU 


006CH 


006 C 


01690 CFLAG$ 


EQU 


006 CH 


1A7F 


01700 CKMOD0 


EQU 


1A7FH 


1568 


01710 CKOPEN0 


EQU 


1568H 


203F 


01720 CONFIGS EQU 


203 FH 


1CFF 


01730 CORES 


DEFL 


1CFFH 


1BFF 


01740 CORES 


DEFL 


1BFFH 


1948 


01750 CORES 


DEFL 


1948H 


1948 


01760 CORES 


DEFL 


1948H 


0300 


01770 CORES 


DEFL 


0300 H 


F800 


01780 CRTBGNS EQU 


0F800H 


16 AE 


01790 CYL GRN 


EQU 


16AEH 


1A26 


01800 D@FBYT8 


EQU 


1A26H 


0033 


01810 DATES 


EQU 


003 3 H 


0033 


01820 DATES 


EQU 


003 3 H 


04C7 


01830 DAYTBLS 


EQU 


04C7H 


00A0 


01840 DBGSVS 


EQU 


00A0H 


0031 


01850 DCBKLS 


EQU 


0031 H 


0470 


01860 DCTS 


EQU 


0470H 


1A29 


01870 DCTBYT80 


EQU 


1A34 


01880 DCTFLDG 


EQU 


1A34H 


006 D 


01890 DFLAGS 


EQU 


006 DH 


006 D 


01900 DFLAGS 


EQU 


006 DH 


2300 


01910 DIRBUFS 


EQU 


2300H 


0846 


01920 DIS DO F 


*AM 


EQU 
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The Source 


LIBRARY Files 


SYS0/EQU 


0B94 


01930 DODATA$ EQU 


0B94H 


0210 


01940 DODCB$ EQU 


0210H 


0C44 


01950 DO CONTROL 


EQU 0C44H 


0CB8 


01960 DO DSPCHAR 


EQU 0CB8H 


0C8C 


01970 DO INVERT DIS 


EQU 0C8CH 


0C89 


01980 DO INVERT ENA 


EQU 0C89H 


0C9B 


01990 DO INVERT OFF 


EQU 0C9BH 


0000 


02000 DO MASK EQU 


0000 H 


0BCB 


02010 DO RET EQU 


0BCBH 


0BCC 


02020 DO RET1 EQU 


0BCCH 


0CCE 


02030 DO SCROLL 


EQU 0CCEH 


0BEA 


02040 DO TABS EQU 


0BEAH 


04C0 


02050 DSKTYP$ EQU 


04C0H 


04C2 


02060 DTPMT$ EQU 


04C2H 


0FF4 


02070 DVREND$ EQU 


0FF4H 


0206 


02080 DVRHI$ EQU 


0206 H 


006 E 


02090 EFLAG$ EQU 


006 EH 


0817 


02100 ENADIS DO RAM 


EQU 0817H 


19A4 


02110 EXTDBGf EQU 


19A4H 


000 E 


02120 FDDINT$ EQU 


000EH 


000E 


02130 FDDINT$ EQU 


000EH 


006 F 


02140 FEMSK$ EQU 


006 FH 


006 A 


02150 FLGTAB$ EQU 


006 AH 


006A 


02160 FLGTAB$ EQU 


006 AH 


0DAE 


02170 GET @ ROWCOL 


EQU 0DAEH 


0750 


02180 HERTZf EQU 


0750H 


040E 


02190 HIGH$ EQU 


040EH 


1A6C 


02200 HKRES$ EQU 


1A6CH 


0072 


02210 IFLAG$ EQU 


0072H 


0072 


02220 IFLAGS EQU 


0072 H 


0420 


02230 INBUFS EQU 


0420 H 


003C 


02240 INTIM$ EQU 


003CH 


003 D 


02250 INTMSK$ EQU 


003 DH 


003 E 


02260 INTVC$ EQU 


003 EH 


003 E 


02270 INTVC$ EQU 


003 EH 


0203 


02280 JCLCB$ EQU 


0203 H 


0024 


02290 JDCB$ EQU 


0024H 


00C0 


02300 JFCB$ EQU 


00C0H 


0230 


02310 JLDCB$ EQU 


0230H 


0026 


02320 JRET$ EQU 


0026H 


07 D6 


02330 KCK0 EQU 


07D6H 


0074 


02340 KFLAG$ EQU 


0074 H 


0074 


02350 KFLAG$ EQU 


0074H 


08FC 


02360 KIDATA$ EQU 


08FCH 


0208 


02370 KIDCB$ EQU 


0208H 


0202 


02380 LBANK$ EQU 


0202H 


0023 


02390 LDRV$ EQU 


0023H 


0075 


02400 LFLAG$ EQU 


0075H 


1566 


02410 LNKFCB0 EQU 


1566H 


001 E 


02420 LOW$ EQU 


001 EH 


000 D 


02430 LSVC$ EQU 


000 DH 


2400 


02440 MAXCOR$ EQU 


2400 H 


0401 


02450 MAXDAY$ EQU 


0401 H 


3000 


02460 MINCOR$ EQU 


3000 H 


0076 


02470 MODOUT$ EQU 


007 6 H 


0076 


02480 MODOUT$ EQU 


0076H 


04 DC 


02490 MONTBL$ EQU 


04DCH 


0077 


02500 NFLAG$ EQU 


007 7 H 


0078 


02510 OPREG$ EQU 


0078H 


0078 


02520 OPREG$ EQU 


0078H 


086 E 


02530 OPREG SV AREA 


EQU 086EH 
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The Source 


LIBRARY Files 


SYS0/EQU 


0835 


02540 OPREG SV PTR 


EQU 0835 H 


14DC 


02550 ORARET0 EQU 


14DCH 


003 B 


02560 OSRLS$ EQU 


003 BH 


0085 


02570 OSVER$ EQU 


0085 H 


0069 


02580 OVRLY$ EQU 


006 9 H 


0410 


02590 PAKNAM$ EQU 


0410H 


0382 


02600 PAUSES* EQU 


0382H 


07 AF 


02610 PCSAVE$ EQU 


07AFH 


001 B 


02620 PDRV$ EQU 


001 BH 


001 B 


02630 PDRV$ EQU 


001 BH 


001 C 


02640 PHIGH$ EQU 


001 CH 


0218 


02650 PRDCB$ EQU 


0218H 


0DCD 


02660 PUTA@DE EQU 


0DCDH 


0DCA 


02670 PUT @ EQU 


0DCAH 


0DC6 


02680 PUT @ ROWCOL 


EQU 0DC6H 


007 B 


02690 RFLAGl EQU 


007BH 


007B 


02700 RFLAG$ EQU 


007BH 


0DD0 


02710 ROWCOL 2 ADDR 


EQU 0DD0H 


1BFF 


02720 RST38@ EQU 


1BFFH 


04C4 


02730 RSTOR$ EQU 


04C4H 


13A2 


02740 RWRIT@ EQU 


13A2H 


0238 


02750 S1DCB$ EQU 


0238H 


1D00 


02760 SBUFF$ EQU 


1D00H 


1A79 


02770 SET0EXEC 


EQU 1A79H 


0CF3 


02780 SET SCROLL 


EQU 0CF3H 


008C 


02790 SFCB$ EQU 


008CH 


007 C 


02800 SFLAG$ EQU 


007 CH 


007 C 


02810 SFLAG$ EQU 


007 CH 


0220 


02820 SIDCB$ EQU 


0220H 


0228 


02830 SODCB$ EQU 


0228H 


2142 


02840 SPACE4$ EQU 


2142H 


0380 


02850 STACKS EQU 


0380H 


0000 


02860 STARTS EQU 


0000 H 


0000 


02870 STARTS EQU 


0000H 


000 B 


02880 SVCRETS EQU 


000 BH 


0100 


02890 SVCTABS EQU 


0100H 


1B13 


02900 SYSERRS EQU 


1B13H 


004 E 


02910 TCBS EQU 


004EH 


007 D 


02920 TFLAGS EQU 


007 DH 


002 D 


02930 TIMES EQU 


002 DH 


002 D 


02940 TIMES EQU 


002 DH 


002 C 


02950 TIMERS EQU 


002 CH 


002 C 


02960 TIMERS EQU 


002 CH 


002 B 


02970 TIMSLS EQU 


002 BH 


002 B 


02980 TIMSLS EQU 


002 BH 


0713 


02990 TIMTSKS EQU 


0713H 


04C3 


03000 TMPMTS EQU 


04C3H 


07B1 


03010 TRACE INT 


EQU 07B1H 


0A8F 


03020 TYPHKl EQU 


0A8FH 


0B26 


03030 TYPTSKS EQU 


0B26H 


0013 


03040 USTORS EQU 


001 3 H 


007F 


03050 VFLAGS EQU 


007FH 


007 F 


03060 VFLAGS EQU 


007FH 


0080 


03070 WRINTS EQU 


0080 H 


0401 


03080 ZEROS EQU 


0401 H 


13A0 


03090 ZEROA0 EQU 


13A0H 


No end statement 




00000 Total 


errors 
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The Source 


LIBRARY Fi 


les 


SVC MAC 




00100 ;SVCMAC/ASM - 


LS-DOS Ve 


0000 


00110 


TITLE 


<SVCMAC 




00120 ;*LIST 


OFF 






00130 ; 






0000 


00140 @M0D2 


EQU 





FFFF 


00150 GMDD4 


EQU 


-1 


0000 


00160 @@KEY 


MACRO 




0000 


00170 


LD 


A,l 


0000 


00180 


RST 


40 


0000 


00190 


ENDM 




0000 


00200 @@DSP 


MACRO 




0000 


00210 


LD 


A, 2 


0000 


00220 


RST 


40 


0000 


00230 


ENDM 




0000 


00240 (aPGET 


MACRO 




0000 


00250 


LD 


A, 3 


0000 


00260 


RST 


40 


0000 


00270 


ENDM 




0000 


00280 @(apUT 


MACRO 




0000 


00290 


LD 


A,4 


0000 


00300 


RST 


40 


0000 


00310 


ENDM 




0000 


00320 @@CTL 


MACRO 




0000 


00330 


LD 


A, 5 


0000 


00340 


RST 


40 


0000 


00350 


ENDM 




0000 


00360 @@PRT 


MACRO 




0000 


00370 


LD 


A, 6 


0000 


00380 


RST 


40 


0000 


00390 


ENDM 




0000 


00400 (ataWHERE 


MACRO 




0000 


00410 


LD 


A,7 


0000 


00420 


RST 


40 


0000 


00430 


ENDM 




0000 


00440 @@KBD 


MACRO 




0000 


00450 


LD 


A 9 8 


0000 


00460 


RST 


40 


0000 


00470 


ENDM 




0000 


00480 @@KEYIN 


MACRO 




0000 


00490 


LD 


A,9 


0000 


00500 


RST 


40 


0000 


00510 


ENDM 




0000 


00520 @(9DSPLY MACRO 


#MSG 


0000 


00530 


IFEQ 


%% 9 1 


0000 


00540 


LD 


HL,#MSG 


0000 


00550 


ENDIF 




0000 


00560 


LD 


A, 10 


0000 


00570 


RST 


40 


0000 


00580 


ENDM 




0000 


00590 @@LOGER 


MACRO 




0000 


00600 


LD 


A, 11 


0000 


00610 


RST 


40 


0000 


00620 


ENDM 




0000 


00630 (a@LOGOT 


MACRO 


#MSG 


0000 


00640 


IFEQ 


%%,1 


0000 


00650 


LD 


HL,#MSG 


0000 


00660 


ENDIF 




0000 


00670 


LD 


A, 12 


0000 


00680 


RST 


40 


0000 


00690 


ENDM 




0000 


00700 @(aMSG 


MACRO 
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The Source 


LIBRARY Fi 


les 


SVCMAC 


0000 


00710 


LD 


A, 13 


0000 


00720 


RST 


40 


0000 


00730 


ENDM 




0000 


00740 (SPRINT 


MACRO 


#MSG 


0000 


00750 


IFEQ 


%% s l 


0000 


00760 


LD 


HL,#MSG 


0000 


00770 


ENDIF 




0000 


00780 


LD 


A, 14 


0000 


00790 


RST 


40 


0000 


00800 


ENDM 




0000 


00810 @@VDCTL 


MACRO 




0000 


00820 


LD 


A, 15 


0000 


00830 


RST 


40 


0000 


00840 


ENDM 




0000 


00850 WAUSE 


MACRO 




0000 


00860 


LD 


A, 16 


0000 


00870 


RST 


40 


0000 


00880 


ENDM 




0000 


00890 @@PARAM MACRO 




0000 


00900 


LD 


A, 17 


0000 


00910 


RST 


40 


0000 


00920 


ENDM 




0000 


00930 @@DATE 


MACRO 




0000 


00940 


LD 


A, 18 


0000 


00950 


RST 


40 


0000 


00960 


ENDM 




0000 


00970 @@TIME 


MACRO 




0000 


00980 


LD 


A,19 


0000 


00990 


RST 


40 


0000 


01000 


ENDM 




0000 


01010 @@CHNI0 


MACRO 




0000 


01020 


LD 


A, 20 


0000 


01030 


RST 


40 


0000 


01040 


ENDM 




0000 


01050 @@AB0RT 


MACRO 




0000 


01060 


LD 


A, 21 


0000 


01070 


RST 


40 


0000 


01080 


ENDM 




0000 


01090 @@EXIT 


MACRO 




0000 


01100 


LD 


A, 22 


0000 


01110 


RST 


40 


0000 


01120 


ENDM 




0000 


01130 GOCMNDI 


MACRO 




0000 


01140 


LD 


A, 24 


0000 


01150 


RST 


40 


0000 


01160 


ENDM 




0000 


01170 @@CMNDR 


MACRO 




0000 


01180 


LD 


A, 25 


0000 


01190 


RST 


40 


0000 


01200 


ENDM 




0000 


01210 (TERROR 


MACRO 




0000 


01220 


LD 


A 8 26 


0000 


01230 


RST 


40 


0000 


01240 


ENDM 




0000 


01250 @@DEBIIG 


MACRO 




0000 


01260 


LD 


A, 27 


0000 


01270 


RST 


40 


0000 


01280 


ENDM 




0000 


01290 @@CKTSK 


MACRO 




0000 


01300 


LD 


A, 28 


0000 


01310 


RST 


40 
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The Source 


LIBRARY Fi 


les 


SVCMAI 


0000 


01320 


ENDM 




0000 


01330 @@ADTSK 


MACRO 




0000 


01340 


LD 


A, 29 


0000 


01350 


RST 


40 


0000 


01360 


ENDM 




0000 


01370 @@RMTSK 


MACRO 




0000 


01380 


LD 


A, 30 


0000 


01390 


RST 


40 


0000 


01400 


ENDM 




0000 


01410 (a@RPTSK 


MACRO 




0000 


01420 


LD 


A, 31 


0000 


01430 


RST 


40 


0000 


01440 


ENDM 




0000 


01450 (a@KL.TSK 


MACRO 




0000 


01460 


LD 


A, 32 


0000 


01470 


RST 


40 


0000 


01480 


ENDM 




0000 


01490 GGCKDRV 


MACRO 




0000 


01500 


LD 


A, 33 


0000 


01510 


RST 


40 


0000 


01520 


ENDM 




0000 


01530 (3@D0DIR 


MACRO 




0000 


01540 


LD 


A, 34 


0000 


01550 


RST 


40 


0000 


01560 


ENDM 




0000 


01570 GGRAMDIR 


MACRO 


0000 


01580 


LD 


A, 35 


0000 


01590 


RST 


40 


0000 


01600 


ENDM 




0000 


01610 <a@DCSTAT 


MACRO 


0000 


01620 


LD 


A, 40 


0000 


01630 


RST 


40 


0000 


01640 


ENDM 




0000 


01650 (3(9SLCT 


MACRO 




0000 


01660 


LD 


A, 41 


0000 


01670 


RST 


40 


0000 


01680 


ENDM 




0000 


01690 (a@RST0R 


MACRO 




0000 


01700 


LD 


A, 44 


0000 


01710 


RST 


40 


0000 


01720 


ENDM 




0000 


01730 @@STEPI 


MACRO 




0000 


01740 


LD 


A, 45 


0000 


01750 


RST 


40 


0000 


01760 


ENDM 




0000 


01770 @@SEEK 


MACRO 




0000 


01780 


LD 


A, 46 


0000 


01790 


RST 


40 


0000 


01800 


ENDM 




0000 


01810 (3(3RSLCT 


MACRO 




0000 


01820 


LD 


A, 47 


0000 


01830 


RST 


40 


0000 


01840 


ENDM 




0000 


01850 GGRDSEC 


MACRO 




0000 


01860 


LD 


A, 49 


0000 


01870 


RST 


40 


0000 


01880 


ENDM 




0000 


01890 @@VRSEC 


MACRO 




0000 


01900 


LD 


A, 50 


0000 


01910 


RST 


40 


0000 


01920 


ENDM 
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LIBRARY Files 
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0000 
0000 
0000 



0000 
0000 



0000 
0000 



0000 



0000 



0000 
0000 
0000 



0000 
0000 



0000 



0000 



01930 
01940 
01950 
01960 
01970 
01980 
01990 



0000 



02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 



@@HDFMT 



@@WRSEC 



00WRSSC 



@@WRTRK 



(30RENAM 



@@REMOV 



00INIT 



00OPEN 



@@CLOSE 



(a^BKSP 



(a@CKEOF 



GX3LOC 



(3(3L0F 



00PEOF 



@@POSN 



(3@READ 



MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 

LD 

RST 

ENDM 

MACRO 



A, 52 



A, 53 



A, 54 



A, 55 



A, 56 
40 



A,57 
40 



A, 58 
40 



A, 59 
40 



A, 60 



A, 61 
40 



A, 62 
40 



A, 63 
40 



A,64 



A, 65 



A, 66 
40 
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The Source 


LIBRARY Fi 


les 


SVCMAI 


0000 


02540 


LD 


A,67 


0000 


02550 


RST 


40 


0000 


02560 


ENDM 




0000 


02570 (3(3REW 


MACRO 




0000 


02580 


LD 


A, 68 


0000 


02590 


RST 


40 


0000 


02600 


ENDM 




0000 


02610 (30RREAD 


MACRO 




0000 


02620 


LD 


A 9 69 


0000 


02630 


RST 


40 


0000 


02640 


ENDM 




0000 


02650 (apRWRIT 


MACRO 




0000 


02660 


LD 


A, 70 


0000 


02670 


RST 


40 


0000 


02680 


ENDM 




0000 


02690 GGSEEKSC 


MACRO 


0000 


02700 


LD 


A s 71 


0000 


02710 


RST 


40 


0000 


02720 


ENDM 




0000 


02730 @@SKIP 


MACRO 




0000 


02740 


LD 


A 5 72 


0000 


02750 


RST 


40 


0000 


02760 


ENDM 




0000 


02770 GKdVER 


MACRO 




0000 


02780 


LD 


A, 73 


0000 


02790 


RST 


40 


0000 


02800 


ENDM 




0000 


02810 (aMOF 


MACRO 




0000 


02820 


LD 


A s 74 


0000 


02830 


RST 


40 


0000 


02840 


ENDM 




0000 


02850 @(3WRITE 


MACRO 




0000 


02860 


LD 


A 9 75 


0000 


02870 


RST 


40 


0000 


02880 


ENDM 




0000 


02890 @@L0AD 


MACRO 




0000 


02900 


LD 


A, 76 


0000 


02910 


RST 


40 


0000 


02920 


ENDM 




0000 


02930 @(aRUN 


MACRO 




0000 


02940 


LD 


A 9 77 


0000 


02950 


RST 


40 


0000 


02960 


ENDM 




0000 


02970 (3(s>FSPEC 


MACRO 




0000 


02980 


LD 


A, 78 


0000 


02990 


RST 


40 


0000 


03000 


ENDM 




0000 


03010 @@FEXT 


MACRO 




0000 


03020 


LD 


A s 79 


0000 


03030 


RST 


40 


0000 


03040 


ENDM 




0000 


03050 @(5>FNAME 


MACRO 




0000 


03060 


LD 


A s 80 


0000 


03070 


RST 


40 


0000 


03080 


ENDM 




0000 


03090 @@GTDCT 


MACRO 




0000 


03100 


LD 


A, 81 


0000 


03110 


RST 


40 


0000 


03120 


ENDM 




0000 


03130 <M>GTDCB MACRO 




0000 


03140 


LD 


A, 82 
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The Source 


LIBRARY Files 


SVCMA 


0000 


03150 RST 


40 


0000 


03160 ENDM 




0000 


03170 @@GTM0D MACRO 




0000 


03180 LD 


A, 83 


0000 


03190 RST 


40 


0000 


03200 ENDM 




0000 


03210 (a@RDSSC MACRO 




0000 


03220 LD 


A s 85 


0000 


03230 RST 


40 


0000 


03240 ENDM 




0000 


03250 @@GATRD MACRO 




0000 


03260 LD 


A, 86 


0000 


03270 RST 


40 


0000 


03280 ENDM 




0000 


03290 @@DIRRD MACRO 




0000 


03300 LD 


A, 87 


0000 


03310 RST 


40 


0000 


03320 ENDM 




0000 


03330 @@DIRWR MACRO 




0000 


03340 LD 


A, 88 


0000 


03350 RST 


40 


0000 


03360 ENDM 




0000 


03370 (^GATWR MACRO 




0000 


03380 LD 


A s 89 


0000 


03390 RST 


40 


0000 


03400 ENDM 




0000 


03410 @@MUL8 MACRO 




0000 


03420 LD 


A, 90 


0000 


03430 RST 


40 


0000 


03440 ENDM 




0000 


03450 @@MUL16 MACRO 




0000 


03460 LD 


A, 91 


0000 


03470 RST 


40 


0000 


03480 ENDM 




0000 


03490 @@DIV8 MACRO 




0000 


03500 LD 


A 9 93 


0000 


03510 RST 


40 


0000 


03520 ENDM 




0000 


03530 @@DIV16 MACRO 




0000 


03540 LD 


A, 94 


0000 


03550 RST 


40 


0000 


03560 ENDM 




0000 


03570 @@DECHEX 


MACRO 


0000 


03580 LD 


A, 96 


0000 


03590 RST 


40 


0000 


03600 ENDM 




0000 


03610 (i>(3HEXDEC 


MACRO 


0000 


03620 LD 


A, 97 


0000 


03630 RST 


40 


0000 


03640 ENDM 




0000 


03650 (a@HEX8 MACRO 




0000 


03660 LD 


A, 98 


0000 


03670 RST 


40 


0000 


03680 ENDM 




0000 


03690 @@HEX16 MACRO 




0000 


03700 LD 


A, 99 


0000 


03710 RST 


40 


0000 


03720 ENDM 




0000 


03730 (THIGHS MACRO 




0000 


03740 LD 


A, 100 


0000 


03750 RST 


40 
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The Source 


LIBRARY Fi 


les 


SVCMAC 


0000 


03760 


ENDM 




mm 


03770 (aGFLAGS 


MACRO 




mm 


03780 


LD 


A, 101 


mm 


03790 


RST 


40 


mm 


03300 


ENDM 




mm 


03810 (a@BANK 


MACRO 




mm 


03820 


LD 


A, 102 


mm 


03830 


RST 


40 


mm 


03840 


ENDM 




mm 


03850 INBREAK MACRO 


#ADR 


mm 


03860 


IFEQ 


%% 9 l 


mm 


03870 


LD 


HL,#ADR 


mm 


03880 


ENDIF 




mm 


03890 


LD 


A, 103 


mm 


03900 


RST 


40 


mm 


03910 


ENDM 




mm 


03920 @@CLS 


MACRO 




mm 


03930 


LD 


A, 105 


mm 


03940 


RST 


40 


mm 


03950 


ENDM 




mm 


03960 <a(aCKBRKC 


MACRO 


mm 


03970 


LD 


A, 106 


mm 


03980 


RST 


40 


mm 


03990 


ENDM 






04000 *LIST 


ON 




mm 


04010 


END 




00000 Total 


errors 
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